Code VBA permettant de copier un tableau Résolu/Fermé

Question

Bonjour,
Je voulais ecrire un code qui permet de copier des lignes de tableau dans une autre feuille quand les valeurs de certaines cases sont identiques.
Donc dans mon classeur je veux que quand une case de la colonne "ref pay" de la feuille "facture" est égale à une case dans la colonne "livraison" de la feuille "Avoirs", ca copie toute la ligne de la feuille facture dans la feuille "lignes à relier".
 
Voila une capture du code que j'ai utilisé.

Patrice33740 · Answer

Bonjour, Plutôt qu'un image tu aurais pu mettre le code dans ton texte !!! Essaies : Option Explicit Sub relier() Dim src As Range 'Source à comparer Dim cmp As Range 'Élément de comparaison Dim dst As Range 'Destination Set src = Worksheets("Facture").Range("A2") Set dst = Worksheets("Les lignes à relier").Range("A2") Do While src.Formula <> "" Set cmp = Worksheets("Avoirs").Range("A2") Do While cmp.Formula <> "" If src.Value = cmp.Value Then src.Resize(1, 12).Copy Destination:=dst Set dst = dst.Offset(1) End If Set cmp = cmp.Offset(1) Loop Set src = src.Offset(1) Loop End Sub

Simoaasri · Answer

Bonjour Patrice, je te remercie pour ta réponse mais quand j'execute la macro il n'y a rien qui se passe, je te mets le fichier en lien ci dessous si tu veux bien regarder, Merci
https://mon-partage.fr/f/xxFUluz1/