Comment peux-t'on intervenir sur tous les contrôles à la fois dans un e form?
Merci pour votre aide. Alain
lSteph
Bonjour,
Faut boucler dessus mais généralement on procède selon le type de contrôle. Exemple extrait du code d'un userform:
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 28 août, 18:32, "Alain LE GUEN" wrote:
Bonjour,
Comment peux-t'on intervenir sur tous les contrôles à la fois dans un e form?
Merci pour votre aide. Alain
Bonjour,
Faut boucler dessus mais généralement on procède selon le type de
contrôle.
Exemple extrait du code d'un userform:
Private Sub UserForm_Initialize()
Dim i As Byte
Frame2.Caption = SpinButton1
For i = 1 To 30
Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i)
Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i)
Next
End Sub
'lSteph
On 28 août, 18:32, "Alain LE GUEN" <A...@ifrance.com> wrote:
Bonjour,
Comment peux-t'on intervenir sur tous les contrôles à la fois dans un e form?
Faut boucler dessus mais généralement on procède selon le type de contrôle. Exemple extrait du code d'un userform:
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 28 août, 18:32, "Alain LE GUEN" wrote:
Bonjour,
Comment peux-t'on intervenir sur tous les contrôles à la fois dans un e form?
Merci pour votre aide. Alain
JB
Dim c As Control For Each c In Me.Controls MsgBox TypeName(c) Select Case TypeName(c) Case "TextBox", "CheckBox", "ListBox", "ComboBox", "OptionButton", "Frame" c.Enabled = False End Select Next c
Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?
Merci pour votre aide. Alain- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Dim c As Control
For Each c In Me.Controls
MsgBox TypeName(c)
Select Case TypeName(c)
Case "TextBox", "CheckBox", "ListBox", "ComboBox",
"OptionButton", "Frame"
c.Enabled = False
End Select
Next c
JB
On 28 août, 18:59, JB <boisgont...@hotmail.com> wrote:
Dim c As Control For Each c In Me.Controls MsgBox TypeName(c) Select Case TypeName(c) Case "TextBox", "CheckBox", "ListBox", "ComboBox", "OptionButton", "Frame" c.Enabled = False End Select Next c
Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?
Merci pour votre aide. Alain- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
lSteph
...enfin..si le but est vraiment de tout verrouiller:
Dim ctl As Control For Each ctl In Me.Controls ctl.Enabled = False Next
'lSteph
On 28 août, 19:02, lSteph wrote:
Bonjour,
Faut boucler dessus mais généralement on procède selon le type de contrôle. Exemple extrait du code d'un userform:
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 28 août, 18:32, "Alain LE GUEN" wrote:
Bonjour,
Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?
Merci pour votre aide. Alain
...enfin..si le but est vraiment de tout verrouiller:
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Enabled = False
Next
'lSteph
On 28 août, 19:02, lSteph <gmLSt...@gmail.com> wrote:
Bonjour,
Faut boucler dessus mais généralement on procède selon le type de
contrôle.
Exemple extrait du code d'un userform:
Private Sub UserForm_Initialize()
Dim i As Byte
Frame2.Caption = SpinButton1
For i = 1 To 30
Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i)
Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i)
Next
End Sub
'lSteph
On 28 août, 18:32, "Alain LE GUEN" <A...@ifrance.com> wrote:
Bonjour,
Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?
...enfin..si le but est vraiment de tout verrouiller:
Dim ctl As Control For Each ctl In Me.Controls ctl.Enabled = False Next
'lSteph
On 28 août, 19:02, lSteph wrote:
Bonjour,
Faut boucler dessus mais généralement on procède selon le type de contrôle. Exemple extrait du code d'un userform:
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 28 août, 18:32, "Alain LE GUEN" wrote:
Bonjour,
Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?
Merci pour votre aide. Alain
Alain LE GUEN
Grand MERCI à tous les deux!!! Bonne soirée. Cordialement. Alain
Grand MERCI à tous les deux!!!
Bonne soirée.
Cordialement.
Alain