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

Dudu21000

XLDnaute Nouveau
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
 

Eric C

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86