Tri par couleur de caractères

[Eric D]

Bonjour le Forum,

J'ai cherché dans l'historique un ou des sujets sur le tri par couleurs de caractères, mais je n'ai trouvé que des solutions pour le tri par couleurs de cellules.

Quelqu'un saurait-il comment procéder à un tri avec comme clé la couleur des caractères ?

Merci d'avance pour vos tuyaux.

Eric

 

[François]

Bonjour

Voila un début de solution pour les caractères en couleur (à adapter) :

Sub Tot()

Dim COL As Range, Cell As Range

Sheets("Feuil2").Select

Set COL = Range("F2:F" & NL2)
For Each Cell In COL
If Cell.Font.ColorIndex = 3 Then
TotF = TotF + Cell.Value
End If
Next

Range("F" & NL2 + 1).Value = TotF

End Sub

Bon courage
François

 

[macpoy]

bonjour le forum, eric, françois,
voici un petit classeur qui correspond certainement à ce que tu cherches.
bon excel, @ +