OVH Cloud OVH Cloud

Conditions...

1 réponse
Avatar
Christophe B.
Bonjour,

Voilà, j'ai dans une feuille "selection simplified" en colonne 2 une
liste variable de données. En feuille "system", j'ai une colonne Q avec des
données de même type. J'ai fait une macro conditionnal formatting qui devrait
me colorer en rouge toutes les cellules de ma feuille system qui
correspondent aux données de ma première feuille... mais ca ne fonctionne pas
(error 400). QQ1 saurait-il d'où ça peut venir?

Voici mon code:

Set rngA = Worksheets("Selection Simplified").Range(Cells _(2, 2),
Cells(Rows.Count, 2))
For Each rng In rngA
Worksheets("System").Columns("Q:Q").Select
Selection.FormatConditions.Add Type:=xlCellValue,_ Operator:=xlEqual,
Formula1:="=rng.Value"
Selection.FormatConditions(1).Interior.ColorIndex = 3
next

Merci,

Christophe.B

1 réponse

Avatar
MichDenis
Bonjour Christophe,

Est-ce que ton fichier contient une mise en forme conditionnelle ?

Est-ce que tu l'as testée ? Fonctionne-t-elle correctement telle que tu désires ?

Si oui, dis nous quelle formule tu utilises et sur quelle plage de données.

Je te ferai remarquer que l'usage de "l'enregistrement automatique des macro d'excel" devrait faire presque tout le
travail.

Ta présentation de la donne est incompréhensible.


Salutations!





"Christophe B." a écrit dans le message de news:

Bonjour,

Voilà, j'ai dans une feuille "selection simplified" en colonne 2 une
liste variable de données. En feuille "system", j'ai une colonne Q avec des
données de même type. J'ai fait une macro conditionnal formatting qui devrait
me colorer en rouge toutes les cellules de ma feuille system qui
correspondent aux données de ma première feuille... mais ca ne fonctionne pas
(error 400). QQ1 saurait-il d'où ça peut venir?

Voici mon code:

Set rngA = Worksheets("Selection Simplified").Range(Cells _(2, 2),
Cells(Rows.Count, 2))
For Each rng In rngA
Worksheets("System").Columns("Q:Q").Select
Selection.FormatConditions.Add Type:=xlCellValue,_ Operator:=xlEqual,
Formula1:="=rng.Value"
Selection.FormatConditions(1).Interior.ColorIndex = 3
next

Merci,

Christophe.B