User

[BRUNO62]

Bonjour,

J'ai besoin d'aide, merci d'avance.
Dans la pièce jointe.

Dans la Combobox1, apparaît une liste. Je souhaite lorsque x,y,et z soit selectionné voir apparaître Texbox1,Texbox2,Label 1 , Label 2

A+

 

[DL_13]

Re : User

Bonjour

Peut-être comme cela

Option Explicit
Dim i As Byte

Private Sub ComboBox1_Change()
    For i = 1 To 2
        Controls("TextBox" & i).Visible = IIf(ComboBox1.Value = "x" Or ComboBox1.Value = "y" Or ComboBox1.Value = "z", True, False)
        Controls("Label" & i).Visible = IIf(ComboBox1.Value = "x" Or ComboBox1.Value = "y" Or ComboBox1.Value = "z", True, False)
    Next i
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
    For i = 1 To 2
        Controls("TextBox" & i).Visible = False
        Controls("Label" & i).Visible = False
    Next i
With ComboBox1
    .AddItem "x"
    .AddItem "y"
    .AddItem "z"
    .AddItem "w"
End With
End Sub

Bonne Journée

 

[JCGL]

Re : User

Bonjour à tous,

Avec le code de DL_13, un peu plus court :

Option Explicit
Dim i As Byte

Private Sub ComboBox1_Change()
    For i = 1 To 2
        Controls("TextBox" & i).Visible = IIf(ComboBox1.Value <> "", True, False)
        Controls("Label" & i).Visible = IIf(ComboBox1.Value <> "", True, False)
    Next i
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    For i = 1 To 2
        Controls("TextBox" & i).Visible = False
        Controls("Label" & i).Visible = False
    Next i
    With ComboBox1
        .AddItem "x"
        .AddItem "y"
        .AddItem "z"
        .AddItem "w"
    End With
End Sub

A+ à tous

 

[DL_13]

Re : User

Bonjour JCGL, re le fil

Oui effectivement sauf que tu as certainement voulu écrire cela 🙂

Option Explicit
Dim i As Byte

Private Sub ComboBox1_Change()
    For i = 1 To 2
        Controls("TextBox" & i).Visible = IIf(ComboBox1.Value <> "w", True, False)
        Controls("Label" & i).Visible = IIf(ComboBox1.Value <> "w" , True, False)
    Next i
End Sub

sans quoi la valeur "w" dans le ComboBox1 aura le même effet que les autres valeurs 🙂

Bonne Journée

 

[JCGL]

Re : User

Bonjour à tous,

Effectivement...
Merci d'avoir corrigé ma tentative de "raccourcissement".

A++
A+ à tous

 

[laetitia90]

Re : User

bonjour BRUNO62,JCGL,DL_13
si on met les textboxs & labels dans un frame & par defaut frame1 non visible dans proprietées cela peut être plus simple

Private Sub ComboBox1_Change()
 Frame1.Visible = IIf(ComboBox1.Value <> "w", True, False)
 End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
      With ComboBox1
        .AddItem "x"
        .AddItem "y"
        .AddItem "z"
        .AddItem "w"
      End With
End Sub

 

[Robert]

Re : User

Bonjour Bruno, DL, bonjour le forum,

Autre option avec Select Case :

Option Explicit
Private tb
Private i As Byte
 
Private Sub UserForm_Initialize()
tb = Array(TextBox1, TextBox2, Label1, Label2)
With ComboBox1
    .AddItem "x"
    .AddItem "y"
    .AddItem "z"
    .AddItem "w"
End With
For i = 0 To 3
    tb(i).Visible = False
Next i
End Sub
 
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
    Case "x", "y", "z"
        For i = 0 To 3
            tb(i).Visible = True
        Next i
    Case Else
        For i = 0 To 3
            tb(i).Visible = False
        Next i
End Select
End Sub
 
Private Sub CommandButton1_Click()
Unload Me
End Sub

[Édition]
Ooops, mort de rire !!!! Bonjour JCGL, Laetita. je vote direct pour Laetitia..

 

[Fo_rum]

Re : User

Bonjour,

simple remarque pour ceux qui connaissent mal IIf* et pour un type de raisonnement peu utilisé (bien qu'intéressant à mon avis) :
avec Frame

Private Sub ComboBox1_Change()
    Frame1.Visible = ComboBox1 <> "w"
End Sub

sans Frame

Private Sub ComboBox1_Change()
    Dim i As Byte
    For i = 1 To 2
        Controls("Textbox" & i).Visible = ComboBox1 <> "w"
        Controls("Label" & i).Visible = ComboBox1 <> "w"
    Next i
End Sub

* plus gourmand en ressources

 

[laetitia90]

Re : User

re, bonjour l'ami Fo_rum🙂

trés bien vu!! dans ce cas la . l'instruction IIf sert strictement a rien 😱

 

[BRUNO62]

Re : User

Merci,JCGL,DL_13,laetitia90,Fo rum,Robert.
pour toutes ces réponses
Bonne journée
A+