Colorer les lignes sous condition

Résolu

Condition

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention -
nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention - 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 colorier cellule sous condition
Excel cellule couleur si condition texte - Guide
Excel compter cellule couleur sans vba - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
Proteger cellule excel - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA

6 réponses

Réponse 1 / 6

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 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 610 Date d'inscription Statut Membre Dernière intervention

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

Réponse 2 / 6

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

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

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

Bonjour,

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

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention > f894009 Messages postés 17277 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 610 Date d'inscription Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > 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 610 Date d'inscription Statut Membre Dernière intervention

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

Bonjour,

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

Réponse 4 / 6

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

pas d'imprtance, les deux si vous voulez.

Merci Mr f894009

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

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

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

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

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

Votre réponse

Discussions similaires