XL 2013 tri tableau cellule couleur

jcpat

XLDnaute Occasionnel
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
 

Pièces jointes

  • tri-cellule.xlsx
    9.7 KB · Affichages: 24

Staple1600

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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 !
 

Pièces jointes

  • tri-cellule.xlsm
    18 KB · Affichages: 2

Discussions similaires

Réponses
31
Affichages
1 K