If Target.Address = "$A$1" Then ' Le changement a eu lieu dans ma cellule de saisie Dim maCell As Object ' Recherche le code saisi parmi la liste des codes, colonne A Set maCell = Range("A6:A8").Find(Target.Value, , xlValues) If Not maCell Is Nothing Then ' J'ai trouvé un code ' Je recopie le texte de la cellule de droite vers _ la cellule de droite de la saisie Target.Offset(0, 1).Value = maCell.Offset(0, 1).Value End If End If
If Target.Address = "$A$1" Then ' Le changement a eu lieu dans ma cellule de saisie Dim maCell As Object ' Recherche le code saisi parmi la liste des codes, colonne A Set maCell = Range("A6:A8").Find(Target.Value, , xlValues) If Not maCell Is Nothing Then ' J'ai trouvé un code Do While maCell.Value <> Target.Value ' Recherche le suivant tant que ce n'est pas le _ chiffre exact que je cherche Set maCell = Range("A6:A8").FindNext(maCell) DoEvents Loop ' Je recopie le texte de la cellule de droite vers _ la cellule de droite de la saisie Target.Offset(0, 1).Value = maCell.Offset(0, 1).Value End If End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question=RECHERCHEV(I12;'codes banques'!A:B;2;FAUX)