Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel check box vba

check box vba

1 réponse
Avatar
le quintrec
Private Sub effacer_Click()
ac1.Value =3D False
ac2.Value =3D False
ac3.Value =3D False
ac4.Value =3D False
ac5.Value =3D False
ac6.Value =3D False
ac7.Value =3D False
ac8.Value =3D False
ac9.Value =3D False
ac10.Value =3D False
End Sub

ac.... sont des checkbox
comment faire pour ne pas =E9crire 10 fois la ligne avec une=20
commande du style
dim a
for a =3D 1 to 10
"ac" & a.value=3Dfalse
next

merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Michel Gaboly
Bonsoir,

Si les CheckBox sont sur un UserForm,
quelque part dans le module celui- ci :

Dim a as Integer
For a = 1 to 10
Controls("ac" & a) = False
Next a

Autrement, pour décocher tous les CheckBox :
(toujours dans le module d'un UserForm)

Dim c As Control
For Each c In Controls
Debug.Print TypeName(c)
If TypeName(c) = "CheckBox" Then
c = False
End If
Next c



Private Sub effacer_Click()
ac1.Value = False
ac2.Value = False
ac3.Value = False
ac4.Value = False
ac5.Value = False
ac6.Value = False
ac7.Value = False
ac8.Value = False
ac9.Value = False
ac10.Value = False
End Sub

ac.... sont des checkbox
comment faire pour ne pas écrire 10 fois la ligne avec une
commande du style
dim a
for a = 1 to 10
"ac" & a.valueúlse
next

merci


--
Cordialement,

Michel Gaboly
http://www.gaboly.com