Colorer les lignes sous condition [Résolu]

Signaler
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
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

6 réponses

Messages postés
830
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
29 juin 2020
165
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
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Pourquoi vous refusez a m'aider ? je veux une simple correction sur ma macro, SVP ?!!
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

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

Merci
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

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
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306 >
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Bonjour,

Vous pouvez expliquer plus clairement ce que vous voulez car deux codes completements contradictoires........................
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
>
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020

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
>
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

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
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306 > dimitri
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
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

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
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Bonjour,

si colonne C ne contient pas
Oui, mais quelle ligne, F ou G
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

pas d'imprtance, les deux si vous voulez.

Merci Mr f894009
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
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
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Merci infiniment mon ami, une question comment je peux changer le couleur vers le rouge?
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Bonjour,
Panel couleurs de base:
vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Merci