Détection ligne en couleur

DoubleZero

XLDnaute Barbatruc

• 10 Juillet 2015

• #2

Re : Détection ligne en couleur

Bonjour, Claude5, le Forum,

Claude5 à dit:

...différencier la ligne en rouge des autres lignes en noir?..

Cliquez pour agrandir...

😕

Une possibilité avec le code ci-après, dès lors qu'une cellule contient une police rouge (en colonne a).

Code:

Option Explicit
Sub Police_rouge_repérer()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i).Font.ColorIndex = 3 Then Rows(i).Interior.ColorIndex = 36 Else Rows(i).Interior.ColorIndex = xlNone
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Claude5

XLDnaute Occasionnel

• 10 Juillet 2015

• #3

Re : Détection ligne en couleur

Double Zero, j'ai cette alerte (PJ). Je dois louper un truc

 

Pièces jointes

• Doc1.docx

  47.9 KB · Affichages: 11
• Doc1.docx

  47.9 KB · Affichages: 13
• Doc1.docx

  47.9 KB · Affichages: 11

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Juillet 2015

• #4

Re : Détection ligne en couleur

Re-bonjour,

Aucune écriture ne doit apparaître au dessus de "Option Explicit", à moins qu'elle ne soit insérée sous forme de commentaire.

A bientôt 🙂

 

Vote positif 0 Vote négatif

Claude5

XLDnaute Occasionnel

• 10 Juillet 2015

• #5

Re : Détection ligne en couleur

[résolu] Double Zero merci beaucoup. Ca marche! Claude

 

Vote positif 0 Vote négatif