Filtre multiple

Bonjour le forum,

J'ai un soucis, je souhaite avoir un filtre avancé dans un tableau.

Filtré pour le meme critères les lignes et les colonnes.

Ci joint un exemple avec plus d'explications.

Merci pour votre aide

Jules

Bjr,

le "filtre" colonne ne peut sa faire qu'en VBA

voici

Bonjour,

Oui en VBA c'est bien aussi.

Peux-tu m'aider ?

regarde ci-dessus

j'ai un peu avancé sans VBA

mais si on a des données stockées sous forme de couleur, Excel ne comprend pas

et je suis coincé

il faudrait mettre des O à la place des X blancs

sans quoi en effet, seul VBA peut le faire

bon, pour un fichier "loisirs", on continuera avec des saisies en couleur et du VBA

Correction sinon le bouton disparait

Merci beaucoup à vous.

Cependant la méthode de Steelson m'à l'air plus fonctionnelle.

Est-ce possible d'avoir un bouton par villes ??

jules_57 a écrit :

Est-ce possible d'avoir un bouton par villes ??

voici

à toi de cliquer sur le bouton

Merci beaucoup.

Les boutons répondent tous au meme maccros, comment configurer les villes?

copie les boutons et change le nom

c'est tout !

c'est le nom du bouton qui est pris en paramètre

choix = (ActiveSheet.Shapes.Range(Array(Application.Caller)).TextFrame.Characters.Text)

J'ai deja essayé mais quand je copie cela me met un chiffre.

Est ce normal ?

redonne moi ce que tu as transformé pour voir ce qui cloche !!

Ci joint le fichier plus complet de ce que je recherche.

Il faut absolument que les parties en verte restent avec le filtre.

Merci beaucoup pour ta patience

il faut tout reprendre, ce n'est plus un copier/coller car ce ne sont plus les mêmes types de boutons

ce fichier est un xlsx donc sans macro ...

par ailleurs il y a en effet plus de lignes et colonnes à figer

je vais reprendre demain matin

ok à demain alors.

A noter que le fichier joint n'est qu'un petit aperçu de l'ensemble du fichier.

Bonne soirée

Steelson a écrit :

il faut tout reprendre, ce n'est plus un copier/coller car ce ne sont plus les mêmes types de boutons

si tu utilises ce type de boutons, le paramètre ville s'obtient alors par

ActiveSheet.Buttons(Application.Caller).Caption

je remets à jour le reste

Bonjour

j'ais mis la macro de Steelson dans un userforme avec une combobox

A voir

A+

Maurice

j'ai mis en variable les colonnes & lignes de début et fin à partir d'une zone qui est l'intersection de la colonne des villes et de la ligne des villes, zone appelée ... villes

le code unique quelque soit le bouton est :

Sub filtrer()

    choix = ActiveSheet.Buttons(Application.Caller).Caption

    Cells.Select
    Selection.EntireColumn.Hidden = False
    Selection.EntireRow.Hidden = False
    If choix = "Tous" Then Exit Sub

    depuisL = Cells(1, [villes].Column).End(xlDown).Row
    depuisC = Cells([villes].Row, 1).End(xlToRight).Column
    jusqueL = Cells(Rows.Count, [villes].Column).End(xlUp).Row
    jusqueC = Cells([villes].Row, Columns.Count).End(xlToLeft).Column

    For col = jusqueC To depuisC Step -1
        If Cells([villes].Row, col) <> choix Then Columns(col).EntireColumn.Hidden = True
    Next
    For lig = jusqueL To depuisL Step -1
        If Cells(lig, [villes].Column) <> choix Then Rows(lig).EntireRow.Hidden = True
    Next

End Sub