Bonjour,
j'ai mon petit programme sympa qui me fait une copie de mon tableau qui se trouve dans Feuille source vers Feuille cible .
Il ajoute les données de source dans cible.
Ma question : Est il possible d'ajouter dans mon programme du code qui me permettrai de ne pas copier une ligne s'il est déjà présent dans la cible. Supposons que dans mes deux tableaux j'ai un identifiant unique pour chaque ligne qui se trouve dans la colonne B à partir de B5 si ça peut aider.
Mon programme:
Merci par avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub copie() Dim lg As Integer Dim plage As Range lg = Sheets("cible").Range("A65536").End(xlUp).Row Set plage = Sheets("source").Range("A5:V" & Range("B65536").End(xlUp).Row) sup = MsgBox("Voulez-vous copier ?", vbYesNo + vbQuestion) If sup = vbYes Then plage.Copy Sheets("cible").Range("A" & lg + 1) End If End Sub
Partager