Case à cocher fonctionne qu'à moitié

  • Initiateur de la discussion Initiateur de la discussion ant75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ant75

XLDnaute Junior
Bonjour,
J'ai un petit soucis en essayant de faire un mélange de "filtre automatique", de Macro et de Case à cocher.
En colonne A j'ai le nom de quelques produits.
Chaque produit peut correspondre à 3 criteres A, B ou C (colonnes B,C,D).
J'ai créé une macro qui sélectionne que les livres de critére A, et l'ai assigné à une case à cocher.
Ca fonctionne très bien, quand je coche cette case je n'ai que les livres de critére A, le Gros Problème c'est quand je décoche cette case ça ne me réaffiche pas tous les produits, quelqu'un a une idée ?
Au final c'est un fichier qui doit servir à une sélection multi critéres, ici c'est un exemple avec 3 critéres, mais au final il y aura 10 critéres.
Par exemple si on coche A et C on a tous les produits ayant ces 2 critéres, si on décoche C on se retrouve alors avec tous les produits de critéres A, etc
 

Pièces jointes

Re : Case à cocher fonctionne qu'à moitié

Salut Ant75,

Tu ne teste pas si ton CheckBox est coché ou non
Et donc tu appliques systématiquement un filtre !

Voilà le code pour A
Code:
Sub A()
  ActiveSheet.Shapes("Check Box 4").Select
  If Selection.Value = xlOn Then
    Range("B5").AutoFilter Field:=1, Criteria1:="A"
  Else
    Range("B5").AutoFilter Field:=1
  End If
  Range("B5").Select
End Sub

A+
 
Re : Case à cocher fonctionne qu'à moitié

Bonjour,

Code:
Sub A()
    If [B1] = True Then
      Selection.AutoFilter Field:=1, Criteria1:="A"
    Else
      Selection.AutoFilter Field:=1
    End If
End Sub
Sub B()
    If [C1] = True Then
      Selection.AutoFilter Field:=2, Criteria1:="B"
    Else
      Selection.AutoFilter Field:=2
    End If
End Sub
Sub CC()
    If [D1] = True Then
      Selection.AutoFilter Field:=3, Criteria1:="C"
    Else
      Selection.AutoFilter Field:=3
    End If
End Sub

JB
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
176
Réponses
10
Affichages
204
Réponses
1
Affichages
135
Réponses
18
Affichages
1 K
Réponses
11
Affichages
1 K
Retour