Filtre excel sur plusieurs pages

JUMAY1234 Messages postés 5 Statut Membre -  
JUMAY1234 Messages postés 5 Statut Membre -
Bonjour,

J'essaye de faire une table pour la répartition de micros entre plusieurs salles. Sur ma première feuille, j'aimerais filtrer les salles utilisées et que cela s'applique sur mes autres pages, afin de masquer les lignes dont je n'ai pas besoin....

Une idée?

Bonne journée ensoleillée

3 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Incompréhensible sans connaître la structure de tin fichier
    Poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici

    Cdlmnt
    Via
    0
    1. JUMAY1234 Messages postés 5 Statut Membre
       
      Bonjour,

      Merci pour votre réponse!

      Voici le lien de téléchargement.

      https://mon-partage.fr/f/9079srd1/
      0
  2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Re

    Une possibilité

    Dans le worksheet de chaque feuille tu copies et colle la macro suivante :
    Private Sub Worksheet_Activate()
    For n = 4 To 43
    If Sheets("Besoins").Rows(n & ":" & n).Hidden = True Then ActiveSheet.Rows(n & ":" & n).Hidden = True
    Next
    End Sub


    A chaque activation les mêmes lignes que la feuille Besoins sont masquées

    Cdlmnt
    Via
    0
    1. JUMAY1234 Messages postés 5 Statut Membre
       
      ça fonctionne parfaitement!!! Merci beaucoup! Bonne après-midi!
      0
    2. JUMAY1234 Messages postés 5 Statut Membre
       
      Il y a juste un petit problème. lorsque je sélectionne plusieurs filtres, tous va bien. Mais quand je veux revenir à l'état initial en sélectionnant tous, mes autres pages ne suives plus.
      0
  3. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Exact

    Complète la ligne de la macro ainsi :
    If Sheets("Besoins").Rows(n & ":" & n).Hidden = True Then ActiveSheet.Rows(n & ":" & n).Hidden = True Else ActiveSheet.Rows(n & ":" & n).Hidden = False
    0
    1. JUMAY1234 Messages postés 5 Statut Membre
       
      C'est tout bon! Merci pour vos solutions!

      Bon dimanche à vous

      Meilleures salutations
      0