Bonjour,
Je copie des données d'une feuille Excel qui contient des MFC vers une autre feuille.
Je souhaite copier les cellules contenants des MFC en gardant leurs couleurs mais sans les MFC (car je ne copie pas la cellule testée, donc les MFC ne marchent plus sur la nouvelle feuille).
Pour cela, j'utilise ce code :
Code :
- Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
- For Each c In plg
- With c
- For Each fc In .FormatConditions
- If Evaluate(fc.Formula1) Then c.Interior.ColorIndex = fc.Interior.ColorIndex
- Next
- End With
- Next
- plg.FormatConditions.Delete
|
Mon problème est que j'applique cette MFC sur la feuille source :
Plage $A$1:$F$1
Expression 1: =A18="xxx" -> cellule rouge
Expression 2: =A18="yyy" -> cellule verte
Les 2 expressions sont incrémentées automatiquement par Excel.
Mais lorsque je demande à VBA d'évaluer ma formule, il n'évalue uniquement que A18="xxx" et A18="yyy", il n'incrémente pas automatiquement à B18="xxx" etc...
Du coup mon code VBA me retourne pour toutes les cellules la condition de A18.
Vous avez une solution ?