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
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
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
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 :
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 :
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é) :
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)
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