Colorer une cellule par rapport à sa valeur

Bonjour les forumeur,

j'expose mon soucis,

j'ai une plage de cellule ( m6:m23)

je voudrais que :

- Si la valeur dans ces cases est au dessus de 15 la cellule devienne verte.

- Si la valeur dans ces cases est comprise entre 3 et 15 la cellule devienne orange.

- - Si la valeur dans ces cases est négative ou en dessous de 3 la cellule devienne rouge.

voila

Merci d'avance

Bonjour,

avec une MEFC,teste et dis quoi

A +

Merci henri d'avoir pris le temps de consulter ma requête.

Cependant, j'ai oublier de préciser que je dois l'inégrer dans VBA et non dans une formule conditionnelle.

Si vous avez des questions/ réponses n'ésitez pas

Merci d'avance.!!

Bonjour,

A tester

Completement se qu'il me fallai !!! Un grand merci Greg.leo

Petite question annexe:

Les couleurs voulus doivent être transposées dans une autre plage de cellules, il me semble qu'il faut utiliser un offset mais je n'arrive pas à l'ingrer dans le code.

Mes couleurs sont en colonnes "m" et doivent être retranscritent en colonne "j" .

Merci d'avance !

Code :

Private Sub Workbook_Open()
     Dim Dl As Long
Dl = Feuil1.Range("M10000").End(xlUp).Row

For J = 6 To Dl
If Range("M" & J) < 3 Then
Range("M" & J).Interior.ColorIndex = 3
ElseIf Range("M" & J) >= 3 And Range("M" & J) <= 15 Then
Range("M" & J).Interior.ColorIndex = 45
Else
Range("M" & J).Interior.ColorIndex = 10
End If
Next J

End Sub

Mmmm pas besoin de Offset dans ce cas là. Si on peut faire simple ben on le fait simple

Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dl As Long
Dl = Feuil1.Range("M10000").End(xlUp).Row

For J = 6 To Dl
If Range("M" & J) = "" Then
Range("J" & J).Interior.ColorIndex = 2
ElseIf Range("M" & J) < 3 Then
Range("J" & J).Interior.ColorIndex = 3
ElseIf Range("M" & J) >= 3 And Range("M" & J) <= 15 Then
Range("J" & J).Interior.ColorIndex = 45
Else
Range("J" & J).Interior.ColorIndex = 10
End If
Next J

End Sub

Décidement Greg tu es bon .

Dèrniere petite question.

Comment j'injecte une message box si la case est rouge dans le code précèdent ? !

Merci

Je suis loin d'être bon ! C'est grâce au forum que je m'améliore. Le jour ou tu maîtriseras un peu la VBA tu verras que ce code est tout bête

Pour ton Msgbox, souhaites tu qu'il apparaissent pour toutes les cases rouges ou seulement pour la case qui vient de devenir rouge ?

La couleurs des cellules changent par rapport à des valeurs ( changement de couleurs à l'ouverture du fichier excel).

je veux qu'une message box s'affiche à l'ouverture du fichier regroupant un texte pour toute les case rouge de la plage.

exemple :

case "M6" =rouge

case "M9"=rouge

alors a l'ouverture du fichier excel une message box indiquerer " 6 n'est pas bon" (dans la même msgbox)

"9 n'est pas bon"

J'espère être claire

Voici un nouveau test.

Je n'ai pas réussi à créer une seule et même fenêtre :/..

Impécable Greg j'ai juste modifier [MsgBox (Range("b" & J) & " " & "A REGULARISER AU PLUS VITE ! ! !")]

pour afficher le nom du produit concerné .

Exercice términé

Grand merci à ceux qui y ont contribué !!!