Colorer les lignes sous condition

Résolu

Condition

nonossov Messages postés 638 Statut Membre -
nonossov Messages postés 638 Statut Membre - 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

Afficher la suite

A voir également:

Vba color cell
Color space incorrect ✓ - Forum Bureautique
Color cop - Télécharger - Divers Photo & Graphisme
Color dodge en francais ✓ - Forum Photoshop
Incompatibilité de type vba ✓ - Forum Programmation
Dépassement de capacité vba ✓ - Forum Excel

6 réponses

Réponse 1 / 6

M-12 Messages postés 1349 Statut Membre 285

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 638 Statut Membre

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

Réponse 2 / 6

nonossov Messages postés 638 Statut Membre

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 638 Statut Membre

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 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > nonossov Messages postés 638 Statut Membre

Bonjour,

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

nonossov Messages postés 638 Statut Membre > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention

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 638 Statut Membre

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 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > 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

Réponse 3 / 6

nonossov Messages postés 638 Statut Membre

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 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

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

Réponse 4 / 6

nonossov Messages postés 638 Statut Membre

pas d'imprtance, les deux si vous voulez.

Merci Mr f894009

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

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 638 Statut Membre

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

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

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

Discussions similaires

Somme prod si

formule =sierreur(index....) avec 2 conditions

ws-37368-7 - Playstation 4

Windows Server 2012 R2

message "the CMOS battery is bad or was recently replaced"

Extraction de ligne dans nouvelle feuille selon critère

Discussions similaires

Newsletters