macro pour mettre une couleur auto. dans tableau Résolu/Fermé

Question

Bonjour, 
 J'aimerais mettre une couleur automatique dans un tableau excel sans utiliser la mise en forme conditionnelle vue que mon critère n'est pas standard.
Je veux que mon tableau mettre la couleur selon ma légende (ex: tomates pourries en rouges; tomates vendues en vert ) .

Mon tableau contient la quantité de tomates récoltées ( donc des chiffres) 

	                     trimeste 1	trimeste 2
Tomates pourries	50000	500
Tomates vendues	150000	5000



Configuration: Windows 7 / Chrome 41.0.2272.101

Gyrus · Answer

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+

Tania · Answer

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.

Gyrus · Answer

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+

Tania · Answer

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

Gyrus · Answer

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+

eriiic · Answer

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

Macro pour mettre une couleur auto. dans tableau

6 réponses

Discussions similaires