commandbutton visible ou opérationnel que si saisie dans textbox réalisée

[pascal21]

bonjour
je cherche le code qui permet de:
dans un usf j'ai un textbox1 pour écrire dans une cellule (b4) et un commandbutton1 pour valider et fermer l'usf
comment faire pour que le commandbutton ne soit opérationnel ou visible que si une saisie a été faite dans le textbox
merci

 

[Pierrot93]

Re : commandbutton visible ou opérationnel que si saisie dans textbox réalisée

Bonjour Pascal

regarde le code ci dessous, à placer dans le module de l'usf :

Private Sub UserForm_Initialize()
CommandButton1.Visible = False
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With CommandButton1
    If TextBox1.Value <> "" Then .Visible = True Else .Visible = False
End With
End Sub

bonne journée
@+

 

[Pierrot93]

Re : commandbutton visible ou opérationnel que si saisie dans textbox réalisée

Re

tu peux également coder comme ceci l'événement Exit du "textbox", un peu plus court :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.Visible = IIf(TextBox1.Value <> "", True, False)
End Sub

@+

 

[pascal21]

Re : commandbutton visible ou opérationnel que si saisie dans textbox réalisée

bonjour pierrot
je viens d'essayer les 2 codes que tu m'a donné et ça ne fonctionne pas
je me suis peut-être mal expliqué
au lancement de l'usf
bouton invisible
si je commence à écrire quelque chose dans le textbox = bouton visible

 

[Pierrot93]

Re : commandbutton visible ou opérationnel que si saisie dans textbox réalisée

Re

si tu veux que le code s'exécute lors de la mofification du textbox, tu places le code dans l'événement "Change" du textbox.

Private Sub TextBox1_Change()

@+

 

[pascal21]

Re : commandbutton visible ou opérationnel que si saisie dans textbox réalisée

voila merci c'est parfait
j'avais bien essayé l'évennement change mais je n'avais pas trouvé la bonne formulation pour le code
bonne journée bon weekend