Validation de toutes les cases a cocher activées

Bonjour,

je dispose d'un fichier ou il y a 6,7,8... cases à cocher formulaire sur lesquelles je contrôles l'activation de chacune d'entres elles pour activer une conditions. Le problème est que quand je rajoute une case à cocher je dois rajouter la ligne dans le VBA correspondant au contrôle de l'activation de celle ci.

Je voulais savoir si il existe une macro qui permettrait de checker l'activation de toutes les cases a cocher quelques soit le nombres de cases.

Merci

Bonsoir,

en admettant que vos contrôles sont sur une feuille, et que leur numérotation est progressif, sans "trou" il y a ce qui suit pour les mettre à "cocher" :

Sub init_coche()
    Application.ScreenUpdating = False
    Dim i As Integer
    With ActiveSheet
        For i = 1 To 21
            .Shapes("Case à cocher " & i).Select
            With Selection
                .Value = xlOn
            End With
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Ici le nom des boites à cocher est constitué de la manière suivante : "Case à cocher " + un chiffre allant de 1 à 21 :

Case à cocher 1, Case à cocher 2 etc

.value = xlOn sert à mettre à "cocher", xlOff sert à "décocher"

Si vous rajoutez un contrôle il suffit de changer le 21 part 22 par exemple.

Après il y a possibilité de faire une boucle indéfinie, mais là ce soir je cale

@ bientôt

LouReeD