If - TextBox : Problème de 2 conditions à réunir

Bonjour,

Besoin d’une petite aide pour l’activation d’un bouton dans un Userform,
Objectif : si TextBox 1 Vide ET si TextBox 2 Vide : Boutoncommande 1 ne peut pas fonctionner.
Si je supprime (AND Textbox2<>"") cela fonctionne pour le textbox1 uniquement ce qui est logique mais je n’arrive pas à jumeler les 2 conditions.
Merci beaucoup

Private Sub CommandButton1_Click()

If TextBox1 <> «  » And TextBox2 <> «  » Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

End Sub

Complément d’information : Fonctionne si Private Sub TextBox1_Change() au lieu de CommandButton1_Click
Merci pour l’aide

Bonjour
As tu essayé comme ceci :

If Me.TextBox1 <> « » And Me.TextBox2 <> « » Then

Peut être la solution

Essaies

Non malheureusement.
Merci pour ton aide.
J’ai configuré le bouton comme ne fonctionnant pas si rien n’est écrit.
Il me reste plus qu’à trouver pour que les 2 conditions fonctionnent ce serait parfait!
Si tu as d’autres idées je suis preneur.

As tu essayé avec uniquement le Texbox2 ?
Si le fonctionement a marché avec le Texbox1 seul il doit fonctionner de la même façon avec le Texbox2 seul
Tout les Texbox ont les même conséquences quant à leur donnée aucune raison que l un pour une même donnée induise une conséquence différente d un autre Texbox pour cette même donnée
Si conséquence différente donnée différente par d autre alternative
Voir aussi si le pb n est pas au niveau du libellé de la Texbox
Comme Texbox_2 au lieu de Texbox
Une piste à étudier

Texbox_2 au lieu de Texbox2
Desolé

J’ai revérifié et en effet Textbox1 seul fonctionne / Textbox2 seul fonctionne mais pas les 2 … Moi pas comprendre. Merci encore.

J’ai changé et opté pour un message d’erreur mais je ne sais toujours pas pourquoi. Merci encore pour ton aide.

Il faudrait que tu me transmettes ton fichier sans donnée confidentielle pour que je regarde
Il y a forcément une explication
C est certainement soluble mais il faut que je puisse l etudier
A toi de voir si tu peux

Tu peux essayer comme ceci cela revient au même mais écrit différemment :

Private Sub CommandButton1_Click()

If TextBox1 <> « » Then
If TextBox2 <> « » Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Else
CommandButton1.Enabled = False
End If

End Sub

Formuleexcel.xlsm (33,3 Ko)

Voici le fichier.
Merci de prendre du temps mais j’ai réussi en contournant. Le problème est situe au niveau du bouton ajouter un correspondant : tu vois le formulaire et c’est dedans. Je souhaite que la case ajouter un correspondant ne fonctionne pas quand on ajoute nom-prénom et/ou adresse mail pour avoir les 2 informations complètes.
Merci encore. Je suis curieux de savoir la réponse.

Bonjour
Je viens de réaliser un test en récupérant les lignes qui te posent soucis :

Private Sub CommandButton1_Click()
If TextBox1 <> « » And TextBox2 <> « » Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

et de les mettre sur le VBA du bouton "Ajouter Correspondant’

J’ai donc au départ cette écran :

image

le bouton « Ajouter Correspondant » n’est pas grisé donc opérationnel

J’ai cliqué sur ce bouton et suite à un arrêt mis en place par mes soins sur la ligne de code incriminé le traitement c’est arrêté dessus :

Ligne en jaune

Puis j’ai pas à pas fais progresser le traitement en appuyant sur la touche F8
au premier appui voilà sa progression :

le traitement a correctement réagi en rapport à l’instruction :

If TextBox1 <> « » And TextBox2 <> « » Then

il s’est positionné comme attendu sur la ligne de code « Else »

Puis j’ai fais continuer sa progression nouvel appui su F8 j’ai obtenu ceci :

Le traitement est bien sur la bonne ligne de code pour désactiver le bouton

J’ai activer le traitement jusqu’à son terme et de bien obtenir au final la désactivation du bouton (bouton Ajouter Correspondant grisé) :

image

Pour moi cette procédure fonctionne correctement

Essaies de ton côte avec cette méthodologie
Un point d’arrêt sur la ligne de code qui pause problème (clique à gauche de la ligne sur la petite bande grise verticale une ligne horizontale marron apparait )
Pour info ce point d’arrêt est supprimé par cette même action
Teste en réel :
Activation du bouton « Ajouter Correspondant »
Au point d’arrêt progression pas à pas par utilisation de la touche F8 pour constater où le traitement progresse
Fais ces essais et rends moi compte

Je t’ai modifié ton fichier pour que lorsque on active le bouton « Nouveau Correspondant » dans le userform qui s’ouvre le bouton « Ajouter Correspondant » reste inactif (grisé) tant que les texbox « Nom et Prénom du correspondant » et Adresse E-mail ne sont pas rempli
Pour que le bouton « Ajouter Correspondant » devienne opérationnel il faut saisir les 2 textbox
N’est ce pas là ce que tu souhaites ?
Il faut déterminer ensuite l’action de ce boutonFormuleexcel.xlsm (32,2 Ko)

Bonjour ,

C’est exactement ça il faut que les 2 cases soient remplis. Je regarde ça juste après.

Merci

Le ven. 17 avr. 2020 à 11:53, FFO via Forum Formule Excel contact@formuleexcel.com a écrit :

Merci j’ai rajouté sur chaque paragraphe TexteChange1ou2 à la fin :
Else : Me.commandbutton1=False et c’est parfait
Cela permet que si on efface le bouton redevient inactif et là c’est au top!
Un grand Merci
Maintenant mon problème c’est les combobox … Pas facile d’être débutant mais c’est super intéressant.

Je vois que tu es très dégourdi et perspicace
Bravo
Tu m’as coupé l’herbe sous les pieds car j’y avais songé et comptais te le proposer
A ta dispo pour la suite si besoin

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.