Command-boutton

[fvb175]

Bonjour😕
J'ai crée un userform dans le cadre d'un programme de gestion de stocks, seulement voilà !!!! Est ce que quelqu'un pourrait m'aider concernant la formule pour le bouton "VALIDER" de façon à ce que les données saisie dans le formulaire soit validées et que la saisie passe à la ligne suivante sur la feuille.

Je vous remercie d'avance.😉
FVB;

 

[soenda]

Re : Command-boutton

Bonjour le fil, fvb175

Puisque tu nous donnes assez peu d'info, on va faire des suppositions:

Admettons
1 - que ton USF comprenne 10 textBox
2 - que tu charges la valeur de ces TextBox dans un tableau de String
3 - que tu charges tes données dans Feuil1
4 - que les cellules de la colonne A soit remplies à chaque enregistrement

Tu pourrais (par exemple), dans chaque "Private Sub TextBoxN_Change()"

Private Sub TextBox0_Change()
    t(0) = TextBox0.Value
End Sub
Private Sub TextBox1_Change()
    t(1) = TextBox1.Value
End Sub
...

Et avant la première Sub, en haut de la page

Dim t(9) as string

Puis dans le code ton bouton validé, tu pourrais placer

Private Sub btnValider_Click()
    With Feuil1
        .[A1:J1].Offset(.[A1].End(xlDown).Row) = t
    End With
End Sub

Si tu ne parviens pas à adapter, joins nous un petit exemple de ton projet (sans données confidentielles).

A plus

 

[fvb175]

Re : Command-boutton

Merci beaucoup Soenda ;-)
Fvb175 (arnaud)