Filtrer des données à partir d'un sommaire Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 29 mai 2018, 19:02

Bonjour,
Faible production pour des heures de recherches :
[/Sub Macro2()
  Worksheets("Plan d'action").range("A1:AB1000").ClearContents
  Sheets("BDD").Cells.Copy Sheets("Plan d'action").range("A1")
  Worksheets("Plan d'action").range("C:C,D:D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,S:S,V:V").EntireColumn.Hidden = True
 Dim DerLig As Long
'filtre_jaune'
Application.ScreenUpdating = False
DerLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

        range("R12:R1048576").Select
        Selection.EntireRow.Hidden = False
        range("R12").Select
    
        For i = 3 To DerLig
            If Cells(i, 1).Interior.Color <> 65535 Then
                Rows(i).Select
                Selection.EntireRow.Hidden = True
            End If
            
            range("R12").Select
        Next
     

End Sub]
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'030
Appréciations reçues : 351
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 30 mai 2018, 04:47

re..
j'ai ajouter la ligne 8
mais pour l'autre demande je n'ai pas compris. :(
alorsloulou-DU RPS ver4.xlsm
(84.44 Kio) Téléchargé 12 fois
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 30 mai 2018, 08:56

Merci Isabelle,
Le tri par Unité de travail pour le Document Unique est parfait !

Le tri par couleur (Niveau de Risque) pour les plans d'action : Je me suis dis, (mais bon), qu'il serait peut-être possible de façon analogique avec le code créer pour le tri des unité de travail, de fonctionner de la même manière pour le tri par couleur. En ce sens, un clic dans le sommaire sur plan d'action 1 (rouge), lancerait sur l'onglet plan d'action (du coup générique), le tri à partir de la BDD.

D'où ma tentative de codage, avec un copier de la BDD avec sélection des colonnes dans Plan d'action et une tentative de tri couleur ( sans succès à vrai dire).

j' espère avoir pu apporter les éléments de façon plus précise.
Merci pour tout ce temps consacré !
Bonne journée.
Marc
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 6 juin 2018, 10:36

Bonjour SabV,
J'espère que vous allez bien !
Je reviens vers vous afin de savoir si mes explications concernant le tri par niveau de risque vous semblent claires où si le projet ne va pas dans la bonne direction.
Dites moi !
A bientôt.
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'030
Appréciations reçues : 351
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 8 juin 2018, 05:49

Bonjour,
Je reviens vers vous afin de savoir si mes explications concernant le tri par niveau de risque vous semblent claires où si le projet ne va pas dans la bonne direction.
ce n'est pas clair, pourriez-vous joindre un fichier excel avec le résultat attendu ?
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 8 juin 2018, 16:34

Bonjour SabV,

Pour moi, la façon dont vous avez effectué le filtrage par unité de travail sur l'onglet DU est parfait !!
Est-il possible de fonctionner de la même manière pour filtrer par "Niveau de Risque" (colonne R de la BDD) ?

Il s'agirait alors, de cliquer sur le bouton "Plan d'action 1" de l'onglet "Sommaire", fait apparaître dans l'onglet "Plan d'action", les lignes cotées en rouge dans la colonne Niveau de Risque de l'onglet "BDD". Idem pour les 03 autres couleurs.
(clic sommaire, filtre Plan d'action de la BDD selon la couleur, présentation du filtrage dans onglet Plan d'action).

Les informations à faire apparaître dans cet onglet "Plan d'action" sont différentes de celles du DU. Il s'agirait de récupérer les colonnes A, B, R, T jusqu'à AB.

J'avais essayé cela mais avec un succès très très partiel :
[/Worksheets("Plan d'action").range("A1:AB1000").ClearContents
  Sheets("BDD").Cells.Copy Sheets("Plan d'action").range("A1")
  Worksheets("Plan d'action").range("C:C,D:D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,S:S,V:V").EntireColumn.Hidden = True
 Dim DerLig As Long
'filtre_jaune'
Application.ScreenUpdating = False
DerLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

        range("R12:R1048576").Select
        Selection.EntireRow.Hidden = False
        range("R12").Select
    
        For i = 3 To DerLig
            If Cells(i, 1).Interior.Color <> 65535 Then
                Rows(i).Select
                Selection.EntireRow.Hidden = True
            End If
            
            range("R12").Select
        Next
       ]

Je vous joints la "maquette ".
Merci et à bientôt
alorsloulou-DU RPS 4.xlsm
(73.26 Kio) Téléchargé 6 fois
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 12 juin 2018, 21:35

Bonsoir,
J'avance via les macros mais le résultat n'est pas terrible.
Si vous avez un peu de temps pour jeter un oeil à "filtrevert" (macro affecter au bouton plan d'action 4 du sommaire) dans le dossier joint. Je suis loin de la présentation faite avec le filtre VBA ...
Dites-moi.
Bonne soirée
alorsloulou-DU RPS 4.xlsm
(73.6 Kio) Téléchargé 5 fois
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 16 juin 2018, 11:07

Bonjour,
Pas d'option pour le tri couleur en VBA ?
Merci de votre retour
a
alorsloulou
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 3 mai 2018
Version d'Excel : 2016

Message par alorsloulou » 21 juin 2018, 19:03

Merci pour votre travail et à bientôt !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message