[VBA] Comment détceter si un objet existe?
Fermé
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.
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.
A voir également:
- [VBA] Comment détceter si un objet existe?
- Vente entre particulier objet - Guide
- Un périphérique qui n'existe pas a été spécifié - Forum Matériel & Système
- Identifier un objet à partir d'une photo - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Comment supprimer un fichier qui n'existe plus - Guide
2 réponses
artragis
Messages postés
481
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
6 avril 2010
146
10 avril 2008 à 15:46
10 avril 2008 à 15:46
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
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
artragis
Messages postés
481
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
6 avril 2010
146
10 avril 2008 à 16:24
10 avril 2008 à 16:24
bien je pense que c'est bon.
10 avril 2008 à 16:01
If ActiveSheet.ChartObjects("Graphique 1") = True Then
ActiveSheet.ChartObjects("Graphique 1").Select
ActiveChart.Paste
Else
ActiveSheet.Paste
End If