filtre liste bouton vba

[Luc Brière]

Bonjour,

J'ai une liste d'énoncés pour lesquels chacun de ceux-ci est associé à une case à cocher. Je veux 1) créer un bouton s'intitulant "Terminée" qui nous amènerais directement sur la feuil2 et 2) faire en sorte que seul les énoncés pour lesquels la boite à été cocher apparaissent. Par exemple :

Si j'ai sur la feuil1 :

Case coché - énoncé1
Case non coché - énoncé2
Case non coché - énoncé3
Case coché - énoncé4
Case non coché - énoncé5

Je dois retrouver seulement les énoncés 1 et 4, un en arrière de l'autre sur la feuil2, tel que:

énoncé1
énoncé4

Merci beaucoup pour votre aide, un débutant... Luc

 

[Lord Nelson]

Salut Luc,

En supposant que tu laisses 10 lignes à chacun de tes énoncés, on peut cacher ou afficher les lignes correspondantes comme ceci :

Private Sub CommandButton1_Click()
Feuil2.Range("A1:A10").EntireRow.Hidden = Not CheckBox1.Value
Feuil2.Range("A11:A20").EntireRow.Hidden = Not CheckBox2.Value
Feuil2.Range("A21:A30").EntireRow.Hidden = Not CheckBox3.Value
Feuil2.Range("A31:A40").EntireRow.Hidden = Not CheckBox4.Value
Feuil2.Range("A41:A50").EntireRow.Hidden = Not CheckBox5.Value
Feuil2.Activate
End Sub

Cette procédure est à placer dans le code de la feuille 1 auquel tu accèdes avec ALT F11 et Double-Click sur Feuil1 (Feuil1).

A+
LN

 

[Luc Brière]

Merci beaucoup Lord pour le truc..., c'est très apprécié...

Au plaisir, Luc.