Selection et action sur plusieurs checkboxs

[kwakos]

Bonjour à tous...

J'ai cherché dans le forum mais n'ai pas trouvé quelque chose qui correspond à mon problème.
Je vous explique...
Voilà, sur ma feuille principale j'ai une checkbox1 qui lorsqu'elle est décochée cache des lignes (et qd cochée les fait apparaitre bien sur)... Jusque la je m'en suis sorti
Maintenant je voudrais qu'en décochant cette checkbox1, cela me cache automatiquement les checkbox suivantes (2 à 24)... Je n'ai pas envie de taper 23 fois la meme forumle, je suis sur qu il existe une formule qui permet la meme action sur de nombreux checkbox en quelques mots... 😱)

Merci à tous

a+

 

[ZZR09]

Re : Selection et action sur plusieurs checkboxs

Bonjour kWakos, le forum,

Et bienvenue sur ce forum...
essaye ça, c'est du VB à insérer dans un checkbox ActiveX:

Private Sub CheckBox1_Click()
Dim I As Byte

For I = 2 To 24
    ActiveSheet.Shapes("CheckBox" & I).Visible = CheckBox1
Next I
End Sub

A+

 

[kwakos]

Re : Selection et action sur plusieurs checkboxs

Merci ZZR09

C'est exactement ce qui me fallait...
Quelle serait la formule correspondante pour cacher une liste de lignes de la feuille ?

Activesheet.rows(i).visible = checkbox1 ???

Merci encore

 

[ZZR09]

Re : Selection et action sur plusieurs checkboxs

Bonjour kWakos,

bien vu mais, dans un classeur, c'est "Hidden":

Private Sub CheckBox1_Click()
Dim i As Byte

For i = 2 To 24
    Rows(i).Hidden = Not (CheckBox1)
Next i
End Sub

😉

 

[kwakos]

Re : Selection et action sur plusieurs checkboxs

Merci pour tout ZZR09 !!!! 🙂

Cela m'economise plusieurs dizaines de lignes...
Je vois que j'ai encore bcp à apprendre....

Encore merci