Mise en forme conditionnelle par macro

Philippe68

XLDnaute Occasionnel

• 7 Février 2012

• #2

Re : Mise en forme conditionnelle par macro

Bonsoir,

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

 

Pièces jointes

• Copie de 0102gr.xls

  42 KB · Affichages: 32

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 7 Février 2012

• #3

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 🙂

 

Pièces jointes

• 00 - gillesroszak - MFC.xls

  69 KB · Affichages: 55

Vote positif 0 Vote négatif

G

gillesroszak

Guest

• 7 Février 2012

• #4

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

 

Vote positif 0 Vote négatif

G

gillesroszak

Guest

• 8 Février 2012

• #5

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 8 Février 2012

• #6

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 🙂

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 8 Février 2012

• #7

Re : Mise en forme conditionnelle par macro

Re-bonjour,

Exemple plus précis 😕 :

Code:

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 🙂

 

Vote positif 0 Vote négatif

G

gillesroszak

Guest

• 8 Février 2012

• #8

Re : Mise en forme conditionnelle par macro

Merci beaucoup,

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

Gilles

 

Vote positif 0 Vote négatif

G

gillesroszak

Guest

• 8 Février 2012

• #9

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

 

Pièces jointes

• 00 - gillesroszak - MFC - Copie.xls

  70.5 KB · Affichages: 30

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 8 Février 2012

• #10

Re : Mise en forme conditionnelle par macro

Re-bonjour,

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

A bientôt 🙂

 

Pièces jointes

• 00 - gillesroszak - MFC - V02.xls

  71.5 KB · Affichages: 61

Vote positif 0 Vote négatif

G

gillesroszak

Guest

• 10 Février 2012

• #11

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

 

Vote positif 0 Vote négatif