Bouton grisé avec condition

[wolf2012]

Bonjour le forum;

j'ai une userform comportant cinq (05) textbox "dates", je veux que tant que les champs sont vides alors le boutton reste grisé.

ci joint le fichier

 

[pierrejean]

Re : Bouton grisé avec condition

Bonjour wolf2012

Une première version (un peu bourrin )

 

[laetitia90]

Re : Bouton grisé avec condition

bonjour wolf2012

une methode en utilisant moussemove adapter si date ou pas date

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
 x = 0
 For Each j In Controls
 If TypeName(j) = "TextBox" Then
 If (j) <> "" Then x = x + 1
 End If
 Next
 CommandButton1.Enabled = IIf(x = 5, 1, 0)
End Sub

edit salut PierreJean pas vu bisous

 

[wolf2012]

Re : Bouton grisé avec condition

Bonjour; pierrejean
Merci beaucoup pour cette version qui répond à mes besoins
merci encore une fois

 

[wolf2012]

Re : Bouton grisé avec condition

Bonjour; Laetitia
Merci pour le code je l'ai adapté et ça marche bien
Merci