XL 2016 Rendre visible un Textbox en fonction d'une Combobox

Dudu21000 · 1 Janvier 2022

Bonjour à tous,
Je suis débutant en VBA et je bloque sur un code pour rendre visible un (textbox (NumPaypal) + son Label (Lbl10)) en fonction de la valeur d'une combobox (LieuAchat).
Ma Combobox a uniquement deux valeurs "MAGASIN" ou "EN LIGNE" et je souhaiterais que mon textbox + label soient visibles uniquement quand la combobox = "EN LIGNE"
J'ai commencé un bout de code ci-dessous mais je n'arrive pas à aller plus loin pour que cela fonctionne...
Je vous remercie d'avance de votre aide. Bien à vous

Private Sub LieuAchat_Change()
If LieuAchat.Value = "EN LIGNE" Then
NumPaypal.Visible = True
Lbl10.Visible = True
Else
If LieuAchat.Value <> "EN LIGNE" Then
NumPaypal.Visible = False
Lbl10.Visible = False
End If
End If
End Sub

patricktoulon · 1 Janvier 2022

bonsoir

VB:

Private Sub LieuAchat_Change()
NumPaypal.Visible = LieuAchat.Value = "EN LIGNE"
Lbl10.Visible = NumPaypal.Visible
End Sub

patricktoulon · 1 Janvier 2022

bonsoir

VB:

Private Sub LieuAchat_Change()
NumPaypal.Visible = LieuAchat.Value = "EN LIGNE"
Lbl10.Visible = NumPaypal.Visible
End Sub

Dudu21000 · 2 Janvier 2022

Bonjour.
Merci beaucoup pour l'aide

Eric C · 2 Janvier 2022

Bonjour le forum
Bonjour Dudu21000, bonjour Patrick

Bien que la solution de Patrick soit la meilleure car condensée, tu y étais presque :
- Les propriétés "Visible" du Label et de la TextBox étant à "False",

VB:

Private Sub LieuAchat_Change()
If LieuAchat.Value = "EN LIGNE" Then
NumPaypal.Visible = True
Lbl10.Visible = True
Else
[S]If LieuAchat.Value <> "EN LIGNE" Then[/S]
NumPaypal.Visible = False
Lbl10.Visible = False
[S]End If[/S]
End If
End Sub

Bonne après-midi à toutes & à tous
@+ Eric c

XL 2016 Rendre visible un Textbox en fonction d'une Combobox

Dudu21000

XLDnaute Nouveau

patricktoulon

patricktoulon

XLDnaute Barbatruc

Dudu21000

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

Discussions similaires