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 : Sélectionner tout - Visualiser dans une fenêtre à part
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