1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic

Color sous Excel 2000

Signaler
Messages postés
24
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
11 septembre 2003
 -
Messages postés
42
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 octobre 2003
 -
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 :)
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
148
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
14 février 2005
 5
Essaye ceci :

Rows(c.Row).Font.ColorIndex = 3

@+

pelw
Réponse 2 / 3
Messages postés
24
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
11 septembre 2003
merci mais ça marche pas car je n'ai plus de couleur.

@+
Estelle :)
Réponse 3 / 3
Messages postés
42
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 octobre 2003
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++++
Posez votre question