detection de police et copie de ligne

[lagodille]

bonsoir
j'ai un tableau dans lequel j'ai des pourcentages en police rouge d'autres en police bleue et enfin les autres en police noire.
je voudrais que pour chaque cellule de police rouge, la ligne correspondante soit copiée et collée dans un autre tableau et que pour chaque cellule de police bleue, la ligne correspondante soit copiée et collée dans un tableau encore différent le tout pour creer 2 tableaux issus du premier ; l'un avec toutes les lignes contenant des cellules de police rouge, l'autre avec les lignes contenant des cellules de police bleue. les lignes contenant que des cellules de police noire etant supprimées.
Ai je eté explicite ? je l'espère
merci
cordialement
pascal

 

[Cousinhub]

Re : detection de police et copie de ligne

Bonsoir,
comment est déterminée la couleur de tes pourcentages?
Format?
MEFC?
Manuellement?

 

[lagodille]

Re : detection de police et copie de ligne

bonjour
c'est du style :
For Each k In Range("AS5:AS2404")
Select Case k.Value
Case "o"
k.Offset(0, -40).Font.ColorIndex = 3
Case "n"
k.Offset(0, -40).Font.ColorIndex = 32
Case "m"
k.Offset(0, -40).Font.ColorIndex = 15
Case "ras"
k.Offset(0, -40).Font.ColorIndex = 1
End Select
Next
pour chaque colonne .....
cdlt