Création d'un userforms pour enregistrement dans une BDD

Bonjour à tous,

Je commence juste à utiliser le VBA.
Je dois créer un userforms pour facilité l'enregistrement de nouveaux produits dans une BDD.
J'ai designé le userforms, rédigé la caption des checkbox et prévu la liste déroulante des combolist. Et j'ai beaucoup de Textbox.
A présent j'aimerai savoir comment (à partir d'un bouton "enregistrer") je peux copier ces informations dans la première ligne vide de la BDD.

Code:

---

1 2 3 4 5

'Déterminer la dernière ligne du tableau DernLign = Worksheets("BDD").Range("B" & Rows.Count).End(xlUp).Rows   'Copier le nom du produit dans la première cellule vide de la colonne B Worksheets("BDD").Range("B" & DernLign + 1) = Textbox1_number.Value

---

Merci d'avance à ceux qui sauront me donner un coup de main

Bonjour,

C'est presque ça. Attention ce n'est pas .Rows mais .Row (sans s). Par ailleurs il ne faut pas utiliser _Change mais _AfterUpdate. Ce qui donne:

Code:

---

1 2 3 4 5

Private Sub TextBox1_AfterUpdate() Dim Lign As Long Lign = Worksheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1 Worksheets("BDD").Range("A" & Lign) = TextBox1.Value End Sub

---

Maintenant je crains que ce ne soit pas une bonne idée d'enregistrer les changements un à un. Il est sans doute préférable d'avoir un bouton qui enregistre toutes les valeurs au même moment pour faire une nouvelle ligne de données. Quelque chose du genre:

Code:

---

1 2 3 4 5 6 7

Private Sub btnEnregistrer_Click() Dim Lign As Long 'Cells(Rows.Count, 1).End(xlup).Row Lign = Worksheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1 Worksheets("BDD").Range("A" & Lign).Value = TextBox1.Value Worksheets("BDD").Range("B" & Lign).Value = TextBox2.Value End Sub

---

Cordialement.

Merci Eric Dgn,

C'est exactement ce que je voulais faire. Ça fonctionne parfaitement pour les textbox. Mais le principe est-il le même pour les checkbox et les combolist ?
Sachant que pour chaque checkbox j'ai rédigé la caption tel que

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox1_Change()   Select Case CheckBox1.Value Case True: CheckBox1.Caption = "X" Case False: CheckBox1.Caption = "" End Select   End Sub

---

Est-ce qu'il faut que j'écrive :

Worksheets("BDD").Range("C" & Lign).Value = TextBox1.Value
Worksheets("BDD").Range("D" & Lign).Value = TextBox2.Value
Worksheets("BDD").Range("E" & Lign).Value = Checkbox1.Caption

Merci de vos réponses.

Salut.

tu peux t'inspirer de ma contribution sur le sujet....

Tu gagnerais, au niveau de ton code VBA, à utiliser les tableaux structurés, qui faciliteront et généraliseront l'écriture de ton code VBA (comme je le montre d'ailleurs dans ladite contribution ;) )

Bonjour,

Quand on clique sur un case à cocher (CheckBox) sa valeur change.
Si la case apparaît cochée, elle vaut -1 (=Vrai, =Oui),
quand elle apparaît décochée elle vaut 0 (=Faux, =Non)
et si elle apparaît noire, c'est qu'elle n'a pas encore de valeur.
Il n'y a aucun code à prévoir pour cela.

Pour récupérer la valeur:
Worksheets("BDD").Range("E" & Lign).Value = Checkbox1.Value .

Cordialement.

Bonjour à tous,

Merci pour vos conseils et vos ligne VBA.
Plus que quelques problèmes à résoudre et j'aurais enfin la BDD souhaitée :D.