XL 2010 Filtre inversé

[krazadenn]

J'essaye d'adapter le filtre inversé de Pascal (https://www.excel-downloads.com/threads/filtre-inverse.38186/) sur mon fichier et je souhaiterai régler 2 problèmes :
- pouvoir filtrer (afficher à plusieurs colonnes) : pour l'instant, je n'ai pas trouvé comment sélectionner plusieurs colonnes pour qu'elles restent affichées
- pouvoir conserver les couleurs des cellules quand je défiltre.

Voici mon fichier en pièces jointes
Je filtre sur le ligne 1
Merci pour vos réponses

 

[Staple1600]

Bonjour le fil, krazadenn (merci de m'avoir lu là-bas )

krazadenn
Si j'ai compris ce qu'il faut filtrer/défiltrer, je propose ce petit code
(qui fait les deux actions dans la même macro)
1ère exécution: filtre
2ième exécution: défiltre

Sub Filtrer_Défiltrer()
Dim i&
Application.ScreenUpdating = False
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, i).EntireColumn.Hidden = Cells(1, i) <> 1 = Not Cells(1, i).EntireColumn.Hidden
Next
End Sub

 

[krazadenn]

Merci pour ta réponse.
Cependant, peux tu me donner le mode opératoire pour insérer le code dans VB..... car je ne sais pas faire !!!!
ou le cas échéant, je t'annexe le fichier

 

[Staple1600]

Re

Ouch, ardue est la voie, de celui qui débute en VBA veut se lancer dans l'adaptation d'un code VBA "non débutant"
Pour insérer du VBA: ALT+F11
puis (pour ce qui concerne mon bout de code) => Insertion/Module
Dans la carré blanc, (à droite), copier/coller mon code puis ALT+F11
Enfin Affichage/Macros
Et là exécuter la macro nommée: Filtrer_Défiltrer

 

[krazadenn]

ok la voie est ardue est mais si l'explication est claire , le débutant peut y arriver et je t'en remercie.
Donc j'ai bien inséré ton code....
Cependant quand j'execute la macro : c'est toutes les colonnes ou uniquement les colonnes qui portent le chiffre 1 en première ligne qui s'affiche. Or je souhaite pouvoir sélectionner plusieurs colonnes : exemple les 1,10 et 11
En outre, est il possible de remplacer l’activation du filtre ou du défiltre par un bouton sur le fichier ?

 

[Staple1600]

Re

Si j'ai compris ce qu'il faut filtrer/défiltrer

On en conclura donc que je n'avais pas compris le but recherché

NB: Il y a déjà un bouton dans ton fichier, non ?
Il y a moult tutos sur le web qui explique comment insérer un bouton sur un feuille Excel et y affecter une macro...

 

[krazadenn]

ok,
le problème principal n'est pas le bouton effectivement, mais le fait de pouvoir sélectionner plusieurs colonnes
merci quand même

 

[Staple1600]

Re

Pourquoi quand même ?
Un simple merci suffisait

Une version avec choix des colonnes (pas forcément ergonomique)
mais puisque j'ai pondu ce truc, je le poste

Sub Filtrer_Défiltrer_V2()
Dim i&, j&, colonnes
Application.ScreenUpdating = False
colonnes = Split(InputBox("Choix des colonnes?", "Test", "1,10,12"), ",")
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
For j = LBound(colonnes) To UBound(colonnes)
Cells(1, i).EntireColumn.Hidden = Cells(1, i) <> colonnes(j) * 1 = Not Cells(1, i).EntireColumn.Hidden
Next j
Next i
End Sub

 

[krazadenn]

tu as raison, merci . Quand meme , c'était pour le dérangement un dimanche ...

 

[Staple1600]

Re

Tu as essayé la seconde macro?

PS: Nous sommes là de notre plein gré.
Donc rien de dérangeant.

 

[krazadenn]

je suis en train de la tester, mais il me semble que je n'arrive pas à choisir les colonnes à afficher

 

[Staple1600]

Re

Il faut saisir dans l'InputBox les chiffres de la ligne séparés par une virgule
(comme les chiffres qui s'affichent par défaut quand on lance la macro)

 

[krazadenn]

tu veux dire qu'il faut je je modifie les termes sur VB à chaque manip ?

 

[Staple1600]

Re,

Oui et non ou non et oui.
C'est pour cela que je précisais

Une version avec choix des colonnes (pas forcément ergonomique)

Quand l'inputBox s'affiche, tu peux saisir manuellement les chiffres (en les séparant par , )
Les chiffres : 1, 10 , 12 sont juste là pour l'exemple
(et pour être sûr que l'InputBox ne sera pas vide)