Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1307 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème MFC en VBA (erreur -2147417848 (80010108) )

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème MFC en VBA (erreur -2147417848 (80010108) )

n°2302463
lucas79000
Posté le 26-06-2017 à 11:16:23  profilanswer
 

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

mood
Publicité
Posté le 26-06-2017 à 11:16:23  profilanswer
 

n°2303252
lucas79000
Posté le 12-07-2017 à 10:56:19  profilanswer
 

????


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème MFC en VBA (erreur -2147417848 (80010108) )

 

Sujets relatifs
Problème avec SUM et INNER JOIN[VBA/HTML] insérer une image dans un mail
Problème de logique (boucle infinie)Powershell - unrestricted mais erreur de droits d'execution
code VBA autoriser collage en valeurProblème de lecture de son
[Java] Erreur java.net.SocketException : socket closed (EOS)Problème "UPDATE" SQL
Problème syntaxe VBA 
Plus de sujets relatifs à : Problème MFC en VBA (erreur -2147417848 (80010108) )



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR