faire varier le pas [Résolu]

[erlerwade]

Bonjour forum
je suis débutant en VBA je sais que c'est facile pour vous mais j'ai besoin de vos lumierepour m'éclairer je voudrai répéter de la cellule A1 a la cellule A10 la lettre "a" puis sauter 10 ligne refaire la meme chose tout en restant sur le meme colonne . donc je voudrai faire varier le pas de 10


ensuite refaire la meme chose mais en changeant de colonne cette fois ci dond de A1 a A10 je devrai avoir B21 a B30

Merci d'avance

j'ai oublié d'ajouter que je dois repeter l'action juska la ligne 1000. En faisant variaer le pas de 10
Merci d'avance

[bbil]

c'est toujours pas clair ... essai de mieux décrire ce que tu veux ...que faut'il au final dans ta colonne A et dans ta colonne B (en précisant les lignes modifiées..)

[erlerwade]

Je travaille sous VBA .

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
 
Dim i As Integer, j As Integer
 i  = 1
 j  = 1
               Do
 
i = j
For i = j To j+10
Range("A" & i) = "a"
Next i
             j = i
             j = j + 10
              Loop While j < 1001
 
End Sub

avec ce code je voudrai inscrire la lettre "a" dans les cellule "A1:A10" je saute 10 cellules et j'inscrit également la lettre "a" dans les cellules "A20:A30" je saute encore 10 celleule et je fais la meme chose dans "A41: A50" ainsi de suite et je m'arrete dans la cellule A1000.
ce que je voudrai alors c'est de savoir comment varier mon pas de 10 avec le boucle for
Merci Bbil de m'avoir signalé que mon message n'était pas clair
Merci d'avance Forum

[bbil]

avec 2 boucles for imbriquées

Code :

1
2
3
4
5
6
7
   Dim i As Integer
    Dim j As Integer
    For j = 0 To 1000 Step 20
        For i = 1 To 10
            ThisWorkbook.Sheets("Feuil1").Cells(i + j, 1) = "A" '>>>> ADAPTER LE NOM DE LA FEUILLE
        Next
    Next

[erlerwade]

merci Bbil .
Ce forum est tout simplement extraordinaire. vous savez meme pas how much good you do pour la communauté .
En tout cas merci Bbil et bravooooooooooooooooooooo
Vive le Forum!!!!!!!!!!!!

[edelweisseric]

Bonjour à tous

Une question à bbil : ne serait-ce pas plus rapide en faisant comme ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub traitement()
Dim a As String
Dim i As Integer
Dim plage As Range
Dim montablo
 
montablo = Array("a", "a", "a", "a", "a", "a", "a", "a", "a", "a")
 
For i = 1 To 981 Step 20   'ou 1001
    Set plage = ThisWorkbook.Sheets("Feuil1").Range(Range("A" & i & ":A" & i + 10).Address)
    plage.Value = montablo
Next i
 
End Sub

pour 1000 lignes c'est peut être insignifiant, mais pour beaucoup plus ?

Merci d'avance

Eric