Rechercher : dans
Par :

[VBA] Comment détceter si un objet existe?

Dernière réponse le 10 avr 2008 à 16:42:39 Rhödam, le 10 avr 2008 à 12:08:13 
 Signaler ce message aux modérateurs

Bonjour,

je suis en train de créer une macro excel servant à automatiser la création de graphiques et j'ai besoin à un moment de savoir si il existe déjà un graphique de même nom sur la page. Si ce n'est pas le cas, la macro le crée et s'il existe, la macro superpose les courbes. Je ne vois pas de quelle manière écrire mon if, si quelqu'un a une idée de comment procéder...

Merci d'avance.

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « [VBA] Comment détceter si un objet existe? » dans :
Objet FileSystemObject (FSO) VoirFileSystemObject L'objet FileSystemObject (FSO) permet de manipuler le système de fichiers de Windows. L'utilisation du modèle d'objet FileSystemObject s'effectue en créant une instance de l'objet Scripting.FileSystemObject l'intermédiaire de la...

1

artragis, le 10 avr 2008 à 15:46:17

Je ne connais pas la synthaxe exact ni le nom de l'objet graphique mais je peux te dire que la détetion est simple
on va dire que le nom de l'objet est "graphique"
Si dans le document il y a un graphique (en JavaScript si tu connais on dit "if (document.graphique)" ça doit pas être loin de ça côté synthaxe.
ça serait du genre
If Formulaire1.graphique=true then
instruction pour supperposer les courbe

else
créer une courbe

end if

Répondre à artragis

2

Rhödam, le 10 avr 2008 à 16:01:45

Voilà à quoi ressemble cette partie de code. J'ai testé ta méthode mais elle ne marche pas. Il n'applique pas la propriété ChartObjects car il n'y a pas encore d'objet sur cette feuille de calcul et il annonce donc une erreur.

If ActiveSheet.ChartObjects("Graphique 1") = True Then
ActiveSheet.ChartObjects("Graphique 1").Select
ActiveChart.Paste
Else
ActiveSheet.Paste
End If

Répondre à Rhödam

3

artragis, le 10 avr 2008 à 16:24:38

Bien je pense que c'est bon.

Répondre à artragis

4

 Rhödam, le 10 avr 2008 à 16:42:39

Bah le problème c'est que ça marche pas... '^^

Répondre à Rhödam