Bonjour,

Voila mon soucis, J'ai deux feuilles de calcul sur excel :

Feuil1:
Colonne A - Colonne F
8h30 - Donnée1
8h40 - Donnée2
8h50 - Donnée3
...

Feuil2:
Colonne A - Colonne G
8h30 -
8h30 -
8h30 -
8h30 -
8h40 -
8h40 -
...

J'aimerais que:
Pour chaque lignes, Si A,i Feuil1 = A,i Feuil2 Alors On colle F,i Feuil1 sur G,i Feuil2.

Voila mon code (qui ne marche pas...), je crois avoir cerné mon problème: ma déclaration de variable n'est pas bonne.
Comment déclarer que je travail sur A mais aussi sur F et G dans la boucle For?
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
Sub copie()
 
Dim Origine As Worksheet
Dim Destination As Worksheet
Dim i As Integer
 
Set Origine = Worksheets("Feuil1")
Set Destination = Worksheets("Feuil2")
 
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1
 
If Origine.Range("A" & i).Value = Destination.Range("A" & i).Value Then
Destination.Range("G" & i).Value = Origine.Range("F" & i).Value
 
End If
End Sub