Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Incompatibilité de type ?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

troopers87

XLDnaute Occasionnel
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 :
VB:
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 !
 
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) :

VB:
Private Sub TextBox1_change()
  CommandButton2.Enabled = IsNumeric(TextBox1) And TextBox1 <> 0
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
418
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…