XL 2016 liste deroulante et checkbox VBA

melltel · 15 Juillet 2021

bonjour,
SVP je ne parviens pas a trouver une solution malgres les exemples deja fait ici.
enfet je veux conditionner l'affichage ou visibilité des listes deroulantes avec les checkbox s'ils sont cochés.
donc si on coche les checkbox, sa rend visible la liste deroulante si non, la liste reste grissé(impossible de la séléctionnée)
mais ce que j'ai fait ne marche pas!
SVP quelq'un peut me dépanner?

Private Sub OK2_Change()
If CheckBox1Tribord.Value & CheckBox2Babord.Value Then
Liste_quantité_sortie_drisses_Tribord.Enable = True & Liste_quantité_sortie_drisses_Babord.Enable = True
Else
Liste_quantité_sortie_drisses_Tribord.Enable = False & Liste_quantité_sortie_drisses_Babord.Enable = False
End If

End Sub

youky(BJ) · 15 Juillet 2021

Bonjour Melltel,
Je verrais mieux ainsi.
Bruno

VB:

Private Sub OK2_Change()
If CheckBox1Tribord.Value=true and  CheckBox2Babord.Value=true Then
Liste_quantité_sortie_drisses_Tribord.Enable = True
Liste_quantité_sortie_drisses_Babord.Enable = True
Else
Liste_quantité_sortie_drisses_Tribord.Enable = False
Liste_quantité_sortie_drisses_Babord.Enable = False
End If
End Sub

melltel · 15 Juillet 2021

youky(BJ) à dit:

Bonjour Melltel,
Je verrais mieux ainsi.
Bruno

VB:

Private Sub OK2_Change()
If CheckBox1Tribord.Value=true and  CheckBox2Babord.Value=true Then
Liste_quantité_sortie_drisses_Tribord.Enable = True
Liste_quantité_sortie_drisses_Babord.Enable = True
Else
Liste_quantité_sortie_drisses_Tribord.Enable = False
Liste_quantité_sortie_drisses_Babord.Enable = False
End If
End Sub

Merci youky mais xa ne prend pas. j'essaie de détacher cette partie de mon projet afin de vous presenter un fichier excel

XL 2016 liste deroulante et checkbox VBA

melltel

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

melltel

XLDnaute Occasionnel

Discussions similaires