XL 2019 afficher ou masquer des textbox et label selon la valeur d'un combobox

Dudu2 à dit:

Bonjour,

VB:

Private Sub Combobox_Change()
    If Me.Combobox.List(Me.Combobox.ListIndex) = "FULL" Then
        Me.TextBox6.Visible = True
        Me.Label26.Visible = True
    Else
        Me.TextBox6.Visible = False
        Me.Label26.Visible = False
    End If
End Sub

Private Sub UserForm_Initialize()
    Combobox.List = Array("BASIC", "COMPLET", "FULL", "PREMIUM")
    Me.TextBox6.Visible = False
    Me.Label26.Visible = False
End Sub

Cliquez pour agrandir...

_Thierry à dit:

Re @Dudu2

Oh ce sont des habitudes de vieux singes.... Comme j'ai dit si, dans l'évolution, si on joue à "cache-cache" ...

Le loop X permet ceci :

VB:

    For Each CTRL In Me.Controls
        For x = 1 To 6
            Select Case x
            Case 4 'Option non Full
                If CTRL.Name = "TextBox" & x Or CTRL.Name = "Label" & x Then
                 CTRL.Visible = False
                End If
            Case 3, 2, 1 'Option Basic par exemple ...
                If CTRL.Name = "TextBox" & x Or CTRL.Name = "Label" & x Then
                 CTRL.Visible = False
            End Select
        Next x
    Next CTRL

A force de faire des grimaces, on se ride, mais on anticipe, et sur 6 controls ca ne mange pas de pain ce double loop.

Bonne soirée
@+Thierry

Cliquez pour agrandir...