verrouiller controles

Le
Alain LE GUEN
Bonjour,

Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?

Merci pour votre aide.
Alain
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4759521
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"
Bonjour,

Comment peux-t'on intervenir sur tous les contrôles à la fois dans un e form?

Merci pour votre aide.
Alain


lSteph
Le #4759501
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"
Bonjour,

Comment peux-t'on intervenir sur tous les contrôles à la fois dans un e form?

Merci pour votre aide.
Alain


JB
Le #4759441
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
Bonsoir,

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

JBhttp://boisgontierjacques.free.fr/

On 28 août, 18:32, "Alain LE GUEN"


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 -



lSteph
Le #4759411
...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
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"
Bonjour,

Comment peux-t'on intervenir sur tous les contrôles à la fois dans une form?

Merci pour votre aide.
Alain




Alain LE GUEN
Le #4759381
Grand MERCI à tous les deux!!!
Bonne soirée.
Cordialement.
Alain
Publicité
Poster une réponse
Anonyme