Macro cherche, trouve et complète un table

DPX · 24 Septembre 2011

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 · 24 Septembre 2011

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

Bonsoir,

Code:

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 · 24 Septembre 2011

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

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

Macro cherche, trouve et complète un table

DPX

XLDnaute Junior

Pièces jointes

kjin

XLDnaute Barbatruc

DPX

XLDnaute Junior

Discussions similaires