Colorer les lignes sous condition

Résolu/Fermé

Condition

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - Modifié le 13 déc. 2019 à 17:38
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 28 déc. 2019 à 12:02

Bonjour mes amis,

J'ai une macro qui colore en rouge les cellules qui contient la valeur 345.
est ce qu'il est possible de m'aider à la modifier pour qu'elle colore les deux lignes F et G si la valuer de G1 = F2, sinon passer au G3, ....ect,

Sub colorer()

Range("A1:H65000").Select 'Permet de selectionner plusieurs cellules
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Cell.Value = "345" Then 'Si la valeur = 345 alors
Cell.Interior.ColorIndex = 3 'Colorie la couleur de la cellule
End If
Next
End Sub

Merci infiniment

Configuration: Windows / Firefox 52.0

A voir également:

Vba colorier cellule sous condition
Excel cellule couleur si condition texte - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Changer la couleur d'une cellule selon son texte - Forum Excel

6 réponses

Réponse 1 / 6

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
13 déc. 2019 à 20:21

Bonsoir,
Déjà au départ, une macro pour cette colorisation est inutile,
il y a des MFC pour cela et ta question pour le reste peut être réglée de la même façon

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 déc. 2019 à 14:38

Pourquoi vous refusez a m'aider ? je veux une simple correction sur ma macro, SVP ?!!

Réponse 2 / 6

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 déc. 2019 à 10:45

Bonjour, Je ne veux as exécuter MFC, je veux integrer cette operation automatique a une macro que j'ai.

Merci

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 déc. 2019 à 17:18

Merci de m'aider avec ce code !!

Sub colorer()

Range("A1:H65000").Select 'Permet de selectionner plusieurs cellules
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Range("F3") = Range("G2") Then 'Si la valeur = 345 alors
Range("F3").Interior.Color = vbGreen
End If
Next
End Sub

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 déc. 2019 à 18:09

Bonjour,

Vous pouvez expliquer plus clairement ce que vous voulez car deux codes completements contradictoires........................

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
16 déc. 2019 à 18:32

Voila mon ami,

j'ai ce code

Sub colorer()

Range("A1:H65000").Select 'Permet de selectionner plusieurs cellules
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Range("F3") = Range("G2") Then 'Si la valeur = 345 alors
Range("F3").Interior.Color = vbGreen
End If
Next
End Sub

qui colore la cellule F3 si la valeur de G2 egale F3.
Ma demande est de faire la meme chose pour le reste des cellule dans la colonne F et G.

Si G2 egale F3 colore F3 sinon passe au lignes suivante, si G4 egale F5 colore F5 sinon pass au ligne suivante ... ect

Merci

dimitri > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
17 déc. 2019 à 09:34

Bonjour,
Avec ceci

Sub Colorer2()
Dim I As Long    
    Range(Range("F3"), Range("F3").End(xlDown)).Interior.Pattern = xlNone
    For I = 3 To Range("F3").End(xlDown).Row
        If Range("F" & I).Value = Range("G" & I - 1).Value Then
            Range("F" & I).Interior.Color = vbGreen
        End If
    Next I
End Sub

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > dimitri
17 déc. 2019 à 11:38

Bonjour,

F3-G2, F5-G4

Sub Colorer2()
Dim I As Long

Range(Range("F3"), Range("F3").End(xlDown)).Interior.Pattern = xlNone
LF = Range("F3").End(xlDown).Row
For I = 3 To LF Step 2 'comptage par pas de 2
If Range("F" & I).Value = Range("G" & I - 1).Value Then
Range("F" & I).Interior.Color = vbGreen
End If
Next I
End Sub

Réponse 3 / 6

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
23 déc. 2019 à 16:41

Merci Mr f894009 ,
est ce que vous pouvez ajouter une condition ? svp !!!

Si executer la coloration si colonne C ne contient pas "441xxxxxxxxx" ou "342xxxxxxxx"

xxx c-a-d quelque soit le chiffre ou la lettre apres 441 ou 342.

Merci infiniment

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 déc. 2019 à 17:23

Bonjour,

si colonne C ne contient pas
Oui, mais quelle ligne, F ou G

Réponse 4 / 6

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
27 déc. 2019 à 09:34

pas d'imprtance, les deux si vous voulez.

Merci Mr f894009

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 déc. 2019 à 16:12

Bonjour,

A tester:
Sub Colorer2()
Dim I As Long

'C ne contient pas "441xxxxxxxxx" ou "342xxxxxxxx"
Range(Range("F3"), Range("F3").End(xlDown)).Interior.Pattern = xlNone
LF = Range("F3").End(xlDown).Row
For I = 3 To LF Step 2 'comptage par pas de 2
If Range("F" & I).Value = Range("G" & I - 1).Value And _
Left(Range("C" & I), 3) <> "441" And Left(Range("C" & I - 1), 3) <> "441" And _
Left(Range("C" & I), 3) <> "342" And Left(Range("C" & I - 1), 3) <> "342" Then
Range("F" & I).Interior.Color = vbGreen
End If
Next I
End Sub

Réponse 5 / 6

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
28 déc. 2019 à 10:57

Merci infiniment mon ami, une question comment je peux changer le couleur vers le rouge?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 déc. 2019 à 11:30

Bonjour,
Panel couleurs de base:
vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite

Discussions similaires

Excel Copie multi cellules auto dans autre feuille selon critère

Copie valeur cellule si condition remplie

Copier automatiquement des cellules d'une feuille dans une autre

Si couleur, alors...

"NB.SI" cellules non vides

Concatener cellules avec conditions

Discussions similaires

Newsletters