afficher feuille et analyse de graph

[sylv900]

salut
j'ai 2 problèmes, commençons par le plus simple :
je veux que quand l'utilisateur de ma macro clic dans une txtbox une feuille xl en particulier s'affiche, actuellement j'utilise sheets('non de feuille').select mais le problème c'est que je suis obliger de re-cliquer dans la txt box pour y mettre une valeur...
existe-il un code du genre '.affiche la feuille sans la sélectionner'???

2 ème question:
est-il possible par un code de détecter si un graphe est vide ou non?
et si oui de récupérie le nombre de série dans ce graphe?
le problème est que je supprime une série car je suppose qu'il y en a une mais si l'utilisateur du programme supprime manuellement la série ça plante...

merci beaucoup
à+
sylvain

 

[MichelXld]

bonjour Sylvain

je n'ai pas compris la premiere question mais pour la 2eme partie , cette macro permet de compter le nombre de series dans le 1er graphique de la Feuil1

MsgBox Feuil1.ChartObjects(1).Chart.SeriesCollection.Count


et cette macro boucle sur toutes les series pour les supprimer

Dim J As Integer
For J = Feuil1.ChartObjects(1).Chart.SeriesCollection.Count To 1 Step -1
Feuil1.ChartObjects(1).Chart.SeriesCollection(J).Delete
Next J



bonne soiree
MichelXld

 

[sylv900]

merci à toi michel
ma première question reformuler : comment afficher une feuille en cliquant dans une txtxbox sans utiliser la fonction select???