tri par couleur

[Vanessa]

Bonjour,

J'ai crée un fichier de données avec des codes couleurs pour pouvoir trier. Mais comment trier des couleurs ? A chaque couleur correspond une caratéristique.

Merci beaucoup, je m'arrache les cheveux !

Vanessa

 

[jmps]

Bonjour Vanessa,

Je vois un moyen simple, c'est de donner un "poids" à tes couleurs en mettant un nombre correspondant à l'ordre que tu veux dans une colonne à côté de tes cases colorées. Puis de trier sur cette colonne.

Exemple :

Jaune = 1
Bleu = 2
Rouge = 3
Etc...

Est-ce ce que tu cherchais ?

Bonne soirée.

José

 

[vanessa]

Oui, c'est bien ça.

mais j'ai plus de 700 lignes. Est-ce que je peux automatiquement affecter un numéro à une couleur ?

Merci

 

[jmps]

Re Vanessa,

Exécute cette macro dans VBA :

Sub Couleurs()
  For Each c In Range("B1:B700")
    c.Value = c.Offset(0, -1).Interior.ColorIndex
  Next c
End Sub

J'ai supposé que tes cellules colorées sont en A1:A700. Le numéro de couleur s'inscrit en B1:B700. A adapter pour ton cas.

J'espère que ça te convient.

A+

José

 

[Abel]

Bonjour Vanessa, José, tous

En complément de l'astuce de José, essaie le code suivant.
Ouvres VBA (Alt+F11) et copie ce code dans la feuille où il y a ton tableau.
Crée une colonne où il y aura les numéros de couleur.
Dans le code, adapte l'adresse "D4" (ligne et colonne) en fonction de ton tableau (colonne où sont rangées les informations en couleur et ligne du premier enregistrement).
Adapte le "i=4" avec le numéro de ligne de ton premier enregistrement.
Adapte le "Range ("c" & i) avec le numéro de colonne où tu vas indiquer le numéro de couleur.
Exécute.

Après, il ne te restera plus que le tri ou le filtre ou le café à faire.

Sub NumCouleur()
i = 4
For Each C In Range("d4", Range("d65536").End(xlUp))
Range("c" & i) = Range("d" & i).Interior.ColorIndex
i = i + 1
Next C
End Sub

Bon courage.

Abel.

 

[Abel]

Re,

Oups, pardon José.

Pas rafraichi.

Abel.

 

[jmps]

Y'a pas de mal Abel.

Le principal c'est que Vanessa conserve ses cheveux. ;°)

A+

José

 

[vanessa]

Merci beaucoup !!!!
Ouf, grâce à vous j'ai encore un peu de cheveux...

Vanessa