Discussion :

[rabi_etudiante]

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

[Theze]

Bonjour,

Une piste à adapter :

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
 
Sub comparaison()
 
    Dim Classeur_A As Workbook
    Dim Classeur_B As Workbook
    Dim Feuille_A As Worksheet
    Dim Feuille_B As Worksheet
 
    'adapter le nom des classeurs
    Set Classeur_A = Workbooks("A.xlsx")
    Set Classeur_B = Workbooks("B.xlsx")
 
    'adapter le nom des feuilles
    Set Feuille_A = Classeur_A.Worksheets("A")
    Set Feuille_B = Classeur_B.Worksheets("A")
 
    'en cellule D1
    With Feuille_B.Cells(1, 4)
 
        'ajoute la valeur de la cellule D1 de la feuille A à la cellule D1 de la feuille B séparé par un espace
        .Value = .Value & " " & Feuille_B.Cells(1, 4).Value
 
    End With
 
End Sub