Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Décocher des cases à cocher

2 réponses
Avatar
Sunburn
Bonjour,
comment puis-je décocher toutes les "cases à cocher", par VBA, sur la
feuille "alpha12" par exemple ?

Merci

YANN

2 réponses

Avatar
Corto
Bonjour Sunburn,
Sub UnCheck()
For Each CB In Sheets("alpha12").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = Fals e
Next CB
End Sub

Corto

Sunburn a écrit :
Bonjour,
comment puis-je décocher toutes les "cases à cocher", par VBA , sur la
feuille "alpha12" par exemple ?

Merci

YANN




Avatar
Sunburn
OK, je te remercie

"Corto" a écrit :

Bonjour Sunburn,
Sub UnCheck()
For Each CB In Sheets("alpha12").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False
Next CB
End Sub

Corto

Sunburn a écrit :
> Bonjour,
> comment puis-je décocher toutes les "cases à cocher", par VBA, sur la
> feuille "alpha12" par exemple ?
>
> Merci
>
> YANN
>
>