compléter un tableau à l'aide d'un Userform

[Jacques]

Bonjour à tous,

J'ai un problème certainement très simple avec le fichier joint, j'aimerai compléter le tableau autant de fois que possible à l'aide d'un Userform déclenché par un bouton.
Le bouton est créé, l'userform aussi mais malheureusement mes connaissances sur le sujet s'arrêtent là.
Merci à tous de votre aide.

Jacques

 

[Hervé]

Bonjour

Private Sub Boutonvalider_Click()
Dim l As Integer
l = Sheets("feuil1").Range("a65000").End(xlUp).Row + 1
With Sheets("feuil1")
.Range("a" & l).Value = TextDésignation
.Range("b" & l).Value = TextClient
.Range("c" & l).Value = TextRéférence
.Range("d" & l).Value = TextCoût
.Range("e" & l).Value = TextType
End With
End Sub

A placer dans le bouton valider.

Salut
Hervé

 

[Jacques]

Merci beaucoup pour ton aide et ta rapidité, ce forum est vraiment formidable.

Jacques

 

[Jocelyn]

Bonjour le Forum,
Bonjour Jacques, Hervé,

Jacques et si tu veux reinitialisé tes textbox apres l'enregistrement tu peux ajouté :

TextDésignation = ""
TextClient = ""
TextRéférence = ""
TextCoût = ""
TextType = ""

entre la ligne "end with et end Sub"

A+
Jocelyn

 

[Jacques]

Merci pour cette info, qui va m'être très utile pour la suite.

Jacques

 

[Jacques]

Jocelyn, Hervé,

J'aurai encore besoin d'un peu d'aide, j'ai modifié le code afin d'afficher un message de refus s'il manque le 1er critère. Pas trop de problème jusque là. Le soucis étant qu'il m'insert quand même la ligne incomplète ou une ligne vide si tout est vide.
Voici le code, comment puis-je le modifier :

Private Sub Boutonvalider_Click()
Dim l As Integer
If TextDésignation = "" Then
Refus.Show
End If
l = Sheets("feuil1").Range("a65000").End(xlUp).Row + 1
With Sheets("feuil1")
.Range("a" & l).Value = TextDésignation
.Range("b" & l).Value = TextClient
.Range("c" & l).Value = TextRéférence
.Range("d" & l).Value = TextCoût
.Range("e" & l).Value = TextType
End With
TextDésignation = ""
TextClient = ""
TextRéférence = ""
TextCoût = ""
TextType = ""
Ajout_référence.Hide
End Sub

Merci de votre aide.

Jacques

 

[Hervé]

Bonsoir

Voir en pièce jointe j'ai modifié :

- ajouté un msgbox pour la désignation
- ajouté un controle de séparation décimale
- ajouté un controle pour obligé une saisie numérique pour le cout
- Affecté le bouton annulé à un unload

Evite d'utilisé .hide, préfére lui unload.nomdetonuserform

Si tu utilises unload à la fin de la macro, tu n'est pas obligé de vider les textbox (merci Jocelyn), tu fais un double emploi.

Salut
Hervé

 

[Jacques]

Merci pour toutes ces infos, j'ai plus grand chose à faire du coup, c'est formidable.

@ plus

Jacques