Bonjour,

je suis face à un problème que j'essaye de résoudre en vba.
Je possède deux classeurs A et B qui contiennent une dizaines de feuilles ayant les mêmes noms.
je souhaite, pour deux feuilles ayant le même noms, et pour deux cellules identiques (colonne D), ajouter une information issues du classeur A dans le classeur B.

Voici le début de mon code,
pourriez-vous m'aider à le poursuivre?
Je vous remercie beaucouuuup

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
Sub comparaison
 
Dim i,j as integer
Dim Wb As Workbook
Dim Ws As Worksheet
Dim Cell As Range
Dim X As Long
 
 
For Each Wb In Application.Workbooks
    For Each Ws In Wb.Worksheets
           If A.Ws.Name = B.Ws.Name then 'nom des feuilles des 2 classeurs égaux
           	For i = 1 to 50
           	if Sheets("Ws").Range("D" & i).value = Sheets("Ws").Range("D" & i).value
           	.....................
        Next Ws
    Next Wb
    MsgBox (X)
 
End Sub
Merci d'avaaance