creation ligne en foction effectif

[natacha]

Bonjour,
Je souhaiterais créer autant de ligne qu'indiquer dans une colonne avec l'intitulé correspondant.
Pour être plus claire, je vous transmets un fichier avec dans la feuille 1 mes données et en feuilles 2 ce que je souhaiterais.
Je vous remercie par avance pour votre aide.
Natacha

 

[camarchepas]

Re : creation ligne en foction effectif

Bonjour ,

@ Bonjour PierreJean

Comme ceci par exemple :

le résultat est dans la feuille Result ( A créer)

Sub Prepa()
Dim FinLigne As Long, Ligne As Long
Dim Boucle As Long, Tourne As Long
Ligne = 1
FinLigne = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For Boucle = 1 To FinLigne
  For Tourne = 1 To Feuil1.Range("B" & Boucle).Value
    Sheets("Result").Range("A" & Ligne) = Feuil1.Range("A" & Boucle).Value
    Ligne = Ligne + 1
  Next Tourne
Next Boucle
End Sub

 

[pierrejean]

Re : creation ligne en foction effectif

Bonjour natacha

Vois si cela te convient

Edit ; Bing !!! Salut Camarchequandmeme

 

[laurent950]

Re : creation ligne en foction effectif

Bonsoir,

Voici aussi un bout de code :

Sub test()
Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")
Dim TabRes() As Variant
TabRes = F1.Range(F1.Cells(1, 1), F1.Cells(3, 2))

Dim F2 As Worksheet
Set F2 = Worksheets("Feuil2")
Dim cpt As Long
cpt = 1

For i = 1 To UBound(TabRes, 1)
    For j = 1 To TabRes(i, 2)
        F2.Cells(cpt, 1) = TabRes(i, 1)
        cpt = cpt + 1
    Next j
Next i

End Sub

Laurent

 

[natacha]

Re : creation ligne en foction effectif

C'est parfaite.
ça fonctionne tres bien.
Merci beaucoup.
Natacha