Case à cocher non active

[GUYANAIS]

Bonjour

Je voudrais savoir si il existe une solution rapide pour rendre les cases à cocher d'une feuille non active. Le code pour une case est celui là pour le bouton 45 lier avec la cellule P21.

 ActiveSheet.Shapes("Option Button 45").Select
    With Selection
        .Value = xlOff
        .LinkedCell = "$P$21"
        .Display3DShading = True
    End With

Merci de votre aide

 

[soenda]

Re : Case à cocher non active

Bonjour le fil, GUYANAIS

une solution rapide pour rendre les cases à cocher d'une feuille non active

Un exemple

ActiveSheet.Shapes.Range(Array("Check Box 1", "Check Box 2", "Check Box 3")).Select
Selection.Value = False
[A1].Select

Si les boutons options sont nombreux, on peut charger l'Array dans une boucle.

A plus

 

[GUYANAIS]

Re : Case à cocher non active

Bonjour,

J'ai 23 boutons à rendre inactif. Comme je ne sais pas faire de boucle je veux bien une explication.
Merci