Filtre automatique

[Chombi]

Bonjour à tous

En utilisant un filtre auto il est possible de sélectionner tout ou rien via la case à cocher du haut.(j’apprends rien à personne)
Mais je cherche le moyen d'inverser la sélection, je m'explique:
par ex sur un filtre de 10 cases on sélectionne les 5 premières puis en un clic via un bouton par ex on désélectionnerait les 5 premières et on sélectionnerait les 5 dernières

Est ce que quelqu'un aurait une solution?

Merci

 

[Chombi]

Re : Filtre automatique

Re,

oui en effet ça passe vite, je met fin à ce sujet sauf bien sur si une idée lumineuse surgit

merci pour votre patience

A bientôt

 

[job75]

Re : Filtre automatique

Re,

Bien comprendre :

- Excel 2003 : 2 critères maximum par colonne, récupérables

- Excel 2007 : nombre illimité de critères, seuls les 2 premiers sont récupérables.

A+

 

[BOISGONTIER]

Re : Filtre automatique

Bonsoir,

Sur l'exemple de la PJ, la fonction FiltreActuel() récupère les 3 items sélectionnés (Issy+Neuilly+Sévres)


JB

 

[Chombi]

Re : Filtre automatique

Re,

Merci pour la réponse

ci joint : ce que je fais sur un champ
est ce qu'avec votre réponse je saurais adapter sur plusieurs champs ?

A bientôt

 

[BOISGONTIER]

Re : Filtre automatique

Essai d'inversion des villes et des services sur les champs Ville et service

Sub inversefiltreVille()
  Set Rng = Range("c6")
  tmp = FiltreActuel("bd", Rng)
  Set d = CreateObject("scripting.dictionary")
  Set Rng2 = Rng.Offset(1).Resize(1000)
  For Each c In Rng2: d(c.Value) = "": Next
  Dim b()
  n = 0
  For Each c In d.keys
    If InStr(tmp, c) = 0 Then n = n + 1: ReDim Preserve b(1 To n): b(n) = c
  Next c
  ActiveSheet.Range("$A$6:$G$1000").AutoFilter Field:=3, Criteria1:=b, Operator:=xlFilterValues
  Calculate
End Sub

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreAutoInverse.xls



JB

 

[Chombi]

Re : Filtre automatique

Re,

je ne sais que dire.....
GÉNIAL tout simplement

Mille merci

au plaisir de vous lire

A bientôt