Salut !
Cela ne devrait pas être trop difficile...
Insère cette petite macro dans le fichier où tu souhaites insérer tes adresses... Au préalable, nomme dans ton fichier code rivoli / adresses la zone contenant tous les codes RIVOLI (ou la colonne) en "Zone_RIVOLI" et celle contenant les adresses en "Zone_Adresses".
Sub Insert_Adresses
Dim FichierAdresses as string
Dim MaCellule as object
Dim Rivoli
'indiquer ici le chemin du fichier contenant les codes RIVOLI et les adresses
FichierAdresses="C:\Mes Documents\....."
'on ouvre le fichier des adresses
Workbooks.Open FichierAdresses
'pour chaque code Rivoli de la colonne A
For each MaCellule in Columns("A:A")
'si la cellule contient un code uniquement
if MaCellule.value<>""
'on recherche dans le classeur des adresses
With Workbooks(FichierAdresses).Worksheets("FeuilAdresses").Range("Zone_RIVOLI")
Set C = .Find(MaCellule.value, LookIn:=xlValues)
'si on trouve une correspondance
If Not C Is Nothing Then
'alors on met l'adresse correspondant au code
intersect(Macellule.entirerow,columns("H:H")).value=intersect(C.entirerow,range("Zone_Adresses")).value
End If
End With
endif
next
End sub
Il sera peut-être nécessaire d'adapter un peu le code en fonction des colonnes utilisées...
Bon courage !!
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)