Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Creer des charts dans different sheets

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fics
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fics

Guest
Bonjour,
Je realise un export de lotus vers excel et souhaiterais creer des charts dans differents sheets.
S'il me cree tout les sheets, excel me place tout les charts dans le meme sheet (a savoir le premier cree sheet4).
Quelqu un aurait il une idee?

merci d avance


Voici mon code

Set xlSheet = XLApp.Sheets.Add
Nom = XLApp.ActiveSheet.Name
Call xlSheet.Activate ' Activate the Sheet we just set (Second sheet)
i = 0
For i = 0 To 8
XLApp.Charts.Add
XLApp.ActiveChart.ChartType = xlPieExploded
Call XLApp.ActiveChart.SetSourceData ( XLApp.Sheets("Sheet1").Range(Chr(68+i) +Cstr(Lb) + ":" + Chr(68+i) + Cstr(Lb+3)),xlColumns)

Call XLApp.ActiveChart.Location (xlLocationAsObject,Nom).....
 
Trier par date Trier par votes
Salut,

La définition de tes variables où est elle ?

Je mettrais la boucle avant

For i = 0 To 8
Set xlSheet = XLApp.Sheets.Add
Nom = XLApp.ActiveSheet.Name
Call xlSheet.Activate ' Activate the Sheet we just set (Second sheet)
XLApp.Charts.Add
XLApp.ActiveChart.ChartType = xlPieExploded
Call XLApp.ActiveChart.SetSourceData ( XLApp.Sheets("Sheet1").Range(Chr(68+i) +Cstr(Lb) + ":" + Chr(68+i) + Cstr(Lb+3)),xlColumns)

next i


A+++
 
Vote positif 0 Vote négatif
Merci Zon pour la reponse.
J ai trouve la solution de ce probleme.
En fait lorsqu on cree un chart et que l on souhaite le mettre dans un sheet, la fonction
Call XLApp.ActiveChart.Location (xlLocationAsObject,Nom du sheet) est necessaire cependant le chart est automatiquement place dans le premier sheet de la liste (le sheet qui a son Tab le plus a gauche). La fonction "location" ne permet pas de placer un chart dans n importe quel sheet.

Etrange non?

La solution est donc d'utiliser le parametre "before" de la fonction sheets.add pour placer le sheet destinataire a la bonne place.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
Création de camemberts à partir d'Access
Réponses
3
Affichages
2 K
pafi
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…