Mise en forme conditionnelle par macro

[gillesroszak]

Bonjour à tous,

Je cherche à appliquer une couleur de fond particulière à une cellule suivant la valeur indiquée dans celle ci.
Je ne peux le faire avec l'outils de MFC car il me faut plus de 3 couleurs.
exemple dans fichier ci-joint.
Est ce que quelqu'un pourrait m'aider?

Merci d'avance pour vos solutions.

Gilles

 

[Philippe68]

Re : Mise en forme conditionnelle par macro

Bonsoir,

Fait au mieux, mais il y a surement plus simple.
Macro dans le module

 

[DoubleZero]

Re : Mise en forme conditionnelle par macro

Bonjour, gillesroszak, Philippe68 🙂, le Forum,

En attendant mieux... une autre suggestion.

Nota : si les données sont saisies et non copiées-collées, une procédure événementielle peut éviter de cliquer sur le bouton.

A bientôt 🙂

 

[gillesroszak]

Re : Mise en forme conditionnelle par macro

Merci Beaucoup Messieurs de votre rapidité et de votre gentillesse.

Je m'empresse de mettre tous ça en oeuvre.

Merci encore

Gilles

 

[gillesroszak]

Re : Mise en forme conditionnelle par macro

Bonsoir,

Merci encore

ça fonctionne vraiment très bien .
Maintenant une dernière question: Si je veux effectuer la même chose sur les colonnes comportant les autres données, il me suffit de modifier le code je suppose mais comment l'ajouter??
Est ce que je le colle à la suite du code existant ou y a t il une autre manip à faire ??

Merci d'avance

Gilles

 

[DoubleZero]

Re : Mise en forme conditionnelle par macro

Re-bonjour,

Il faut adapter la lettre de la colonne dans laquelle une nouvelle MFC est souhaitée.
Exemple : If Range("b"...) deviendra If Range("e"...).

Faire des essais et ne pas hésiter à lancer un appel au secours en cas de difficultés.

Bon courage et à bientôt 🙂

 

[DoubleZero]

Re : Mise en forme conditionnelle par macro

Re-bonjour,

Exemple plus précis 😕 :

Sub MFC()
Application.ScreenUpdating = 0


[b:b].Interior.ColorIndex = xlNone
For i = 3 To Range("b65536").End(xlUp).Row
    If Range("b" & i) >= 26 Then Range("b" & i).Interior.ColorIndex = 3
    If Range("b" & i) >= 23.1 And Range("b" & i) <= 25.9 Then Range("b" & i).Interior.ColorIndex = 46
'.........etc
Next

[e:e].Interior.ColorIndex = xlNone
For i = 3 To Range("b65536").End(xlUp).Row
    If Range("e" & i) >= 26 Then Range("e" & i).Interior.ColorIndex = 3
    If Range("e" & i) >= 23.1 And Range("e" & i) <= 25.9 Then Range("e" & i).Interior.ColorIndex = 46
'..........etc
Next
Application.ScreenUpdating = -1
End Sub

A bientôt 🙂

 

[gillesroszak]

Re : Mise en forme conditionnelle par macro

Merci beaucoup,

Très clair se qui rend la manip. très simple

Gilles

 

[gillesroszak]

Re : Mise en forme conditionnelle par macro

J'ai un problème, Voilà ce que j'ai fait (pièce jointe) mais cela ne colore que la première cellule.

Ou est mon erreur

Merci

 

[DoubleZero]

Re : Mise en forme conditionnelle par macro

Re-bonjour,

Voici pour la seconde colonne de données à colorer.

A bientôt 🙂

 

[gillesroszak]

Re : Mise en forme conditionnelle par macro

Bonsoir

Voilà tout est en place et fonctionne à merveille
Merci mille fois "double zéro" d'avoir pris de votre temps pour me renseigner

Gilles