XL 2016 Croix sur Check Box

[SALAH]

Bonjour à tous

J' ai un petit projet à faire sur plusieurs conditions d' encoches mais je bute car il y en a trop
Pouvez-vous m' aider dans ce sens?
Je joins un fichier pour une meilleure compréhension
En vous remerciant

 

[SALAH]

Bonjour sylvanu, Le forum

sylvanu, Oups je me suis trompé pas les check box mais plutôt les zones de listes (controle active x)

Merci

 

[sylvanu]

Bonjour,
Ça, franchement vous auriez pu trouver.
Qu'est ce que veux dire réinitialiser une liste ?
Soit tout vide :

Sub InitTout()
    ' Checkbox
    Sheets("DONNEES").Range("M2:M10").ClearContents
    ' Listes
    Sheets("DONNEES").Range("F1:K1").ClearContents
End Sub

soit avec le premier élément de chaque liste.

Sub InitTout()
    ' Checkbox
    Sheets("DONNEES").Range("M2:M10").ClearContents
    ' Listes
    Sheets("DONNEES").Range("F1") = 1
    Sheets("DONNEES").Range("I1") = 1
    Sheets("DONNEES").Range("K1") = 1
End Sub

 

[SALAH]

Bonjour sylvanu, Le forum

En effet j' aurai pu le trouver, j' imaginai un code plus compliqué

Merci