Formule couleur

Bonjour,

Ci-joint un fichier excel

J'ai des cellules de couleur jaune

je veux obtenir svp : des cellules de couleur rouge

Si E6=couleur jaune, alors G6=couleur rouge

J'ai essayé la fonction suivante pou connaitre le numéro de couleur mais elle ne marche pas.

=NO_COULEUR(cellule)

Merci

Salut PIERRO1234,

Essai avec ça en remplaçant par les cellules que tu veux

Cells(6, 5).Interior.Color = RGB(255, 255, 0)

If Cells(6, 5).Interior.Color = RGB(255, 255, 0) Then

Cells(6, 7).Interior.Color = RGB(255, 0, 0)

End If

Bonjour Guizmo7678,

Merci,

Peux tu le mettre dans le fichier excel stp?

Voilà

il ne te reste plus qu'à modifier dans le visualBasic pour les cellules que tu voudras modifier

Cela repond a mon besoin?

E6=couleur jaune, alors G6=couleur rouge

Merci

Bonjour Guizmo7678,

Merci cela fonctionne.

Désolé mais peux tu le faire stp pour toute la colonne E et G (si une cellule de la colonne E est jaune, alors la cellule de la colonne G est rouge.

Merci

Sub couleur()

Cells(6, 5).Interior.Color = RGB(255, 255, 0)

If Cells(6, 5).Interior.Color = RGB(255, 255, 0) Then

Cells(6, 7).Interior.Color = RGB(255, 0, 0)

End If

End Sub

Je remarque que meme si Cells(6, 5) n'est pas jaune, Cells(6, 7) devient quand meme rouge!!!!

Merci de m'aider

Bonjour PIERRO1234, Guizmo7678,

Un essai....(on ne prend en compte les cellules E et G que si A est rempli).

Sub test()
 Dim i As Long, dl As Long
   dl = Range("A" & Rows.Count).End(xlUp).Row
  Application.ScreenUpdating = False
   For i = 1 To dl
    If Range("E" & i).Interior.ColorIndex = 6 Then
       Range("G" & i).Interior.ColorIndex = 3
    Else
       Range("G" & i).Interior.ColorIndex = xlNone
    End If
   Next i
  Application.ScreenUpdating = False
End Sub

Cordialement,

Salut PIERRO1234,

Voici ce que j'ai fais pour ta demande de ce matin et j'ai aussi normalement résolu le dernier problème que tu as soulevé.

Il te suffira donc simplement d’augmenter les valeurs de la variables i en fonction du nombre de cellules que tu veux colorer

Bonjour Guizmo7678 et xorsankukai,

Merci beaucoup cela fonctionne.

Très content.

Re,

Merci pour ton retour,

@Guizmo: petite remarque si tu me le permets:

si PIERRO modifie la couleur de E (qui était jaune) par une autre couleur, G reste rouge,

Sub couleur()

For i = 6 To 20

    If Cells(i, 5).Interior.Color = RGB(255, 255, 0) Then
        Cells(i, 7).Interior.Color = RGB(255, 0, 0)
    Else
        Cells(i, 7).Interior.Color = xlNone
    End If
Next i

End Sub

Bonne journée à vous,

Salut @xorsankukai

Effectivement je n'avais pas pris cela en compte.

Merci pour l'info

Bonne journée