afficher un bouton sous condition de deux combobox

[chaelie2015]

Bonjour Forum
ci dessous le code

Private Sub mois_imprimer_Change()
bt_imprimer.Visible = mois_imprimer.ListIndex <> ""
bt_imprimer.Visible = année_imprimer.ListIndex <> ""
End Sub

Afficher le bouton (bt_impimer) si les deux comoboBox ne soient pas vide mais ca n'a pas fonctionné ?
merci

 

[Staple1600]

Bonjour

Une piste à creuser
(je te laisse faire les adaptations au niveau des noms des controles)

Private Sub ComboBox1_Change()
CommandButton1.Visible = (Len(ComboBox1) > 0) * (Len(ComboBox2) > 0)
End Sub

EDITION: Salut Roblochon

 

[Hasco]

Bonjour,
Hello @Staple1600


Ou si l'on veut utiliser listindex:

Private Sub mois_imprimer_Change()
bt_imprimer.Visible = mois_imprimer.ListIndex > -1 And année_imprimer.ListIndex > -1
End Sub

A+

 

[chaelie2015]

Bonsoir Staple1600, Roblochon
Merci pour les réponses
ci rattaché fichier test , mais ça n'a pas fonctionné?
a+

 

[ChTi160]

Bonsoir
juste pour vous saluer et participer
il faut savoir que
ListIndex renvoie un chiffre 0 premiere position
1 deuxieme etc（ voir limites）et
-1 vide
jean marie

 

[job75]

Bonsoir à tous,

Bah quand on veut programmer il faut avoir un minimum de jugeote :

Private Sub ComboBox1_Change()
CommandButton1.Visible = ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1
End Sub

Private Sub ComboBox2_Change()
CommandButton1.Visible = ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1
End Sub

A+

 

[chaelie2015]

Bonsoir job
merci pour la réponse.

MON souci est résolu
a+

 

[job75]

Vous croyez que le féminin de résolu c'est résolute ??? Corrigez vite cette faute grossière !

 

[chaelie2015]

Vous croyez que le féminin de résolu c'est résolute ??? Corrigez vite cette faute grossière !

Re
Oui mais au CANADA

 

[job75]

A Montréal on parle très bien français => problème résolu, à Toronto => solved problem.

 

[chaelie2015]

A Montréal on parle très bien français => problème résolu, à Toronto => solved problem.

Resolute est la deuxième ville la plus au nord du Canada