Macro cherche, trouve et complète un table

[DPX]

Bonjour le forum,


Avec le fichier joint:
Je recherche exclusivement une macro qui ira trouvé dans la feuille 2 "site des vendeurs" le nom du site auquel est rattaché un "vendeur" puis l'inscrive dans la feuille 1.
J'ai écris en rouge le résultat attendu.
merci pour votre aide

 

[kjin]

Re : Macro cherche, trouve et complète un table

Bonsoir,

Dim cel As Range, c As Range
With Feuil1
    For Each cel In .Range("G2:G" & .Range("G65000").End(xlUp).Row)
        If cel <> "" Then
            Set c = Feuil2.Range("A2:C7").Find(cel)
            If Not c Is Nothing Then
                cel.Offset(, 3) = Feuil2.Cells(1, c.Column)
            Else
                cel.Offset(, 3) = "vendeur inconnu"
            End If
        End If
    Next
End With

A+
kjin

 

[DPX]

Re : Macro cherche, trouve et complète un table

Merci.
Quelle célérité!!!
Bravo le forum