XL 2010 Macro ajouter un caractère si couleur de remplissage est rouge

L

Lolote83

XLDnaute Barbatruc

• 27 Avril 2017

• #2

Code:

Sub RajouteFCouleurRouge()
    For Each xCell In Range("A1:A11")
        If xCell.Interior.Color = 255 And Right(xCell.Value, 1) <> "F" Then
            xCell.Value = xCell.Value & "F"
        End If
    Next xCell
End Sub

Salut Elodie195,
Peut être avec ce petit bout de code

@+ Lolote83

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 27 Avril 2017

• #3

Bonjour à tous,

Avec lire.cellule

JHA

 

Pièces jointes

• Couleur.xlsm

  11.3 KB · Affichages: 29

Vote positif 0 Vote négatif

E

Elodie195

XLDnaute Occasionnel

• 27 Avril 2017

• #4

Bonjour Lolote83 et JHA,

Merci beaucoup pour votre aide c'est parfait !

Bonne journée.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 27 Avril 2017

• #5

Bonjour à tous,

Pour des explications sur lire.cellule, voir ici le topic de Fev 2005
https://www.excel-downloads.com/threads/astuce-recente-lire-cellule.32955/

JHA

 

Vote positif 0 Vote négatif

E

Elodie195

XLDnaute Occasionnel

• 27 Avril 2017

• #6

Merci JHA

 

Vote positif 0 Vote négatif