.Charts.add qui fait pas de Charts...

Fermé
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - Modifié par borntobealive le 3/09/2014 à 10:23
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 4 sept. 2014 à 22:33
Bonjour,

j'ai créer sous windows une application ( c'est un grosse macro dans un excel ) de comptabilité perso. Je suis aussi sur mac et j'aimerais pouvoir l'utiliser mais je rencontre des petits soucis de compatibilité. J'ai pu en résoudre un certain nombre seul mais celui là je bloque completement.

Mon appli créée des graphes et les supprime à la fermeture comme ça le fichier prend moins de place.

un sub est donc charger de créer les graphes :

Sub GrapheCamenbert(Categorie As String)

'''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                   '
'           creer le camenbert et sa feuille        '
'                                                   '
'''''''''''''''''''''''''''''''''''''''''''''''''''''

'nouveau graphe, nouvelle feuille
Set Dec.mg = Dec.Wk_ComptaMensuel.Charts.Add

With Dec.mg
    .Location where:=xlLocationAsNewSheet, name:=Categorie
    .ChartType = xl3DPie
End With
Dec.Wk_ComptaMensuel.Sheets(Categorie).Tab.ColorIndex = 3

'supression des series absurdes
Do Until Dec.mg.SeriesCollection.Count = 0
    Dec.mg.SeriesCollection(1).Delete
Loop

'ajout du code
If Categorie = "Categories" Then
    Application.EnableEvents = False
    Call Action.AjouterCode("Categorie", Dec.Wk_ComptaMensuel.Sheets(Categorie).name)
    Application.EnableEvents = True
Else
    Application.EnableEvents = False
    Call Action.AjouterCode("SousCategorie", Dec.Wk_ComptaMensuel.Sheets(Categorie).name)
    Application.EnableEvents = True
End If

Set Dec.mg = Dec.mg
End Sub


dec.mg 
a été déclarer comme une variable de portée
Public 
de type
Charts
.

Lors de l'execution le code s'arrète pour un incompatibilité de type à ligne 10 (oups). J'ai essayer de dissossier les deux :
Dec.Wk_ComptaMensuel.Charts.Add
Dec.mg = ActiveChart 


Mais rien ne se passe je pense (en fait j'en suis sûr) qu'il ne crée pas le graphique...

Si quelqu'un a une idée il m'éviterai de devoir me rebooter en PC à chaque fois que je veux faire ma compta...

merci d'avance
A voir également:

2 réponses

PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
4 sept. 2014 à 17:16
Bonjour,

Dec.mg

mg est une fonction que tu as défini pour ta variable Dec ?
0
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
Modifié par borntobealive le 4/09/2014 à 23:12
Dec est un module dans lequel je déclare plein de variable public que je réutilise tout le temps (du coup j'écris que Dec. et hop avec un tab j'ai tout le monde... y'a 2000 ligne dans le programme ça m'a fait gagner du temps)

cordialement,
N'oubliez pas de marquez votre post comme résolu !
0