XL 2013 tri tableau cellule couleur

jcpat · 28 Février 2021

Bonjour,
j'espère que vous allez bien
j'ai besoin des experts que vous êtes car je cherche a trier un tableau dont certaines cellules ont une couleur (peu importe la couleur et possible aussi qu'il y ai des formules dans ces cellules ..) en extrayant le résultat dans un autre tableau et en ne conservant que les cellules sans couleur.
Dans mon exemple j'ai fait le tableau de base et un format de l'attendu - tableau cellule couleur / tableau cellule sans couleur.

Merci pour votre aide précieuse

Staple1600 · 28 Février 2021

Bonjour le fil

Puisque le titre évoque le tri
(et qu'Excel dans ses dernières versions propose le tri par couleur)
Une macro brute de décoffrage (qui fonctionne sur le fichier exemple)

VB:

Sub Macro1()
Dim a, i&, f As Worksheet: Set f = ActiveSheet
a = Array("A4:A7", "B4:B7", "C4:C7", "D4:D7")
For i = LBound(a) To UBound(a)
    f.Sort.SortFields.Clear
    f.Sort.SortFields.Add _
        Key:=Range(a(i)), _
        SortOn:=xlSortOnCellColor, _
        Order:=xlAscending
    With f.Sort
        .SetRange Range(a(i)): .Header = xlGuess
        .Orientation = xlTopToBottom: .SortMethod = xlPinYin
        .Apply
    End With
Next
End Sub

jcpat · 28 Février 2021

Merci JM pour cette solution qui répond a une partie de mon problème je joins dans mon fichier une partie que j'ai oublié d'expliquer :-(
dans le tableau j'ai des noms auquel le tri doit correspondre pour que cela reste en phase, du coup si c'est possible de faire suivre la colonne A en fonction du tri !

XL 2013 tri tableau cellule couleur

jcpat

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

jcpat

XLDnaute Occasionnel

Pièces jointes

Discussions similaires