Filtre "Réappliquer tout" (Filtre) dans toutes les feuilles de calcul

Buongiorno,

Ho 4 fogli di lavoro:

Foglio1

Foglio2

Foglio3

Foglio4

Vorrei sapere se è presente una macro VBA all'apertura del file, il filtro "Riapplica tutto" (Filtro) in tutti i fogli di lavoro funziona?

Grazie per l'aiuto.

Buongiorno,

Prova questo, macro da incollare nel modulo "ThisWorkBook

Private Sub Workbook_Open()
    For i = 1 To Sheets.Count
        Sheets(i).AutoFilter.ApplyFilter
    Next i
End Sub

Sinceramente

Bonjour Arturo83,

Bonsoir,

Quel rapport entre votre fichier et la demande initiale?

Cher Arturo83,

Pas bon, je vais expliquer la même chose:

-La feuille "Mois en cours" utilise la colonne de filtre D de la plus ancienne à la date d'aujourd'hui ;

-Feuille "Mois prochain" utilise le filtre colonne D de la plus ancienne jusqu'à la date du mois suivant uniquement ;

-Feuille "2 mois plus tard" utilise le filtre colonne D de la plus ancienne jusqu'à la date seulement 2 mois plus tard ;

- La feuille "Général" utilise le filtre colonne D de la plus ancienne à la plus récente ;

-Fiche "A coller" utilisez le filtre colonne D de la plus ancienne à la plus récente.

Merci

Bonjour,

Ouvrez le fichier que vous avez joint et essayez d'y appliquer ce que vous demandez, parce que moi, je ne vois aucun rapport entre le fichier et la demande.

Etes-vous sûr d'avoir déposé le bon fichier?

Cdlt

Je ne peux pas joindre le fichier.

Le fichier consomme 2,42 Mo

Vous n'êtes pas obligé de mettre le fichier en entier, quelques dizaines de lignes de chaque feuille suffit.

Bonjour; salut,

voici le fichier joint.

Même si j'ai supprimé 2 classeurs

il me dit "Service non disponible" même si un fichier de 990kb ?

Salut

link file is

https: // easyupload.io / zx9nwt

Saluti

Désolé, je ne peux pas l'ouvrir, réduisez encore le nombre de lignes