userform-case a cocher+case chiffre

[Jazz]

Bonjour à tous

Je vous remercie d'avance pour votre aide.

1- Voilà, je veux créer un userform avec plusieurs plusieurs articles (liste de produits); vis-à-vis chaque produit une case à cocher et lorsque l'on coche la case, un champs numérique est disponible pour inscrire une valeur numérique.

2- Est-ce possible de donnée une valeur par défaut à ce champs numérique lorsque celui-ci est affiché ?

Merci d'aider un débutant

Jazz

 

[Lord Nelson]

Salut,

Tu pourrais essayer un truc comme ceci :

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
TextBox1.Visible = True
TextBox1.Text = "Nombre par défaut"
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
TextBox1.SetFocus
Else
TextBox1.Visible = False
'ou bien
'TextBox1.Enabled = False
'si tu préfères
End If
End Sub

Tu peux mettre la valeur par défaut dans la propriété Text de ton champ de saisie (ici un TextBox) soit directement dans la fenêtre des propriétés soit dans le code.

A+