Copie des couleurs d'une mise en forme conditionnelle et suppression de la MFC

  • Initiateur de la discussion Initiateur de la discussion emaxou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

emaxou

XLDnaute Nouveau
Bonjour,

je suis bloqué sur un problème de mise en forme conditionnelle.

j'ai une feuille avec des mise en forme conditionnelle. J'aimerais copier cette feuille A dans une autre feuille B puis copier les différentes mises en forme et enfin supprimer les mise en forme conditionnelle de B.
A doit rester intact.

ci-joint un fichier exemple :

Pour cela j'ai écrit ce code qui me renvoie une erreur de type à la fonction "If Evaluate(fc.Formula1)"

Sub Bouton1_QuandClic()

'teste si l'onglet "test" existe et si c'est le cas, le supprime
Application.DisplayAlerts = False
If sel_feuilles("test") Then Sheets("test").Delete
Application.DisplayAlerts = True

'copie la feuille "fiche" et la renomme test.
Feuil2.Copy After:=Feuil2
Sheets("fiche (2)").Name = "test"
Sheets("test").Select
'applique les couleurs des mises en forme conditionnelle et supprime les conditions
Set plg = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In plg
With c
For Each fc In .FormatConditions
If fc.Type = 2 Then
If Evaluate(fc.Formula1) Then c.Interior.ColorIndex = fc.Interior.ColorIndex
Else
If Evaluate(fc.Formula1) = c Then c.Interior.ColorIndex = fc.Interior.ColorIndex
End If
Next
End With
Next
plg.FormatConditions.Delete
End Sub


Je n'arrive pas à comprendre mon erreur...

Merci beaucoup pour votre aide!!
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour