Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…