Imbriquer deux boucles For
Résolu
loicen73
Messages postés
33
Statut
Membre
-
loicen73 Messages postés 33 Statut Membre -
loicen73 Messages postés 33 Statut Membre -
Bonjour à tous,
Je demande votre aide pour quelque chose qui à priori est relativement facile (mais étant donné mon niveau, c'est difficile !).
J'aimerais écrire les valeurs des cellules B1, D1, F1, H1... P1 (1 cellule sur 2 de la ligne 1) dans la colonne A de la ligne 1 jusqu'à la ligne 8 (A1:A8).
J'ai effectué ce code mais il ne s'écrit que la valeur de la cellule H1 dans la colonne A (sachant que la colonne H est la 8e colonne, donc la fonction Step ne fonctionne pas non plus). Merci d'avance pour votre aide
Sub bouclefor()
Dim i As Integer
For i = 1 To 8
Dim j As Integer
For j = 2 To 8 Step 2
Cells(i, 1) = Cells(1, j)
Next j
Next i
End Sub
Je demande votre aide pour quelque chose qui à priori est relativement facile (mais étant donné mon niveau, c'est difficile !).
J'aimerais écrire les valeurs des cellules B1, D1, F1, H1... P1 (1 cellule sur 2 de la ligne 1) dans la colonne A de la ligne 1 jusqu'à la ligne 8 (A1:A8).
J'ai effectué ce code mais il ne s'écrit que la valeur de la cellule H1 dans la colonne A (sachant que la colonne H est la 8e colonne, donc la fonction Step ne fonctionne pas non plus). Merci d'avance pour votre aide
Sub bouclefor()
Dim i As Integer
For i = 1 To 8
Dim j As Integer
For j = 2 To 8 Step 2
Cells(i, 1) = Cells(1, j)
Next j
Next i
End Sub
