afficher et masquer les Frame(s) sous condition

[chaelie2015]

Bonsoir Forum
Je souhaite simplifier ce code
c-a-d si combobox1 est different de vide alors masquer frame2 et afficher frame3 sinon l'inversse.

Private Sub ComboBox1_Change()
If Frame1.ComboBox1.Value <> "" Then Frame2.Visible = False 'And Frame3.Visible = True
If Frame1.ComboBox1.Value = "" Then Frame2.Visible = True 'And Frame3.Visible = False
End Sub

Salutations

 

[ChTi160]

Bonsoir
peut être pour frame2

frame2.visible＝iif（frame1.combobox1.value＝“”,true,false)

jean marie

 

[chaelie2015]

frame2.visible＝iif（frame1.combobox1.value＝“”,true,false）

Bonsoir JEAN
merci pour la réponse

Private Sub ComboBox1_Change()
Frame2.Visible = IIf(Frame1.ComboBox1.Value = “”, True, False)
Frame3.Visible = IIf(Frame1.ComboBox1.Value = “”, False, True)
End Sub

Souci est resolut
a+

 

[patricktoulon]

bonsoir
la valeur de la combo en elle même peut être convertie en booléen

Private Sub ComboBox1_Change()
Frame2.Visible = not Frame1.ComboBox1.Value = “”
frame3.visible=not frame2.visible
End Sub