Cases à décocher

J'ai insérer des cases à cocher trouvé dans "Développeur", j'ai mis celle se trouvant dans contrôle de formulaire. Elles servent d'indication visuelles pour l'utilisateur. J'ai 51 cases à cocher, et j'aimerai réaliser une macro permettant de toutes les décocher.

Etant novice en excel et que le devoir à rendre demain, je compte sur votre participation, merci d'avance

Bonjour,

Sub Test()
    Dim i%
    For i = 1 To 51
        ActiveSheet.Shapes("Check Box " & i).ControlFormat.Value = xlOff
    Next i
End Sub

Si tes Check Box sont numérotés de 1 à 51... (Sinon, arrange-toi pour que ce soit le cas).

Cordialement.

Ils me mettent que Sub est non définie...

Où as-tu mis la macro ?

J'ai créé un nouveau module, et insérer le code.

Un module Standard !

Et tu la lances comment ?

Tu l'as bien mise en entier, avec Sub et End Sub ?

J'ai fait comme ça (à peu près)

30classeur1.xlsm (17.71 Ko)

Un peu de réflexion ! Tu lances une macro pour décocher 51 Check Box numérotés de 1 à 51 dans une feuille où il y en a 4 numérotés de 2 à 5 !

Dès qu'elle commence, pour chercher le n° 1 qui n'existe pas elle va planter !

Si tu fais dérouler la boucle i de 2 à 5, tout roule...

Il faut adapter à ta situation.

Ah oui j'avais un problèmes dans la numérotation de mes cases dans mon fichier originel désolée, merci beaucoup !

Rechercher des sujets similaires à "cases decocher"