Discussion :

[yahi.jye]

bonjours,
j'ai une boucle qui ne fonctionne pas! je vous donne mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Total()
Dim i
Dim j
j = 1
For i = 27 To i = 10027 Step 5000
Worksheets("Feuil1").Range("b3") = i
    Sheets("Feuil1").Select
    Range("EH1:EK11").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A" & j).Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
j = j + 11
Next
End Sub

ca passe directement de ma ligne for i = à end sub !

Pourquoi et comment résoudre cette histoire !

yahi

[Invité]

Bonjour

Déjà un peu de lecture sur la syntaxe des boucles avec cet article de Silkyroad : http://silkyroad.developpez.com/vba/boucles/

Starec

[zandru]

Bonjour,

il te suffit d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 27 To 10027 Step 5000

et non pas To i=10027.

j'ai fait un test rapide et cela devrait résoudre ton problème.

[yahi.jye]

oky et j'ai repéré une autre erreur : next i (le i manquait)
et aussi je copie 2 fois.. une fois collage normal et pardessus collage spécial.

merci pour votre rapidité à tous les deux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Total()
Dim i
Dim j
j = 1
For i = 27 To 10027 Step 5000
Worksheets("Feuil1").Range("b3") = i
    Sheets("Feuil1").Select
    Range("EH1:EK11").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A" & j).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
j = j + 11
Next i
End Sub

voila le résultat!