variable non affectée

A

Abel

XLDnaute Accro

• 3 Mars 2005

• #2

Bonjour JiDul,

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

Abel

 

Vote positif 0 Vote négatif

J

JiDul

Guest

• 3 Mars 2005

• #3

Malheureusement oui...

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 3 Mars 2005

• #4

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.

 

Vote positif 0 Vote négatif

J

JiDul

Guest

• 3 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 3 Mars 2005

• #6

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.

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 3 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

J

JiDul

Guest

• 3 Mars 2005

• #8

Merci, je vais essayer

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 3 Mars 2005

• #9

Re,

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

Abel.

 

Vote positif 0 Vote négatif

J

JPM

Guest

• 3 Mars 2005

• #10

Bonjour à tous,

peut-être avec :

Code:

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

Jean-Pierre

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 3 Mars 2005

• #11

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

 

Vote positif 0 Vote négatif