PB sur boucle pour insertion d'adresses
Bonsoir le forum
En pièce jointe j'ai placé en fichier contenant une feuille avec des codes et des adresses et une feuille avec des tableaux
J'ai fais une boucle qui recherche dans la colonne "D" de la feuille des tableau .
Si elle trouve un code qui correspond à la liste, la boucle doit collée la valeur de la cellule de colonne qui est juste à côté dans une cellule de la même ligne dans la feuille des tableaux
Ca ne fonctionne pas et je ne comprends pas pourquoi
Si quelqu'un pouvait jeter une oeil, SVP
D'avance merci pour votre aide et pour votre disponibilité
Bonjour,
Ca ne fonctionne pas et je ne comprends pas pourquoi
Il n'y a aucune macro dans ton fichier.
Gelinotte
Bonsoir le forum
Merci pour ton attention gelinotte
voici le bon fichier avec toutes mes excuses
bonjour
je ne peux pas vous assurer que ton code est bon ,surtout que vous n a avez pas donne tout les détails concernant (les noms des colonne destinataires et sources ,…) et surtout que vous utiliser des cellules fusionnées ==> et en même temps vous utiliser l’instruction "Pb.Cells(i, "D").Offset( , 8 )"
Mais la chose évidente l’utilisation de "Exit For "de cette manière est fausse
pcq comme ca la boucle s arrête si elle trouve une cellule vide même si cette cellule est au sein de la liste
Bonjour,
Si elle trouve un code qui correspond à la liste, la boucle doit collée la valeur de la cellule de colonne qui est juste à côté dans une cellule de la même ligne dans la feuille des tableaux
Dans une cellule de la même ligne .... mais ce sera laquelle ? Car, ton énoncé est trop vague
Gelinotte
Bonsoir le forum
Merci Gelinotte et Amir pour votre aide
Oui je viens de m'apercevoir que ça ne va pas du tout
En fait je voudrais rechercher à partir de la colonne "D" de la feuille "Adductabilité des sites" les valeur contenues dans la colonne "A" de la "FeuilA".
Si une valeur est trouvé il faudrait la coller dans la cellule à gauche de la cellule contenant "Adresse du PB" du tableau correspondant
je remet le fichier avec un exemple sur le premier tableau
merci pour votre disponibilité
Bonjour,
À gauche... à gauche qu'elle disait...
À droite... à droite qu'il faudrait...
À tester si j'ai bien compris ...
Sub CompleteAdresse_v1()
Set ad = Sheets("FeuilA")
Set pb = Sheets("Adductabilité des sites")
For i = pb.Cells(pb.Rows.Count, "D").End(xlUp).Row To 13 Step -1
If pb.Cells(i, "D").Value <> "" Then
With ad
trouve = pb.Cells(i, "D").Value
'recherche le site support dans les adresses
Ln = Application.Match(trouve, .[A:A], 0)
If Not IsError(Ln) Then
'ecrit l'adresse
pb.Cells(i, "D").Offset(-4, 7).Value = ad.Cells(Ln, "B").Value
End If
End With
End If
Next i
End SubGelinotte