Group By COLOR dans son propre groupe

Avec RESPECT Comment peut-on Grouper par couleur? J'ai une colonne avec beaucoup de groupes de nombres colorés. Je veux les séparer au sein d'une macro dans leur propre groupe par couleur. VEUILLEZ AIDER. CORDIALEMENT

Vous pouvez le faire manuellement (à partir des commandes du ruban) , mais si vous avez besoin de VBA, effectuez le processus manuel avec l'enregistreur activé et modifiez le résultat. Disons que nous commençons par:

Lancer ceci:

Sub Macro1()
    With ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields
        .Clear
        .Add(Range("A2:A23"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
    End With

    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:A23")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

produira: