Macro : Problème importation de datas doublons

Bonjour à vous.

Je cherche à mettre en place une macro qui a pour mission d'importer les datas d'une feuille "2" vers une feuille "1" (même fichier) en important uniquement les données non existantes.

Exemple en PJ.

Merci par avance pour votre aide.

Bonjour Robin, bonjour le forum,

Essaie comme ça :

Sub ThauTheme()
Dim OB As Worksheet 'déclare la variable OB (Onglet Base)
Dim OI As Worksheet 'déclare la variable OI (Onglet Importation)
Dim TB As Variant 'déclare la variable TB (Tableau Base)
Dim TI As Variant 'déclare la variable TI (Tableau Importation)
Dim IB As Integer 'déclare la variable IB (Incrément Base)
Dim II As Integer 'déclare la variable II (Incrément Importation)
Dim TEST As Boolean 'déclare la variable TEST
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set OB = Worksheets("Feuille 1") 'définit l'onglet OB
Set OI = Worksheets("Feuille 2") 'définit l'onglet OI
TB = OB.Range("A4").CurrentRegion 'définit le tableau TB
TI = OI.Range("A3").CurrentRegion 'définit le tableau TI
For II = 2 To UBound(TI, 1) 'boucle 1 : sur toutes les lignes II du tableau TI (en partant de la seconde)
    TEST = False 'réinitialise la variable TEST
    For IB = 2 To UBound(TB, 1) 'boucle 2 : sur toutes les lignes IB du tableau TB (en partant de la seconde)
        If TB(IB, 1) = TI(II, 1) And TB(IB, 2) = TI(II, 2) Then 'condition : si les valeurs des deux colonnes coïncident
            TEST = True 'définit la variabe TEST
            GoTo suite 'va à l'étiquette "suite"
        End If 'fin de la condition
    Next IB 'prochaine ligne de la boucle 2
    If TEST = False Then 'condition : si TEST est [faux]
        Set DEST = OB.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
        DEST.Resize(1, 2).Value = Application.Index(TI, II) 'récupère les deux valeurs de la ligne II de TI dans DEST redimensionnée
    End If 'fin de la condition 2
suite: 'étiquette
Next II 'prochaine ligne de la boucle 1
End Sub

Bonjour Thauthème,

Merci pour ton aide, on y est presque :).

En utilisant ton code, voici les quelques points problématiques restants : voir PJ

Ca va être un casse tête...

Bonjour Robin, bonjour le forum,

Je ne comprends pas chez moi tout fonctionne parfaitement...

Merci beaucoup à toi....

J'ai pu l'adapter à mon fichier mère... c'est parfaiitttttt :). Merci beaucoup pour ton aide

Top