Afficher suivi de Effacer

Salut DubbleYou,

Pour l'effacer, il suffit de le reséléctionner pour de le deleter, qqchose comme ça:

ActiveSheet.ChartObjects('Graphique 1').Activate
ActiveChart.ChartArea.Select
Selection.Delete

Quand à la méthode à employer pour que ce soit le même bouton, j'ai déjà réalisé quelque chose de semblable. J'ai utilisé le caption du bouton pour savoir quel était son rôle. Par exemple, dans le code qui créer le graphique, tu rajoutes à la fin une modification du caption de ton bouton: tu le fais passer de 'Créer le graphique' à 'Supprimer le graphique' (e vice versa).

Après, il suffit d'une condition au début de ta procédure:
If commandbutton.caption = 'Supprimer le graphique' then
goto supprimgraph
elseif commandbutton.caption = 'Créer le graphique'
goto affichgraph
end if

J'espère avoir pu t'aider,

Thierry78

Bonjour Thierry,

Et merci de ton aide, car j'ai fini par arriver à mes fins. Je dois dire que j'ai peu d'expérience dans la programmation et que j'ai dû batailler. J'ai mis en effet pas mal de temps à comprendre que le code lié au CommandButton ne pouvait être affecté qu'en utilisant une grille Userform dotée d'un bouton de commande. Au départ, j'avais placé ce bouton de commande directement sur ma feuille Excel et rien ne fonctionnait. Maintenant tout marche exactement comme tu me l'as indiqué. Encore merci.