Garder couleur des "Mise en Forme Conditionelle"

Garder couleur des "Mise en Forme Conditionelle" - VB/VBA/VBS - Programmation

Marsh Posté le 19-12-2014 à 14:45:09    

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 :
  1. Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
  2.       For Each c In plg
  3.        With c
  4.         For Each fc In .FormatConditions
  5.          If Evaluate(fc.Formula1) Then c.Interior.ColorIndex = fc.Interior.ColorIndex
  6.         Next
  7.        End With
  8.       Next
  9.       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 ?

Reply

Marsh Posté le 19-12-2014 à 14:45:09   

Reply

Marsh Posté le 19-12-2014 à 17:20:02    

J'ai réussi à faire ce que je voulais en m'aidant de cette page :
http://thepolyscope.com/fr/excel-v [...] tionnelle/

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed