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