Création automatique de ligne dans excel vba

[PAGEOT37]

Bonjour,

J'ai crée sous excel un userfrom permettant son ouverture par button, et tout va bien. Lors du remplissage de l'userfrom, je dois remplir les différents champs proposés afin de les retranscrire dans un tableau et tout fonctionne correctement. Mon problème, et que j'ai un champs "Quantité" et que je voudrais qu'en fonction du nombre inscrit (exemple 10) , il insère 10 lignes dans le tableau excel d'une autre feuille en reprennant les donnée déja inscrites dans les autres champs.
Merci d'avance pour votre aide

 

[vgendron]

Hello
Dans ton code du bouton, il te suffit d'ajoutter une ligne ....Filldown

Private Sub CommandButton1_Click() 'Valider
Dim Derligne As Integer
    With Sheets(3)
        Derligne = .Range("A65000").End(xlUp).Row
        .Cells(Derligne + 1, 1) = Derligne - 1
        .Cells(Derligne + 1, 2) = ComboBox2.Value
        .Cells(Derligne + 1, 3) = ComboBox3.Value
        .Cells(Derligne + 1, 10) = ComboBox4.Value
        .Cells(Derligne + 1, 5) = ComboBox5.Value
        .Cells(Derligne + 1, 6) = ComboBox6.Value
        .Cells(Derligne + 1, 7) = TextBox3.Value
        .Cells(Derligne + 1, 9) = ComboBox7.Value
        .Cells(Derligne + 1, 4) = TextBox4.Value
        .Cells(Derligne + 1, 12) = TextBox6.Value
        If TextBox1.Value <> "" Then .Cells(Derligne + 1, 8) = CDate(TextBox1.Value)
        If TextBox5.Value <> "" Then .Cells(Derligne + 1, 11) = CDate(TextBox5.Value)
        .Cells(Derligne + 1, 1).Resize(TextBox3.Value, 12).FillDown
    End With
    Unload Me
End Sub