Graphe et boucle si

[chuinul]

Bonjour a tout le monde,

Voila je suis en traint de faire une macro qui créer un graphe avec des données. Mon problème c'est qu'a chaque fois que je lance ma macro, lors de la création du graphe j'ai un message du style :

Cette feuille contient des données voulez vous les supprimer?

Bon c'est pas que ca me gène mais presque.

Alors je me suis dit qu'il fallait peut être rafraichire cette feuille ou la suprimer
avant la création du graphe. Sauf que, dans ce dernier cas, si je lance pour la première fois la macro, le graph n'existe pas ! et la j'ai une erreur de compilation normal.

Je pense que la solution serait de faire un test du style:

Si la feuille MonGraph existe (étape 1)
Alors la supprimer (étape 2)
Sinon création (étape 3)

Maintenant, si par exemple le graph existe (étape 1), la boucle va supprimer la feuille MonGraphe (étape 2), mais est ce que elle va créer le graphe (étape 3) ?

Comment faire?

Voilà si une âme charitable pourrai m'aider ca serait sympa!!

Bon Aprèm

Chuinul

 

[CB60]

Re : Graphe et boucle si

Bonjour
Peux tu mettre un fichier avec quelques infos et ta macro pour voir le soucis.

 

[chuinul]

Re : Graphe et boucle si

Salut,

Voici en pièce jointe un fichier Test


Merci

 

[CB60]

Re : Graphe et boucle si

re
Le début de ta macro:
sub graph()
On Error Resume Next 'si la feuille n'existe pas
Application.ScreenUpdating = False 'evite le rafraichissement de l'écran
'remettre à true en fin de macro
Sheets("Positions_Pistes").Select
Application.DisplayAlerts = False 'evite la validation pour le delete
Sheets("Graphe_Positions_Pistes").Delete
Application.DisplayAlerts = true
je ne suis pas aller plus loin car manque d'information

 

[chuinul]

Re : Graphe et boucle si

re,

Alors effectivement ca marche quand je lance la macro pour la première fois mais si je la lance une deuxième fois j'ai un message qui dit :

Les feuilles sélectionnées contiennent des données. Voulez vous les supprimer?

Comment faire pour que se message ne s'affiche plus?

Merci d'avance

 

[chuinul]

Re : Graphe et boucle si

re,

enfait si c'est bon j'ai mal recopier ce que tu m'as écrit

Merci et bonne soirée

 

[CB60]

Re : Graphe et boucle si

re
regarde le fichier, j'ai effacé des references de cellule car pas d'info.
chez moi il efface bien le graph et le recrée sans aucun souci