Discussion :

[marsutof]

Bonjour à tous,

Tous d'abord voici le code d'un de mes boutons de mon userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
Dim L
L = Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = Ref
Range("B" & L).Value = ComboBox1
Range("C" & L).Value = ComboBox2
Range("D" & L).Value = ComboBox3
Range("E" & L).Value = ComboBox4
 
    Unload Me
    entree.Show
 
End Sub

A partir de là les informations saisie dans les textbox et combobox s'enregistre dans chaque ligne des colonnes mentionné.
Seulement je souhaite rajouter un textbox me permettant de saisir un nombre (ex: 3) ce qui après validation de mon bouton insérera autant de fois les valeurs de la textbox (Ref) et combobox (1,2,3,4) dans mon tableau.
Par exemple, si je saisie la référence TOTO dans la textbox "Ref" et la valeur 3 dans la nouvel textbox, il enregistrera trois ligne dans mon tableau avec en colonne A trois fois la référence TOTO.
Ça fait des doublons mais c'est voulu.

Merci d'avance pour votre aide.

Cordialement

[kiki29]

Salut, peut-être qu'un coup d'œil ici : Obliger une saisie numérique dans une TextBox te sera utile.