Macro pour mettre une couleur auto. dans tableau

Ton fichier en retour.
La procédure prend en compte la lettre ajoutée après le montant :
r pour rouge - pourries
o pour orange - en attente
v pour vert - vendues

https://www.cjoint.com/c/ECBu7Czw2TI

A+

Tout d'abord, j'ai créé une plage nommée "Quantités" qui couvre la plage C7:N10 (voir Formules > Gestionnaire de noms).

La procédure est évènementielle. Il s'agit de la procédure Worksheet_Change qui est lancée lorsqu'une modification de cellule est détectée.
Target représente la cellule modifiée.

Quelques explications du code :

If Target.Count > 1 Then Exit Sub
'Si plusieurs cellules ont été modifiées, on sort de la procédure (ce qui évite une erreur dans le cas d'une suppression de cellules par exemple).

If Not Application.Intersect(Target, Range("Quantités")) Is Nothing Then
'Si la cellule modifiée fait partie de la plage "Quantités"
(littéralement, si l'intersection entre la plage "Quantités" et la cellule modifiée n'est pas rien)

Application.EnableEvents = False
'On désactive les évènements afin d'éviter une boucle infinie sur la procédure. En effet, la procédure est lancée par une modification de valeur de cellule mais la procédure elle-même change la valeur de la cellule modifiée puisqu'on supprime le dernier caractère ajouté avec l'instruction
Target = Left(Target, Len(Target) - 1)

Application.EnableEvents = True
Je te laisse deviner.

A+

Bonjour,

Je ne vois pas pourquoi tu ne peux pas utiliser une mise en forme conditionnelle.
Tu devrais joindre un fichier exemple.
Tu peux utiliser https://www.cjoint.com/

A+

voilà le lien :

http://www.cjoint.com/confirm.php?cjoint=ECBtSSR8PKw

Je veux par exemple mettre en rouge la quantité de pommes pourries ou de tomates pourries ,en vert celles qui ont été vendues et en orange ,celle qui sont en attente de livraison .
Avec la mise en forme conditionnelle, il faut entrer un chiffre obligatoirement > ou < ou = ou contient .... . Tandis que si j'ai une macro qui me dit que si j'écris "60000r" signifie que ma cellule soit en rouge et m'affiche le nombre "60000" dans cette même cellule.

Mon problème est au niveau de la création de code.

Merci Cyrus ,

ça fonctionne super Bien !!! mais j'aimerais comprendre ton code un peu Quand tu mets ça (qu'est ec que tu veux dire?) :
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("Quantités")) Is Nothing Then
Application.EnableEvents = False

et à la fin du code tu met ça :

Target = Left(Target, Len(Target) - 1)
Application.EnableEvents = True

Bonjour,

tes colonnes ne sont pas toujours dans le même ordre ?
Si oui tu peux le faire par MFC.
https://www.cjoint.com/c/ECCj0p3w2jr

eric