Bonjour à tous,
Je vous écris ce post car j'ai un problème que je n'arrive pas à résoudre et auquel je ne trouve aucunes solutions sur internet.
Je vous explique : J'ai un fichier excel comportant 12 feuilles correspondant à chaque mois de l'année et 1 feuille de récap.
Sur ce fichier, des boutons permettent d'ajouter, de modifier ou de supprimer des "activités" pour chaque feuille. Lorsque l'on crée une activité, on sélectionne une couleur qui lui sera associée ce qui permettra de créer des MFC correspondant au nom de l'activité et la couleur pour chaque feuille.
Le problème se pose lorsque je souhaite modifier la couleur associée à une activité. Le changement se fait bien dans les MFC sauf pour la dernière feuille. En effet, lorsque j'efface la couleur de l'ancienne MFC, j'ai l'erreur suivante "Erreur d'exécution '-2147417848 (80010108)' : La méthode 'Clear' de l'objet 'ColorStops' à échoué" Alors que pour les autres feuilles il n'y à eu aucun soucis..
Je vous joint le fichier contenant la ligne où l'erreur se produit.
Merci
Code :
If .Operator = 3 And .Formula1 = "=""" & diminAct.Value & """" Then
With .Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 0
.Gradient.ColorStops.Clear
End With
With .Interior.Gradient.ColorStops.Add(0)
.Color = TextBox1.BackColor
.TintAndShade = 0
End With
With .Interior.Gradient.ColorStops.Add(0.45)
.Color = TextBox1.BackColor
.TintAndShade = 0
End With
With .Interior.Gradient.ColorStops.Add(0.95)
.Color = RGB(255, 255, 255)
.TintAndShade = 0
End With
With .Interior.Gradient.ColorStops.Add(1)
.Color = RGB(255, 255, 255)
.TintAndShade = 0
End With
.Borders.Weight = xlThin
.Borders.Item(2).LineStyle = xlLineStyleNone
.StopIfTrue = False
End If