[Résolu][VBA][UserForm] Vidange de textbox conditionnel dans un userform

[Verba_Tim]

Salutation

J'ai de nouveau un problème avec mon vilain userform...
Tout marchait très bien jusqu'à ce que je trouve qu'il serait bien de vider automatiquement mes textbox en cas de saisi invalides...
Le problème est que la commande suivante ne marche pas ("incompatibilité de type"...)
Aurais-je mal utiliser ma formule??
Mon petit bout de code rebel:

If IsNumeric(TextBox1.Value) = False Then MsgBox ("Valeur non numérique") And TextBox1.Value = ""

Une idée??

Au plaisir de vous lire,

VB_Tim

 

[Verba_Tim]

Re : [VBA][UserForm] Vidange de textbox conditionnel dans un userform

Solution trouvé ^^
Il suffit de faire:

Do Until X = 1
If IsNumeric(TextBox1.Value) = False Then
    MsgBox ("Valeur non numérique")
Else:
    Exit Do
End If
TextBox1.Value = Null
Loop

Merci quand même 🙂

Bonne journée 😉

VB_Tim