Mise en forme conditionnelle

[hbb]

Bonjour à tous,

Je fais appel à vos talents pour essayer de résoudre un pb sur lequel je bloque depuis quelques jours...
En pj, un extrait simplifié qui représente un seul article (AAA) mais j'en ai plusieurs dizaines en réalité.

Je cherche le code VBA excel qui me permettra d'appliquer cette mise en forme conditionnelle dans toutes les cellule de la plage range(I14:W14)

Le problème que je rencontre est le suivant :
- Quand le met en route l'enregistreur de macro, il me créé le code suivant :
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=$AA13"
--> Je ne peux pas conserver le code avec =$AA13 : Cette même mise en forme doit s'appliquer à plusieurs autres lignes (que je ne fais pas apparaitre dans mon exemple - en ligne 19, 24 etc......)

Je ne sais pas si j'ai été assez clair dans mes explications,

Merci d'avance,
hbb

 

[JCGL]

Re : Mise en forme conditionnelle

Bonjour à tous,

Peux-tu essayer avec :

Range("I14:W22").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(I14<>"""";I14<0)"
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(I14<>"""";I14<$AA$13)"
    Selection.FormatConditions(2).Interior.ColorIndex = 46
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I14="""""
    Selection.FormatConditions(3).Interior.ColorIndex = 15

A + à tous

 

[Modeste]

Re : Mise en forme conditionnelle

Bonjour hbb,

Pourquoi passer par du vba, alors que tu pourrais utiliser une formule dans la Mise en Forme Conditionnelle (... si j'ai bien compris l'idée!?)

Edit: Ooops! Salut JC 🙂

 

[hbb]

Re : Mise en forme conditionnelle

Salut,
Avant de lancer ma macro, la page est totalement vierge.
La macro créé le document tel que vous le voyez en pj (à partir d'un autre fichier)
Le vba me sert juste à ne pas avoir à appliquer manuellement la mise en forme condi sur les plusieurs centaines de lignes (trop long évidemment)
Les couleurs ne doivent pas être figées par la macro, le document étant utilisé par la suite en remplissant manuellement les lignes "production" pour ne pas descendre en dessous des stocks de sécurité)

JCGL, si je fais référence à la ligne 13 dans mon code vba, ce même code ne pourra pas être appliqué aux lignes suivantes.

J'avoue franchement que c'est compliqué à expliquer...

Merci malgré tout d'avoir répondu.
En espérant avoir été un peu plus clair.
hbb

 

[JCGL]

Re : Mise en forme conditionnelle

Bonjour à tous,
Salut l'ami Modeste,

La référence à la ligne est normale, c'est une borne pour la condition.

Ton fichier en attachement (clique sur le logo)

A++
A + à tous

 

[hbb]

Re : Mise en forme conditionnelle

JCGL,
j'ai légèrement modifié le document.
Comme tu pourras le constater, les stocks de sécurité sont différents pour chaque article AAA, BBB, CCC etc...
Je ne peux donc pas faire référence à la même ligne (13) pour tous mes articles (et j'en ai des centaines...)

Je pense que là, ce sera un peu plus clair !!!
merci encore
hbb

 

[JCGL]

Re : Mise en forme conditionnelle

Bonjour à tous,

peux-tu essayer avec :

Option Explicit


Sub MeFC()


    Range("I14:W100").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                                   "=ET(I14<>"""";I14<0)"
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                                   "=ET(I14<>"""";I14<$AA13)"
    Selection.FormatConditions(2).Interior.ColorIndex = 46
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I14<>"""""
    Selection.FormatConditions(3).Interior.ColorIndex = 15
    Selection.Interior.ColorIndex = 2
    Range("I13").Select
End Sub

Voir les formules en Y14 et suivantes et MeFC sur les colonne Y, Z et AA

A + à tous

 

[hbb]

Re : Mise en forme conditionnelle

Merci beaucoup JCGL pour tes réponses,
Je vais pouvoir continuer tout seul maintenant.
Bon week-end à tous
hbb