.Charts.add qui fait pas de Charts...
borntobealive
Messages postés
167
Statut
Membre
-
borntobealive Messages postés 167 Statut Membre -
borntobealive Messages postés 167 Statut Membre -
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 :
Lors de l'execution le code s'arrète pour un incompatibilité de type à ligne 10 (oups). J'ai essayer de dissossier les deux :
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
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.mga été déclarer comme une variable de portée
Publicde 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:
- .Charts.add qui fait pas de Charts...
- Exemple de charte d'un groupe whatsapp - Accueil - WhatsApp
- Click charts - Télécharger - Organisation
- Télécharger microsoft excel - data visualization, excel charts & graphs gratuite - Télécharger - Tableur
- Changer le nom d'un groupe WhatsApp - Guide
- Forum CCM - Charte d'utilisation de CommentCaMarche.net - Guide