Détection ligne en couleur

[Claude5]

Bonjour,

dans mon exemple (PJ) existe-t-il une formule pouvant différencier la ligne en rouge des autres lignes en noir?

Merci/Claude

 

[DoubleZero]

Re : Détection ligne en couleur

Bonjour, Claude5, le Forum,

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

😕

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

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 🙂

 

[Claude5]

Re : Détection ligne en couleur

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

 

[DoubleZero]

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 🙂

 

[Claude5]

Re : Détection ligne en couleur

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