MEFC formule Equiv

Bonjour,
J'ai des mises en forme conditionnelle manuelles qui fonctionnent très bien, mais on me demande régulièrement de modifier la plage d'application.
Pour me simplifier la tache j'ai voulu passer par VBA, mais je n'arrive pas à traduire la formule ci-après en VBA

Code:

---

=EQUIV(C$4;FERIES;0)>0

---

j'ai essayé :

Code:

---

1 2 3 4 5

Application.Union(Range("C5:AG23"), Range("C25:AG27"), Range("C29:AG148")).Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=EQUIV(C$4;FERIES;0)>" End With

---

J'obtiens l'erreur suivante : "argument ou appel de procédure incorrect" sur la ligne FormatCondition.Add.
j'ai essayé pleins d'autres choses, comme

Code:

---

1 2	.FormatConditions.Add Type:=xlCellValue, Operator:=xlExpression, _ Formula1:="=EQUIV(C$4;FERIES;0)>0"

---

Mais j'ai toujours des erreurs avec des motifs différents...

Est-ce que quelqu'un peut m'aider svp.
Merci d'aavance

Bonjour Mouftie.

Tu peux essayer avec le code suivant :

Code:

---

1 2 3 4 5

With Application.Union(Range("C5:AG23"), Range("C25:AG27"), Range("C29:AG148")) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=EQUIV(C$4;FERIES;0)>0" End With

---

salut,
Ne te compliques pas la tète avec des macros, transforme les données qui sont dans tes cellules en tableau;
Si tes données sont de A1 à G51, sélectionnes les puis fais dans le menu "Insertion" choisis "Tableau".
A chaque fois qu'une nouvelle ligne sera créé (avec la touche "Tab"), alors tes MEFC s'incrémenteront

Bonjour thebenoit59
Merci pour ta réponse, cela répond parfaitement à ma demande.

Bonjour graphikris
Merci également de m'avoir répondu, mais il s'agit d'une base de planification d'activités, qui sert à différentes structures ; dont le premier exemplaire a été mon premier travail de développement. Aujourd'hui, j'utilise le plus possible les tableaux, mais dans ce cas, je ne peux pas revenir en arrière.

Bonne journée à tous