1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub Copie sous confition
' *** Positionement sur la feuille "Source"
Sheets("Source").select
' *** Déclaration des Variables X et Y = Cellules à tester
Dim x as String
Dim y as String
' *** Tant que Y n'est pas vide les instructions suivante sont executées
*** Do While IsEmpty(y) = False
' *** Si la cellule A2 de la feuille "Source" = à la cellule A2 de la feuille "Cible"
If Sheets("Source").Cells(x, 1).Value = Sheets("Cible").Cells(x, 1).Value Then
' *** copie de B2,C2,D2, de la feuille "Source" sur B2,C2,D2, de la feuille "Cible"
Then Cells(x, 4).Value = Cells(x, 9).Value
Sheets("Source").Cells(x, 2).Value = Sheets("Cible").Cells(x, 2).Value
Sheets("Source").Cells(x, 3).Value = Sheets("Cible").Cells(x, 3).Value
Sheets("Source").Cells(x, 4).Value = Sheets("Cible").Cells(x, 4).Value
' *** si nom incrementation de Y +1
Else y = y + 1
' *** si nom incrementation de x +1
' *** Boucle retest x = y
Loop
Si y = vide sortie de la boucle
' *** incrementation de x
x = x+1
End Sub |
Partager