Bonjour tout le monde,

Je vous explique mon problème, j'ai 2 feuilles, dont la 2ème qui est remplie automatiquement par un autre fichier excel à l'ouverture.
J'aimerais que la 1ere feuille soit mis a jour automatiquement grâce à la 2ème feuille quand une ligne n'existe pas.

Par exemple je dispose des colonnes 'Vendor name' ainsi que 'Vendor account', et si une ligne n'existe pas dans la feuille 1 alors qu'elle existe dans la feuille 2, copier la ligne entière c'est a dire le 'Vendor name' ainsi que le 'Vendor account' associé.

Voici mon code pour l'instant qui importe les données d'un autre excel, si ce n'est pas assez clair, dîtes le moi j'essayerais d'expliquer d'une autre manière.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub CopyColumnByTitle()
'Find "Name" in Row 1
Dim x As Workbook
 
    '## Open both workbooks first:
    Set x = Workbooks.Open(Application.ActiveWorkbook.Path & "\Suppliers ex Morpho.xlsx")
 
    With x.Sheets("Database").Rows(1)
        Set t = .Find("Vendor name", lookat:=xlPart)
        'If found, copy the column to Sheet 2, Column A
        'If not found, present a message
        If Not t Is Nothing Then
            Columns(t.Column).EntireColumn.Copy _
            Destination:=ThisWorkbook.Sheets("Feuil2").Range("A1")
        Else: MsgBox "Column Name Not Found"
        End If
    End With
    With x.Sheets("Database").Rows(1)
        Set b = .Find("Vendor account", lookat:=xlPart)
        'If found, copy the column to Sheet 2, Column A
        'If not found, present a message
        If Not b Is Nothing Then
            Columns(b.Column).EntireColumn.Copy _
            Destination:=ThisWorkbook.Sheets("Feuil2").Range("B1")
        Else: MsgBox "Column Name Not Found"
        End If
    End With
  x.Close
End Sub
Merci