Code VBA permettant de copier un tableau
Résolu
Simoaasri
Messages postés
20
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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é.

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é.
A voir également:
- Code VBA permettant de copier un tableau
- Code ascii - Guide
- Tableau word - Guide
- Trier un tableau excel - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Imprimer un tableau excel - Guide
2 réponses
Bonjour,
Plutôt qu'un image tu aurais pu mettre le code dans ton texte !!!
Essaies :
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