XL 2019 activer commandbutton avec clic un autre commandbutton et textbox rempli

[PETIT YANNICK]

Bonjour,

Je souhaite que le bouton commandbutton5 "reservation N° plan" soit activé quand les texbox seront renseignées ( TextBox1,TextBox2,TextBox4,TextBox5,TextBox6 5 chiffre,TextBox7,TextBox8 et textbox 10 3caratères) et lorsque commandbutton2 actif .

si l'on remodifie les textbox ci dessus rendre inactif commandbutton5

je n'arrive pas a rendre inactif



quelqu'un aurait une idée?

Merci d'avance

 

[PETIT YANNICK]

@Yannick - As tu testé mon fichier ?

Je viens de tester, merci pour le retour.
Le fonctionnement est presque bon , il faudrait que le bouton commandbutton5 soit accessible après un clic sur le bouton commandbutton2.

Comment avez codé le centrage du texte dans les textbox?
j'ai ajouté entre temps sur le bouton reset ,


'Configuration bouton reset, les textbox 22 a 30 , textbox 7-8 avec des valeurs par défaut lors du clic , et TextBox31.Value = ClearContents


Private Sub CommandButton3_Click()


TextBox1.Value = ClearContents
TextBox2.Value = ClearContents
TextBox3.Value = ClearContents
TextBox4.Value = ClearContents
TextBox5.Value = ClearContents
TextBox6.Value = ClearContents
TextBox7.Value = "CREATION"
TextBox8.Value = "CREATION"
TextBox10.Value = ClearContents
TextBox11.Value = ClearContents
TextBox12.Value = ClearContents
TextBox13.Value = ClearContents
TextBox15.Value = ClearContents
TextBox16.Value = ClearContents
TextBox17.Value = ClearContents
TextBox18.Value = ClearContents
TextBox20.Value = ClearContents
ComboBox1.Value = "A"
TextBox22.Value = "YES/NO"
TextBox23.Value = "YES"
TextBox24.Value = "YES"
TextBox25.Value = "YES/NO"
TextBox26.Value = "YES/NO"
TextBox27.Value = "YES/NO"
TextBox28.Value = "YES/NO"
TextBox29.Value = "YES/NO"
TextBox30.Value = "YES/NO"
TextBox31.Value = ClearContents


End Sub

 

[Eric C]

C'est ce qu'il fait (on le voit à l'ouverture, il est grisé) et devient actif lorsque l'on appuie sur Cb2 puis redevient inactif si valeur(s) modifiée(s).

Pour le centrage dans TextBox => propriété TextAlign : Center -

 

[PETIT YANNICK]

C'est ce qu'il fait (on le voit à l'ouverture, il est grisé) et devient actif lorsque l'on appuie sur Cb2 puis redevient inactif si valeur(s) modifiée(s).

Pour le centrage dans TextBox => propriété TextAlign : Center -

les deux boutons sont actifs en même temps (sans clic sur command button2) lorsqu'on fait un reset des valeurs via CommandButton3
et que l'on renseigne jusqu'à conditions remplies

 

[Eric C]

Non, tu appuies sur Cb2 ==> Cb5 devient actif - Tu supprimes une données d'un des TextBoxs avec (*) et les 2 Cb (2 & 5) redeviennent grisés (enabled)???

 

[Eric C]

Bon j'ai repris l'idée et le code de notre ami retraité Jean-Marie et j'ai placé un label pour la valeur ODM-.
Il n'a que cela qui bloquait car TextBox6 ne peut avoir sa valeur nulle (présence permanente de ODM-). J'ai rusé en initialisant la valeur de TextBox6 par le fait que je ne prends que les derniers caractères de la cellule H21.
A te lire

 

[PETIT YANNICK]

Non, tu appuies sur Cb2 ==> Cb5 devient actif - Tu supprimes une données d'un des TextBoxs avec (*) et les 2 Cb (2 & 5) redeviennent grisés (enabled)???

Eric, Je n'arrivais plus a reproduire le problème

voici un lien pour une vidéo détaillant le problème

https://gravotech-my.sharepoint.com/:v:/p/yannick_petit/EZNoZ8cYas1FpLyvFEUzUjYBHmBJMdZgPZhs9Y8WdbBrYA?e=Z3oOq6

les deux boutons sont actifs en même temps (sans clic sur command button2) lorsqu'on
1) fait un reset des valeurs via CommandButton3
2) que l'on renseigne jusqu'à conditions texbox remplies
3)clic sur commandbutton2 (enregistrer)
4) pour X raison l'utilisateur supprime 1 a 2 lettres dans textbox 10 par exemple (meme probleme pour textbox 6)

Bon j'ai repris l'idée et le code de notre ami retraité Jean-Marie et j'ai placé un label pour la valeur ODM-.
Il n'a que cela qui bloquait car TextBox6 ne peut avoir sa valeur nulle (présence permanente de ODM-). J'ai rusé en initialisant la valeur de TextBox6 par le fait que je ne prends que les derniers caractères de la cellule H21.
A te lire

Bon j'ai repris l'idée et le code de notre ami retraité Jean-Marie et j'ai placé un label pour la valeur ODM-.
Il n'a que cela qui bloquait car TextBox6 ne peut avoir sa valeur nulle (présence permanente de ODM-). J'ai rusé en initialisant la valeur de TextBox6 par le fait que je ne prends que les derniers caractères de la cellule H21.
A te lire

Bon j'ai repris l'idée et le code de notre ami retraité Jean-Marie et j'ai placé un label pour la valeur ODM-.
Il n'a que cela qui bloquait car TextBox6 ne peut avoir sa valeur nulle (présence permanente de ODM-). J'ai rusé en initialisant la valeur de TextBox6 par le fait que je ne prends que les derniers caractères de la cellule H21.
A te lire

le bouton reset ne pose plus de pb.
il y a encore un petit problème : une fois que l'on a enregistré cliqué commandbutton2, on peut modifier les textbox (fonctionnement ce qui est souhaité), les boutons commandbutton2 et commandbutton5 reste actif si on supprime 1caractère par 1 caractère dans textbox.

est ce qu'on ajouter un contrôle sur la couleur des 2 textbox 6 et 10 en plus?
si vert bouton enregistrer s'affiche si rouge il reste grisé

du coup j'ai ajouté dans

Private Sub TextBox10_Change() et Private Sub TextBox6_Change() les conditions suivantes.

If TextBox10.BackColor = vbRed Then CommandButton2.Enabled = False
If TextBox6.BackColor = vbRed Then CommandButton2.Enabled = False
If TextBox10.BackColor = vbRed Then CommandButton5.Enabled = False
If TextBox6.BackColor = vbRed Then CommandButton5.Enabled = False

ca fonctionne comme cela.

Je ne sais pas comment les intégrer dans la macro Verif_Remplissage

 

[PETIT YANNICK]

Merci a tous de m'avoir aidé.
Bonne fin de journée