Bonjour Alix, bonjour le forum,
Le code commenté :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub Macro1()
'boucle 1 : de 1 à 8
For I = 1 To 8
'boucle 2 : de 1 à ...la plus grande valeur (Max) entre les 3 cellules : ligne 1 colonne 2 (Cells(1, 2) = B1), ligne 1 colonne 4 (Cells(1, 4) = D1) et ligne i colonne 6 (Cells(1, 6) = F1) de l'onglet nommé "D4"
For J = 1 To WorksheetFunction.Max(Worksheets("D4").Cells(1, 2).Value, Worksheets("D4").Cells(1, 4).Value, Worksheets("D4").Cells(1, 6).Value)
'efface la cellule ligne J + 6 colonne I de l'onglet nommé "D4"
Worksheets("D4").Cells(J + 6, I).Clear
'prochaine valeur de la boucle 2
Next
'prochaine valeur de la boucle 1
Next
End Sub |
premier passage de la boucle 1 :I = 1
premier passage de la boucle 2
J = 1
efface la cellule ligne 1 + 6 colonne 1 = A7
deuxième passage de la boucle 2
J=2
efface la cellule ligne 2 + 6 colonne 1 = A8
etc...
la boucle 2 va s'effectuer jusqu'à la plus grande valeur entre la valeur B1, de D1 et de F1. Donc si cette plus grande valeur est par exemple : 10. La boucle 2 va être de 1 à 10
a la fin de la boucle 2, I va passer à 2 et se sont les cellules de la colonne 2 (=B) qui seront effacées jusqu'à la colonne 8 (=H)...
deuxième passage de la boucle1I=2
etc...
Partager