OVH Cloud OVH Cloud

Mise en forme VBA

5 réponses
Avatar
Alba
Bonjour,

Je suis arriv=E9e a mettre une couleur de police selon un crit=E8re dans
une cellule, mais ce que je souhaite c'est que toute la ligne prenne
cette couleur.... pas seulement la cellule concern=E9e

Ma ligne va de A8 =E0 M8

J'ai fait :

'couleur ligne selon condition situation

Sub CouleurCategorie()
Dim cellule As Range

Range(Selection, Selection.End(xlDown)).Select

For Each cellule In Selection
Select Case cellule.Value

Case Is =3D "Facture sold=E9e"
cellule.Font.ColorIndex =3D 41

Case Is =3D "Acompte re=E7u"
cellule.Font.ColorIndex =3D 14

Case Is =3D "En attente"
cellule.Font.ColorIndex =3D 55

End Select
Next cellule
End Sub


J'ai essay=E9 For Each Range In Selection =E0 la place de cellule
Ben il aime pas du tout !!! :-)

Je ne sais pas ce que je dois ajouter ?

Bonne journ=E9e

5 réponses

Avatar
Alba
Bon en plus il ne fonctionne pas mon code...la couleur de la cellule
ne change même pas !!

J'ai tout faut ???
Avatar
Fredo P.
Bonjour Alba
Une MFC devrait suffire
Voir ici
http://cjoint.com/?bFksGdvsUI
--
'Ôtez toutes voyelles avant l'@

"Alba" a écrit dans le message de news:


Bon en plus il ne fonctionne pas mon code...la couleur de la cellule
ne change même pas !!

J'ai tout faut ???
Avatar
Alba
Oup's ! C'était un NB.SI ! J'étais très loin alors, je partais sur un
simple
est égal a "Facture soldée" ect..



Merci infiniment fredo c'est exactement ce que je voulais.
J'suis toute contente :-)
Avatar
Alba
Un tout petit plus, je ne sais pas si c'est possible puisque je suis
déjà à 3 conditions !!!

J'avais auparavant un format conditionnel qui me mettait la cellule F8
en rouge avec cette formule
=ET(AUJOURDHUI()>$F8;(ESTVIDE($G8)))

Ce qui me permettait en l'occurence de visualiser rapidement une date
arrivée à échéance.

Je dois trouver une autre solution ? ou il est possible d'ajouter
cette formule là aux NB.SI ???
Avatar
Fredo P.
une solution, appliquer une Mfc différente sur une condition sur la colonne
F
http://cjoint.com/?bFoiIv4dba
--
'Ôtez toutes voyelles avant l'@

"Alba" a écrit dans le message de news:

Un tout petit plus, je ne sais pas si c'est possible puisque je suis
déjà à 3 conditions !!!

J'avais auparavant un format conditionnel qui me mettait la cellule F8
en rouge avec cette formule
=ET(AUJOURDHUI()>$F8;(ESTVIDE($G8)))

Ce qui me permettait en l'occurence de visualiser rapidement une date
arrivée à échéance.

Je dois trouver une autre solution ? ou il est possible d'ajouter
cette formule là aux NB.SI ???