Microsoft 365 Sélectionner des cellules

job75 à dit:

Bonjour bjtj, bienvenue sur XLD,

On peut faire un filtrage sur la couleur, en supposant que les cellules colorées sont en colonne A :

VB:

Sub FiltreCouleur()
Dim P As Range
With ActiveSheet.UsedRange
    .Rows(1).EntireRow.Insert 'pour fonctionner même si la 1ère cellule est colorée
    Union(.Rows(0), .Cells).AutoFilter 1, RGB(255, 0, 32), Operator:=xlFilterCellColor 'filtre couleur
    On Error Resume Next 'si aucune SpecialCell
    Set P = .Columns(1).SpecialCells(xlCellTypeVisible)
    .Rows(0).EntireRow.Delete 'ôte le filtre en même temps
     P.Copy .Cells(2, 2) 'colle en B2
     'P.Clear 'efface
     P.Delete xlUp 'supprime
End With
End Sub

A+

Cliquez pour agrandir...

bjtj à dit:

Il faut bien que je rajoute cela à la suite de mon code précédent ?

Cliquez pour agrandir...

job75 à dit:

La macro précédente ne va pas bien si le filtre automatique est en place, il faut alors l'ôter :

VB:

Sub FiltreCouleur()
Dim P As Range
With ActiveSheet.UsedRange
    .Parent.AutoFilterMode = False 'ôte le filtre s'il est en place
    .Rows(1).EntireRow.Insert 'pour fonctionner même si la 1ère cellule est colorée
    Union(.Rows(0), .Cells).AutoFilter 1, RGB(255, 0, 32), Operator:=xlFilterCellColor 'filtre couleur
    On Error Resume Next 'si aucune SpecialCell
    Set P = .Columns(1).SpecialCells(xlCellTypeVisible)
    .Rows(0).EntireRow.Delete 'ôte le filtre en même temps
     P.Copy .Cells(2, 2)
     'P.Clear 'efface
     P.Delete xlUp 'supprime
End With
End Sub

Cliquez pour agrandir...