Fonction Find vba [Résolu]

Signaler
-
 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

1 réponse

Messages postés
6492
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
28 janvier 2020
440
merci pour votre réponse
je voudrai dans le premier exemple
remplacer le mot à trouver par plusieurs ( une colonne) et la plage de recherche sur 2 colonnes.
j'ai essayé de l'adapter ça ne marche pas
cs_Le Pivert
Messages postés
6492
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
28 janvier 2020
440
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