Vérif. saisie Textbox

[mécano41]

Bonjour,

J'ai une Textbox nommée TxtNbCouleurs dans laquelle je souhaite entrer une valeur, en vérifiant qu'elle est numérique et > 2. Le problème est que je ne peux pas entrer de nombre de 10 à 19 (erreur dès que l'on tape 1) ni effacer le 2 qui est inscrit d'office en cas d'erreur (erreur puisque =0). Attention, je souhaite que cette vérification s'effectue avant de valider l'ensemble de la boîte de dialogue.

Sub TxtNbCouleurs_Change()
Dim Msg As String
Msg = ("La valeur est < 2 ou non numérique" & vbCrLf & vbCrLf & "Veuillez donner une valeur correcte")
If TxtNbCouleurs < 2 Or Not IsNumeric(TxtNbCouleurs) Then
    TxtNbCouleurs.SetFocus
    TxtNbCouleurs.Value = 2
    MsgBox Msg
    Exit Sub
End If

J'ai regardé dans toutes les propriétés des Textbox mais je n'ai rien trouvé.

Si quelqu'un a une idée, merci d'avance.

Cordialement

 

[PascalXLD]

Re : Vérif. saisie Textbox

Bonjour

il faut travailler sur l'evenemetn exit et non change de ta textbox

 

[Excel_lent]

Re : Vérif. saisie Textbox

Salut mécano,
bonjour à tous et aux autres

Comme le dit le nom, le contenu de"TextBox" est du texte !
Peut être ainsi :

Sub TxtNbCouleurs_[B]Exit(ByVal Cancel As MSForms.ReturnBoolean)[/B]
Dim Msg As String
Msg = ("La valeur est < 2 ou non numérique" & vbCrLf & vbCrLf & "Veuillez donner une valeur correcte")
If Not IsNumeric(TxtNbCouleurs) Or [B]Val([/B]TxtNbCouleurs[B])[/B] < 2 Then  'ou [B]TxtNbCouleurs <>"2"[/B]
    TxtNbCouleurs.SetFocus
    TxtNbCouleurs.Value = 2 [B]'tu récupères un texte pas un nombre ![/B]
    MsgBox Msg
    Exit Sub
End If
End Sub

 

[mécano41]

Re : Vérif. saisie Textbox

Bonjour,

Merci à tous les deux. Cela fonctionne parfaitement avec Exit que je ne connaissais pas!

Pour le numérique dans une textbox, je sais que l'on devrait utiliser Val mais comme EXCEL se débrouille tout seul sans mettre d'erreur ... j'oublie souvent de le faire! Mais j'avoue que ce n'est pas très "propre" !

Encore merci et bonne journée

Cordialement