Bonjour
Il y a plus "simple". Dans les propriete du checkbox, tu peux l'affecter a une cellule. Et donc cette cellule aura comme valeur VRAI si la checkbox est cochée, et FAUX dans le cas contraire.
De plus, si tu saisis FAUX dans la cellule, la checkbox se decoche toute seule.
Dans les propriétés de ta checkbox, tu vas sur LinkedCell et tu mets la cellule servant de reference.
C'est beaucoup plus facile de traiter des cellules que les checkbox en elles memes.
Tu peux aussi te servir de Name, mais il faut connaitre au prealable le nom que tu leurs a donné. Toujours pareil, dans les propriétés.
Pour le cas d'utilisation de la propriété Name, des petits indices pour faire reference a tes CheckBox :
Code :
- Sub toto()
- z = Feuil1.OLEObjects.Count
- For i = 1 To z
- NomCtrl = Feuil1.OLEObjects(i).Name
- If InStr(1, NomCtrl, "Check" ) <> 0 Then 'Si le nom contient Check, c'est une Checkbox
- Feuil1.OLEObjects(i).Object.Value = False 'par exemple pour toutes les remettre a Faux
- End If
- Next
- End Sub
|
Cordialement
Message édité par SuppotDeSaTante le 24-03-2009 à 15:26:23
---------------
Soyez malin, louez entre voisins !