Sortir d'une boucle [Résolu]

[moi244]

Bonjour,
J'aimerais avec une macro, faire une boucle i=2 to valeure dans la cellule B2.
Je m'explique: pour chacune des cellule dans la colonne D1-D2-D3....D1478, j'aimerai ecrire dans la cellule adjacente à droite (ici la E2:E18) la valeur dans la cellule A2 pour un nombre total qui est ecrit dans la cellule B2 (ici 17 fois).
Ensuite ecrire w dans les cellule qui suivent (ici à partir E19 jusqu'à E43) donc 25 fois (25 vient de la valeure de B3)....etc
Voci le code que j'ai mis, sauf qu'il inscrit seulement la dernière valeure dans A

Code :

1
2
3
4
5
6
7
8
9
10
Sub distribution_cas()
 
For i = 2 To 20
j = 2
    For j = 2 To Sheets("Feuil2").Cells(j, 2).Value + 1
        Sheets("Feuil2").Cells(j, 6) = Sheets("Feuil2").Cells(i, 1).Value
    Next j
Next i
 
End Sub

Merci beaucoup

[jfontaine]

Bonjour,

Essais comme cela.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
Dim j As Long
Dim c As Long
 
c = 2
 
For i = 2 To 20
    For j = 1 To Range("B" & i).Value
        Range("E" & c).Value = Range("A" & i).Value
        c = c + 1
    Next j
Next i

[moi244]

Merci Beaucoup! ça marche à merveille