Color sous Excel 2000

Question

Bonjour,

Mon problème est le suivant : 
Si dans la colonne K, 'MAT' est trouvé colore la ligne en rouge.
Mais moi je n'arrive qu'a coloré la cellule contenant le mot 'MAT'.

With Worksheets("Feuil1").Range("K1:K5000")
    Set c = .Find("MAT", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Font.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

merci d'avance pour votre aide.
Cordialement,
Estelle :)

pelw · Answer

Essaye ceci :

Rows(c.Row).Font.ColorIndex = 3

@+

pelw

cs_Estelle2003 · Answer

merci mais ça marche pas car je n'ai plus de couleur.

@+
Estelle :)

cs_brico · Answer

TU PEUX CREER UNE MACRO SUR UN NOUVEAUX CLASSEUR AVEC TON FICHIER EXISTANT SUR CETTE MACRO TU FAIS UNE MISE EN FORME AU CONTIONNEL DANS TON MENU TU CHOISI EGALE A (NOM DE CE QUE TU CHERCHE TU MET UNE COULEUR)
PUIS TU Ferme ta macro tu enr tu vas dans ta macro que tu as creer ,modifié, tu ouvre le module et tu fais un copier coller du code vers ton code
brico a++++

Color sous Excel 2000

3 réponses

Discussions similaires