Désactivation d'un bouton selon critère dans un userform

Bonjour,

Dans un userform de saisie, je souhaite griser des boutons lorsque ma textbox est = vide.

Mon code est le suivant :

Private Sub txtNom_Change()

If txtNom <> "" Then

BtnAjout.Enabled = True 'Active le bouton

BtnEffacer.Enabled = True 'Active le bouton

BtnModifier.Enabled = True 'Active le bouton

BtnRechercher.Enabled = True 'Active le bouton

BtnFiche.Enabled = True 'Active le bouton

Else

BtnAjout.Enabled = False 'Désactive le bouton

BtnEffacer.Enabled = False 'Désactive le bouton

BtnModifier.Enabled = False 'Désactive le bouton

BtnRechercher.Enabled = False 'Désactive le bouton

BtnFiche.Enabled = False 'Désactive le bouton

End If

End Sub

Or lors de l'initialisation de mon formulaire, les boutons sont apparents, c'est seulement lorsque je saisi 1 caractère et que je l'efface que la procédure s'exécute ?

Merci pour l'aide que vous pourrez m'apporter

Jacques

Bonsoir,

rajouter le code de désactivation des boutons dans Private Sub UserForm_Initialize()

Salut,

Ben OUI ! c'est tellement simple comme ça...

Un grand MERCIIIIIIII à AlgoPlus.

Jacques