Vba excel condition sur textbox, combobox
Résolu
Bonjour,
j'essaie de mettre une condition sur les textbox et les combobx de mes userform
- pour la textbox, je voudrais qu'il n'accepte pas autre chose que des chiffes (voire si possible , un certain nombre de chiffre)
- pour la liste deroulante, je voudrais qu'il previenne l'utilisateur s'il n'a oulié de sélectionner une valeur par une msgbox
merci d'avance
j'essaie de mettre une condition sur les textbox et les combobx de mes userform
- pour la textbox, je voudrais qu'il n'accepte pas autre chose que des chiffes (voire si possible , un certain nombre de chiffre)
- pour la liste deroulante, je voudrais qu'il previenne l'utilisateur s'il n'a oulié de sélectionner une valeur par une msgbox
merci d'avance
2 réponses
-
Bonjour rouzb
Voici ce que je te propose
dans les
Private Sub TextBox1_Change()
testnum = IsNumeric(UserForm1.TextBox1)
If testnum = False Then
MsgBox "valeur nom numérique"
End If
End Sub
A tout à l'heure pour la suite -
la suite ,
Liste déroulante :
Dans un userform je connais ListBox et ComboBox
avec listbox le premier item des la liste est sélectionné par défaut
on peut mettre une petite "case à cocher" devant chaque item de façon automatique en modifiant le paramètre
Styles du contrôle ListBox (voir aide ) dans microsoft visual basic
Dans ce cas la première case à cocher est cliquée
Avec Combobox c'est différent .
Je suppose que derrière tu as un bouton pour lancer une action
J'ai fait ce test et ça marche bien si rien est sélectionné dans la liste de ComboBox1
et que le clique le bouton CommandButton1
J'ai bien le message
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
If UserForm1.ComboBox1 = "" Then
MsgBox "choisir un item)"
End If
End Sub
Voilà
Je pense avoir répondu à tes 2 questions mais je vais te faie un aveu:
Je suis en train de faire un petit outil pour le club de Rugby de senlis et les essais que je viens de faire vont me servir aussi
Bonne journée
