Colorer les lignes sous condition

Résolu/Fermé
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:

6 réponses

M-12 Messages postés 1265 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 25 septembre 2022 278
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
1
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
16 déc. 2019 à 14:38
Pourquoi vous refusez a m'aider ? je veux une simple correction sur ma macro, SVP ?!!
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
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
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
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
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659 > 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........................
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1 > f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022
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
0
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
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659 > 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
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
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
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
23 déc. 2019 à 17:23
Bonjour,

si colonne C ne contient pas
Oui, mais quelle ligne, F ou G
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
27 déc. 2019 à 09:34
pas d'imprtance, les deux si vous voulez.

Merci Mr f894009
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
28 déc. 2019 à 10:57
Merci infiniment mon ami, une question comment je peux changer le couleur vers le rouge?
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
28 déc. 2019 à 11:30
Bonjour,
Panel couleurs de base:
vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite
0
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 1
28 déc. 2019 à 12:02
Merci
0