XL 2016 Incompatibilité de type ?

[troopers87]

Bonsoir à tous,

J'ai un petit souci dans le contrôle de mon userform :
je souhaite bloquer l'accès au CommandButton1 tant que l'utilisateur n'a pas saisit une valeur dans la Textbox1.

Le problème, c'est que lorsque l'utilisateur se trompe dans sa saisie et efface sa saisie, il reçoit le message d'erreur :

Erreur d'exécution 13 : Incomptabilité de type

.
Voici mon code :

Private Sub Textbox_montant_depenses_change()
'si quelque chose est saisi dans la textbox1, alors le bouton d'incorporation des données dans la feuille Excel s'affichent
If TextBox1.Text <> "" Or TextBox1.Text <> 0 Then
CommandButton2.Enabled = True
End If
End Subs

Merci d'avance pour votre aide !

 

[Si...]

Re

Je n’avais pas vu l’exclusion du 0 (zéro) qui s’est rajoutée.

Ça ne passera plus ainsi (sans CDbl ni Val) :

Private Sub TextBox1_change()
  CommandButton2.Enabled = IsNumeric(TextBox1) And TextBox1 <> 0
End Sub