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