XL 2019 Grouper lignes colorées

[aredo]

Bonjour à tous,

Je reviens vers vous pour un code à corriger et à adapter à mon fichier.

Il s'agit d'un tableau (A1:O644), avec des formules en E - J - L - M - O - Q et des MEC en B - E

Il s'agit de regrouper toutes les lignes dont une ou plusieurs cellules sont colorées en jaune pigment, index 36 (255,255,153) - #FFFF99. L'entête doit elle aussi apparaître.

Excel 2007 et 2019

Merci au fofo

 

[wDog66]

Bonjour Aredo,

Avec ceci peut-être 🤔
dans l'exemple je ne vois que les colonnes F et G en jaune

Sub FiltrerJaune()
  Dim dLig As Long
  With ThisWorkbook.Sheets("tableau")
    dLig = .Range("F" & Rows.Count).End(xlUp).Row
    If .AutoFilterMode = False Then .Range("A1:O" & dLig).AutoFilter
    .Range("$A$1:$O$" & dLig).AutoFilter Field:=6, Criteria1:=RGB(255, 255, 153), Operator:=xlFilterCellColor
  End With
End Sub

 

[sylvanu]

Bonjour Aredo, wDog,
Un essai en PJ avec une macro Worksheet_Activate, la macro s'active quand on sélectionne la feuille Filtre.

 

[aredo]

Bonjour wDog, sylvanu

Eventuellement d'autres cellules peuvent être en jaune mais majoritairement oui ces deux colonnes.
Les deux méthodes me vont parfaitement. Merci à vous deux pour votre partage.
Comme d'habitude, le fofo est très à l'écoute.
Merci encore et bonne continuation