variable non affectée

[JiDul]

Bonjour,
J'ai fait une petite macro qui modifie quelques paramètres du graphique actif.

donc ma première commande est :
Set graph = ActiveChart

Je souhaiterais mettre juste après un test qui permettrait de sortir de la macro s'il n'y a pas de graph actif.
(un truc qui ressemblerait à :
If graph = Nothing Then
Exit Sub
End If
mais ça serait trop simple, ça ne marche pas :angry: )

Comment m'y prendre ?

merci,

Jérémie

 

[Abel]

Bonjour JiDul,

As tu essayé If graph ='' ou If graph = false ?

Abel

 

[JiDul]

Malheureusement oui...

 

[Abel]

Re,

Au fait, est-ce que la variable graph sert à autre chose que le test de la présence du graphique ?

Sinon essaie avec =ActiveGraph.Name (je n'ai pas testé).

As-tu exécuté en pas à pas (F8) pour voir si la variable se renseigne correctement et quelle valeur elle prend en cas de vide.

graph est-elle déclarée ? Dim graph as chart

Abel.

 

[JiDul]

La valeur de la variable est : Nothing.
Et comme ce n'est pas encore un chart, on n'a accès à aucune des méthodes ou attributs...

Jérémie

 

[Abel]

Re,

Comment rends tu ton Graph actif ?

Charts (machin).Select ?

Ou via une sélection à la souris ?

En gros, que se passe t'il dans le code avant la ligne Set graph ....

Bref, quelques détails supplémentaires sur les tenants et aboutissants de l'affaire nous seraient utiles (à moi en tout cas).

Abel.

 

[CBernardT]

Bonjour Jidul est Abel,


Je rentre en route, :whistle:

Pour vérifier qu'un graphique était présent ou non dans la feuille je me rapelle avoir utilisé le code :

If Worksheets('Feuil1').ChartObjects.Count = 0 Then

J'espère que cela t'aidera ?

CBernardT

 

[JiDul]

Merci, je vais essayer

 

[Abel]

Re,

Tu as bien fait CBernardT car je m'étais enfermé tout seul sur le test If graph = ..

Abel.

 

[JPM]

Bonjour à tous,

peut-être avec :

If Selection.Parent.Name Like '*Graphique*' Then 
'un graph est selectionné
else
'....
end if

Jean-Pierre

 

[PascalXLD]

Bonjour

En fait ta variable graph est une variable objet et tu ne peux pas la traiter de la même manière.

Il faut passer par la gestion d'erreur (si je ne me trompe pas)

donc du style

set graph=activechart

on error goto fin 'si erreur va au repère fin: qui se trouve juste avant le end sub
MoNom=graph.name 'Là il y aura une erreur si la variable=nothing

Ton code

fin :
end sub

Voilà une méthode

Message édité par: Pascal76, à: 04/03/2005 08:41