Boucle For Step

[Calvus]

Bonsoir à tous,

J'ai écrit :

[Highlight=vb]For i = 3 To 60 Step 7
Cells(i, 3) = "Coucou le forum"
Next[/code]

J'ai bien la saisie toutes les 7 lignes partir de la 3.

Ce que j'aimerais, c'est écrire 4 lignes à la suite par pas de 7. En C3, C4, C5, C6, puis C10, C11 etc...

Comment fait on ?

Merci

 

[ivan27]

Re : Boucle For Step

Bonsoir Calvus, le Forum

For i = 3 To 60 Step 7
 Cells(i, 3) = "Coucou le forum"
 Cells(i + 1, 3) = "Coucou le forum"
 Cells(i + 2, 3) = "Coucou le forum"
 Cells(i + 3, 3) = "Coucou le forum"
Next

@+
Ivan

 

[job75]

Re : Boucle For Step

Bonjour Calvus,

Cells(i, 3) = xxx
Cells(i + 1, 3) = yyy
Cells(i + 2, 3) = zzz

Edit : salut ivan27

A+

 

[Calvus]

Re : Boucle For Step

bonsoir Ivan27,

Merci.
Et peut on compter le nombre de pas depuis la dernière cellule ? Cad à partir de C6 jusq'à C10 ?

Merci

Edit : bonsoir Job75. Job, pourriez vous éventuellement regarder ici le problème que j'ai avec les champs nommés ? Merci

 

[DoubleZero]

Re : Boucle For Step

Bonjour, Calvus , ivan27, job75 (+ bises) , le Forum,

Je n'ai peut-être pas cmpris...

Option Explicit
Sub Coucou_le_forum()
    Dim i As Long
    For i = 3 To 60 Step 7
        Cells(i, 3).Resize(4) = "Coucou le forum"
    Next
End Sub

A bientôt

 

[Calvus]

Re : Boucle For Step

Bonsoir 00

Ca marche bien, jusqu'à 7 !
Ce que je voudrais, c'est copier ou écrire ou supprimer, peu importe, des cellules sur 49 lignes, espacées de 12 à chaque fois.

 

[DoubleZero]

Re : Boucle For Step

Re-bonjour,

...Ca marche bien, jusqu'à 7 !..

M'en retourne dans mon encls.

A bientôt