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!!