Remplissage de couleur le contenu d'une ligne suivant condition
#1
Débutant XLPages

Inscription: 06/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 23-03-2012 23h35
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,
Hors Ligne
Rapport   Haut 

Re: Remplissage de couleur le contenu d'une ligne suivant condition
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-03-2012 00h25
Bonsoir warmaster, le Forum,

Pas sûr d'avoir tout compris...

Le cas échéant, tu peux peut-être tester comme ça :
Dim Cell As Range, Cel As Range, Plage As Range
'
'
    With Sheets("Feuille1")
        Set Plage = .UsedRange
        For Each Cell In .Range("C1:C" & .Cells(.Rows.Count, 3).End(xlUp).Row)
            If Not IsEmpty(Cell) Then
                With Sheets("Feuille2")
                    Set Cel = .Cells.Find(Cell.Value, LookIn:=xlValues)
                    If Not Cel Is Nothing Then
                        With Cell
                            Application.Intersect(.EntireRow, Plage).Font.ColorIndex = 3
                            .Font.ColorIndex = xlAutomatic
                        End With
                    End If
                End With
            End If
        Next Cell
    End With

Par ailleurs, je te remercie de lire et mettre en pratique cette FAQ : pour insérer proprement du code VBA dans tes posts.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Remplissage de couleur le contenu d'une ligne suivant condition
#3
Débutant XLPages

Inscription: 06/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 24-03-2012 00h41
Re bonsoir,

ALors là c'est hallucinant, cela repond completement a ce que je voulais, dire que depuis plusieurs jours je cherche... et en quelques minutes j'ai la reponse. Chapeau bas !

Merci encors, et bravo pour la maitrise et tes compétences ne sont pas a mettre en cause !
Promis si je dois a nouveau demander de l'aide ici, je ferais attention au code... désolé pour ce coups ci.
Cordialement,
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes