verrouiller controles

Bonsoir,

http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#Collection Controles

JB
http://boisgontierjacques.free.fr/

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?

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?

Merci pour votre aide.
Alain

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:

Bonsoir,

http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#Coll...

JBhttp://boisgontierjacques.free.fr/

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?

Merci pour votre aide.
Alain- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

...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?

Merci pour votre aide.
Alain

Grand MERCI à tous les deux!!!
Bonne soirée.
Cordialement.
Alain