Rapport de message :*
 

Remplissage de couleur le contenu d'une ligne suivant condition

Titre du sujet : Remplissage de couleur le contenu d'une ligne suivant condition
par warmaster le 23/03/2012 23:35:47

Bonsoir toutes et tous,

Je reviens ici, car malgré des recherches et tests (non concluant), je ne parvient pas a obtenir ce que je voudrais.
A savoir: dans une feuille "1" excel je synchronise des données externes, puis compare des données d'une autre feuille "2", si une occurence est trouvée, la (les) cellule(s) apparaissent en rouge (code que vous m'avez fourni ici même).

Une partie du code :

With Sheets("Feuille1")
  For Each Cell In .Range("C1:C" & .Cells(Rows.Count, "C").End(xlUp).Row)
    If Not IsEmpty(Cell) Then
      With Sheets("Feuille2")
        With .Cells
          Set Cel = .Find(Cell.Value, LookIn:=xlValues)
          If Not Cel Is Nothing Then
            With Cell
              .Font.Bold = True
              .Font.ColorIndex = 3
            End With
          End If
        End With
      End With
    End If
  Next Cell

Je pense qu'il est possible dans la condition de faire apparaitre la ligne contenant les données en couleur (que ce soit le fond des cellules ou idéalement le texte) autre que celle y apparaissant.

Si quelqu'un a une idee, piste ou autre... je suis preneur.
Vous en remerciant par avance.
Cordialement,