Fonction Find vba
Résolu
Biloute
-
Biloute -
Biloute -
bonjour;
étant novice en VBA, je n'arrive pas à adapter la macro (Find) donnée en exemple, c'est dire :
ma valeur_cherchee = une colonne (plusieurs valeurs)
et ma PlagedeRecherche = une plage de 2 colonne
merci de me donner un petit coup de main
étant novice en VBA, je n'arrive pas à adapter la macro (Find) donnée en exemple, c'est dire :
ma valeur_cherchee = une colonne (plusieurs valeurs)
et ma PlagedeRecherche = une plage de 2 colonne
merci de me donner un petit coup de main
1 réponse
-
-
-
comme ceci:
Sub recherche() 'on réinitialise Range("A1:C20").Interior.ColorIndex = xlNone 'a adapter Columns("E:E").ClearContents 'a adapter 'on recherche For Each cel1 In Range("A1:A19") 'a adapter For Each cel2 In Range("B2:C20") 'a adapter If cel1 = cel2 Then li = li + 1 Range("E" & cel1.Row) = cel1 & " Colonne A en ligne " & cel1.Row & " avec Colonne B ou C en ligne " & cel2.Row cel1.Interior.ColorIndex = 3 + li cel2.Interior.ColorIndex = 3 + li End If Next Next End Sub
@+ Le Pivert -
-
