Discussion :

[delamarque]

Bonjour,

j'ai un bouton de commande sur une feuille Excel et en cliquant sur ce bouton je voudrais effacer la même feuille.
Est ce que c'est possible de faire un code sur cela.

Merci d'avance

[bouley]

Bonjour delemarque

Pour effacer toute la feuille,ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
Private Sub CommandButton1_Click()
Range("A:IV").Delete
End Sub

@+

[delamarque]

Re-bonjour,

en fait je me suis mal exprimé je veux supprimer l'onglet sur lequel il y a le bouton et non effacer la feuille sur lequel il y a le bouton.

[Megaxel]

C'est pas évident, parce que le bouton se trouve précisément sur la feuille que tu supprimes...
Mais ça doit se faire, je regarde.

[Megaxel]

J'ai un truc rigolo. Dans un module, tu mets ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub SupprOnglet()
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub

Et dans le code de ton bouton, tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
    Application.OnTime Time + TimeValue("00:00:01"), "SupprOnglet"
End Sub

Comme ça, la feuille est supprimée 1 seconde après, et tout se passe bien. Mais tu perds le code de ton bouton, bien sûr, puisqu'il est supprimé en même temps que ta feuille.

Et même, si tu es rapide, tu as 1 seconde pour sélectionner l'onglet qui va mourir...

[Tan]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click() 
ActiveSheet.Delete 
End Sub

J'ai n'ai pas eu de problème pour supprimer la feuille (même si le bouton était dessus.

Note: Utiliser Application.DisplayAlerts= False (puis True) pour ne pas aficher la demande de confirmation

[Megaxel]

Ha ben c'est bizarre: moi, j'ai eu un gros "Automation Error" affreux !!!!

[Tan]

Moi pas de problème, sauf s'il n'y a qu'une feuille (on ne peut alors pas la supprimer)
J'ai testé sous excel 2003

[Megaxel]

Je suis en 2002, et il n'aime pas ça du tout!!!

(Je viens de le refaire...)

[bouley]

Bonjour tous,

Sous 2002 pas de problème avec le code de tan

@+

[Tan]

Ben un petit Application.OnTime (ou quelque chose dans le genre) pour exécuter du code dans un module avec un petit décalage.
Du coup, ça sera le module qui supprimera la feuille et non le bouton...
A essayer, moi ça sert à rien que je test, car j'ai pas d'erreur depuis la feuille, je pourrai pas dire si ça améliore les chose

[Megaxel]

Allez, Tan, remonte un peu vers le début du post, et tu verras que ta proposition, c'est le code que j'ai envoyé...

[Tan]

Oups, pardon, je ne l'avais pas vu celui-là
J'ai envoyé un message 3 minutes après le tien. Ca doit être pour ça que je ne l'avais pas vu.

[Tan]

Tiens, et je n'avais pas vu ça non plus:

Bonjour tous,

Sous 2002 pas de problème avec le code de tan

@+

Donc, pas besoin de onTime, il doit y avoir un autre problème pour que tu génère ton erreur

[delamarque]

Hello


Merci à tous je vais essayer dans mon programme pour voir si ça marche...

[delamarque]

hello again

en ft supprimer directement l'onglet ds un classeur cela marche mais
dans mon outil de calcul cette macro propage une "ERREUR AUTOMATION"
dans son code!

[Megaxel]

Ha, ça me fait bien plaisir...
Et si tu mets la solution avec le retardateur?

[delamarque]

ca ne marche pas mais je pense que le pb ne vient pas que de ce code.
Je vais donc essayé de voir d'ou vient mon erreur...

Merci de ton aide

[Megaxel]

Qu'est-ce qu'il y a en plus du bouton, dans la feuille que tu supprimes? Des liens? Des graphes?

[ouskel'n'or]

J'ai bien une solution mais elle est un peu tordue...
Un bouton sur une feuille de calcul qui lance une macro dans un module
Dans le module, tu mets cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub SupprimerFeuille()
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
End Sub

et dans le code du clic du bouton de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
    Application.Run ("SupprimerFeuille")
End Sub

Application.DisplayAlerts = False

est là pour éviter d'avoir le message "Fais gaffe, ta feuille va être définitivement perdue... tcétéra"

A+