Création automatisée de tableau ...

[fabs_64]

Bonjour,

Je souhaiterais, à partir d'un tableau prévisionnel de livraison (x livraisons prévues popur l'année n,y livraisons prévues pour l'année n+1,...),
créer un tableau de x lignes comportant comme valeur n, y lignes dont la valeur est n+1, ...

Auriez-vous une idée svp ?
🙂

 

[XL_Luc]

Re : Création automatisée de tableau ...

Voici ue solution,

Tu peux changer la variable ligne_depart pour commencer le tableau ou tu veux

Sub creation_tableau()

Dim i As Long
Dim ligne_depart As Long

ligne_depart = 11
i = 2

While Cells(i, 1) <> ""
For j = 1 To Cells(i, 2)
Cells(ligne_depart, 1) = Cells(i, 1)
ligne_depart = ligne_depart + 1
Next
i = i + 1
Wend

End Sub

 

[pierrejean]

Re : Création automatisée de tableau ...

bonjour fabs 64

Vois si cela te convient

 

[fabs_64]

Re : Création automatisée de tableau ...

Merci Luc et Pierre Jean !
Vos solutions marchent parfaitement, meme si celle de Pierre-Jean est un peu plus rapide en temps de calcul !
🙂