Bonjour,
Existe-il un moyen d'appliquer une même propriété d'un seul coup, dans le
code à tous les contrôles d'un userform ou d'un frame?
Par exemple, .visible ou bien les vider?
Merci pour votre aide.
Alain
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Alain
En supposant que tu aies dans ton frame des boutons d'options et des cases à cocher, voici un exemple de code :
'----------------------------------- Sub RendreInVisible()
For Each c In Me.Frame1.Controls 'Rendre les contrôles invisible 'c.Visible = False
' déselectioner les OptionButton c.Value = 0
'Pour Sélectionner tous les Checkbox If TypeName(c) = "CheckBox" Then c.Value = -1 End If
Next End Sub '-----------------------------------
Salutations!
"Alain" a écrit dans le message de news:% Bonjour, Existe-il un moyen d'appliquer une même propriété d'un seul coup, dans le code à tous les contrôles d'un userform ou d'un frame? Par exemple, .visible ou bien les vider? Merci pour votre aide. Alain
Bonjour Alain
En supposant que tu aies dans ton frame des boutons d'options et des cases à cocher, voici un exemple de code :
'-----------------------------------
Sub RendreInVisible()
For Each c In Me.Frame1.Controls
'Rendre les contrôles invisible
'c.Visible = False
' déselectioner les OptionButton
c.Value = 0
'Pour Sélectionner tous les Checkbox
If TypeName(c) = "CheckBox" Then
c.Value = -1
End If
Next
End Sub
'-----------------------------------
Salutations!
"Alain" <ALGi@ifrance.com> a écrit dans le message de news:%23pDMaWjYEHA.2840@TK2MSFTNGP11.phx.gbl...
Bonjour,
Existe-il un moyen d'appliquer une même propriété d'un seul coup, dans le
code à tous les contrôles d'un userform ou d'un frame?
Par exemple, .visible ou bien les vider?
Merci pour votre aide.
Alain
En supposant que tu aies dans ton frame des boutons d'options et des cases à cocher, voici un exemple de code :
'----------------------------------- Sub RendreInVisible()
For Each c In Me.Frame1.Controls 'Rendre les contrôles invisible 'c.Visible = False
' déselectioner les OptionButton c.Value = 0
'Pour Sélectionner tous les Checkbox If TypeName(c) = "CheckBox" Then c.Value = -1 End If
Next End Sub '-----------------------------------
Salutations!
"Alain" a écrit dans le message de news:% Bonjour, Existe-il un moyen d'appliquer une même propriété d'un seul coup, dans le code à tous les contrôles d'un userform ou d'un frame? Par exemple, .visible ou bien les vider? Merci pour votre aide. Alain
