Discussion :

[Vidjaya]

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 :

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

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

[EricDgn]

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 :

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

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 :

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

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.

[Vidjaya]

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 :

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

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.

[Pierre Fauconnier]

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 )

[EricDgn]

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.

[Vidjaya]

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 .