cocher toutes les cases

Bonjour,

Il n'est pas nécessaire de poster trois fois la même question pour recevoir
une réponse.

Cette procédure permet de cocher les contrôles dont le nom est 'cocherxxx'
j = 1
For i = 1 To Me.Controls.Count - 1 'Parcoure tous les contrôles du
formulaire
If Left(Me.Controls(i).Name, 6) = "cocher" Then 'Si le contrôle
s'appelle 'cocher1' ou 'cocher2' .......
Me("Cocher" & j).Value = True
j = j + 1
End If
Next i
pour cocher tous les controles de type case à cocher, tu peux utiliser
Dim ctl As Control
For Each ctl In Me.Controls
if ctl.ControlType = acCheckBox
Me.ctl.Value = True
End If
Next ctl

Gilbert

"Marcotte" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 6e6001c3b3ea$3a4b7a10$a601280a@phx.gbl...
Bonjour à tous,

J'ai un formulaire avec des onglets.
Sur l'un de ces onglets j'ai une quantité de case à
cocher.
Existe-t-il une procédure permettant à partir d'un lien
ou d'un objet de cocher toutes les cases?

Merci

Salut,
Désolé pour la triplette, mais ma fenêtre "publier un
nouveau message" ne s'est pas refermée lorsque j'ai
cliqué sur "Envoyer". Alors bêtement j'ai cliqué à
plusieurs reprises sur "Envoyer".
;-)
Merci pour la procédure

-----Message d'origine-----
Bonjour,

Il n'est pas nécessaire de poster trois fois la même
question pour recevoir

une réponse.

Cette procédure permet de cocher les contrôles dont le
nom est 'cocherxxx'

j = 1
For i = 1 To Me.Controls.Count - 1 'Parcoure tous
les contrôles du

formulaire
If Left(Me.Controls(i).Name, 6) = "cocher"
Then 'Si le contrôle

s'appelle 'cocher1' ou 'cocher2' .......
Me("Cocher" & j).Value = True
j = j + 1
End If
Next i
pour cocher tous les controles de type case à cocher, tu
peux utiliser

Dim ctl As Control
For Each ctl In Me.Controls
if ctl.ControlType = acCheckBox
Me.ctl.Value = True
End If
Next ctl

Gilbert

"Marcotte" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 6e6001c3b3ea$3a4b7a10$a601280a@phx.gbl...
Bonjour à tous,

J'ai un formulaire avec des onglets.
Sur l'un de ces onglets j'ai une quantité de case à
cocher.
Existe-t-il une procédure permettant à partir d'un lien
ou d'un objet de cocher toutes les cases?

Merci


.