Aide pour macro couleur police

Bonjour,

J'ai une macro qui me permet de distinguer des lignes de fonds coloré (ici rouge) en ajoutant la mention 1 dans la colone 1 pour chaque ligne colorée.

J'essaie d'obtenir la même chose pour distinguer des lignes dont la police de caractère est colorée (ex rouge).

Quelqu'un sait il ce que je dois modifier ? J'avoue que je tourne en rond.

Voici la macro

Option Explicit

Sub Macro1()

Dim Cell As Range

For Each Cell In Range("A1:A20")

If Cell.Interior.ColorIndex = 3 Then

Cell = 1

End If

Next Cell

End Sub

Merci

Bonjour,

Tu devrai retirer du titre le 'Urgent"

çà ira certainement + vite !

Amicalement

Claude

Bonjour,

Vous avez sans doute raison, j'avais hésité sur ce titre. Mais là c'est vraiment urgent à vrai dire car je dois faire un tableau à partir de ces informations avant lundi !Je galère sur cette macro depuis ce matin...

Bien cordialement

Bonjour

Si

lignes de fonds

ce sont les bordures tu peux essayer

Option Explicit
Sub Macro1()
Dim Cell As Range
  For Each Cell In Range("A1:A20")
    If Cell.Borders(xlEdgeBottom).ColorIndex = 3 Then
      Cell = 1
    End If
  Next Cell
End Sub

si pas ça désolé

Bonne journée

re,

si c'est suivant la couleur police

Sub Macro1()
Dim Cell As Range
    For Each Cell In Range("A1:A20")
        If Cell.Font.ColorIndex = 3 Then
        Cell = 1
        End If
    Next Cell
End Sub

Merci

C'est pile ce que je cherchais, 1 apparait en face de chaque ligne de couleur de police rouge. C'est nickel.

Encore merci à vous deux.