Dupliquer contenu formulaire dans une feuille

Bonjour,

J'ai un formulaire VBA où je saisi le code du produit, sa désignation et quantité,

la quantité: le nombre d'étiquettes qui doit être généré.

voila un exemple:

je dois avoir comme ca

merci

Bonjour Medkabbaj, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première ligne Vide)
Dim NB As Byte 'déclare la variable NB (NomBre)

Set O = Worksheets("Feuil1") 'définit l'onglet O
'définit la première ligne vide PLV (1 si A1 est vide, sinon la ligne de la première cellule vide de la colonne A de l'onglet O)
PLV = IIf(O.Range("A1").Value = "", 1, O.Cells(Application.Rows.Count, "A").Row)
NB = CByte(Me.TextBox3.Value) 'définit le nombre NB
For I = 1 To NB 'boucle sur les I nombres de 1 à NB
    O.Cells(PLV, I).Value = Me.TextBox1 'renvoie dans la cellule ligne PLV, colonne I la valeur de la Textbox1
    O.Cells(PLV + 1, I).Value = Me.TextBox2 'renvoie dans la cellule ligne PLV + 1 , colonne I la valeur de la Textbox2
Next I 'prochain nombre de la boucle
Unload Me 'vide et ferme l'UserForm1
End Sub

ThauThème a écrit :

Bonjour Medkabbaj, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première ligne Vide)
Dim NB As Byte 'déclare la variable NB (NomBre)

Set O = Worksheets("Feuil1") 'définit l'onglet O
'définit la première ligne vide PLV (1 si A1 est vide, sinon la ligne de la première cellule vide de la colonne A de l'onglet O)
PLV = IIf(O.Range("A1").Value = "", 1, O.Cells(Application.Rows.Count, "A").Row)
NB = CByte(Me.TextBox3.Value) 'définit le nombre NB
For I = 1 To NB 'boucle sur les I nombres de 1 à NB
    O.Cells(PLV, I).Value = Me.TextBox1 'renvoie dans la cellule ligne PLV, colonne I la valeur de la Textbox1
    O.Cells(PLV + 1, I).Value = Me.TextBox2 'renvoie dans la cellule ligne PLV + 1 , colonne I la valeur de la Textbox2
Next I 'prochain nombre de la boucle
Unload Me 'vide et ferme l'UserForm1
End Sub

Merci pour ta réponse, elle est efficace, ca reste un petit truc d'organisation, c'est que je veux qu'elles s'organisent selon une feuille A4, pour que je puisse l'imprimer car ce sont des étiquettes portant le code et la désignation du produit et la feuille A4 doit contenir 120 étiquettes,

Je te remercie d'avance

Re,

Il ne te reste plus qu'à faire des essais d'impression en modifiant la hauteur des lignes et la largeur des colonnes pour avoir 120 étiquettes dans un A4. Faut que tu bosses un peu non !?