vba excel condition sur textbox, combobox Résolu/Fermé

Question

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

gillesdemev · Answer

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

gillesdemev · Answer

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

Vba excel condition sur textbox, combobox

2 réponses