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 :
[code][/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