UserForm afficher Frame en fonction d'un ComboBox

thehaker42

XLDnaute Nouveau
Bonjour,
j'aimerais afficher un cadre et l'OptionButton qui est a l'intérieur du cadre en fonction du combo box.
Si je sélectionne la ligne 1 dans le ComboBox j'affiche Frame et OptionButton
Sinon je laisse cacher Frame et OptionButton

-Avec ce code le Cadre est toujour caché

Le but est d'ouvrir des fichiers words (només 1A, 1B, 1C, 2 et 3)

Merci

Code:
Private Sub UserForm_Activate()
    
    If ComboBox1 <> 1 Then
        Me.Frame1.Visible = False
        Me.OptionButton1.Visible = False
        Me.OptionButton2.Visible = False
        Me.OptionButton3.Visible = False
        
    Else
        Me.Frame1.Visible = True
        Me.OptionButton1.Visible = True
        Me.OptionButton2.Visible = True
        Me.OptionButton3.Visible = True
    End If

End Sub

Regarde la pièce jointe userform.xls
 

Pièces jointes

  • userform.xls
    28.5 KB · Affichages: 116
  • userform.xls
    28.5 KB · Affichages: 106

thehaker42

XLDnaute Nouveau
Re : UserForm afficher Frame en fonction d'un ComboBox

merci :)
j'ai meme amélioré
rendant invisible le cadre tant que la ligne 1 n'est pas sélectionné

Code:
Private Sub UserForm_Activate()
    
        Me.Frame1.Visible = False
        Me.OptionButton1.Visible = False
        Me.OptionButton2.Visible = False
        Me.OptionButton3.Visible = False
End Sub

Private Sub combobox1_change()
    
    If ComboBox1 <> 1 Then
        Me.Frame1.Visible = False
        Me.OptionButton1.Visible = False
        Me.OptionButton2.Visible = False
        Me.OptionButton3.Visible = False
        
    Else
        Me.Frame1.Visible = True
        Me.OptionButton1.Visible = True
        Me.OptionButton2.Visible = True
        Me.OptionButton3.Visible = True
    End If

End Sub
 

Discussions similaires