Double FOR

Bonjour à tous,

je bloque sur ce code

Sub inte()

Dim i As Integer
Dim j As Integer
For i = 2 To 150
For b = 2 To 1500 Step 5

Sheets("mds").Select

Range("b" & i).Copy
Sheets("bdd").Select
Range("a" & b).PasteSpecial

Next b
Next i

End Sub

pour la variable b j'ai bien l'incrémentation du step 5

par contre pour le i le chiffre reste bloqué à 2

si quelqu'un trouve la solution je suis preneur je continue à chercher

cordialement

edouard002

Bonjour,

si je ne me trompe pas ton code donne comme résultat final la copie de la cellule B150 de la feuille mds dans les cellules A1 à A1500 par pas de 5 de la feuille bdd, après avoir fait la même chose pour cellule B1 à B149.

je doute que ce soit le résultat recherché. Que cherches-tu à faire ?

Bonjour,

ci joint un exemple,

en faite je veux "juste faire du copier coller" pour avoir le réultat du bas

Re bonjour,

j'ai compris le problème !!!!

la variable i prend +1 quand la variable b a terminé la boucle alors la question à 100 $ comment synchroniser les deux variable

Bonjour,

un code adapté à ton classeur exemple

Sub aargh()
    k = 10
    For i = 1 To 5 'pour chaque commune
        For j = 1 To 5 'on prend chaque service
            k = k + 1 'on crée une nouvelle ligne
            Cells(k, 3) = Cells(i + 1, 2) 'on copie le nom de la commune
            Cells(k, 4) = Cells(j + 1, 5) 'on copie le nom du service
        Next j
    Next i
End Sub

Merciiiiii

C'est super sympa

bon week end

cordialement