vba, suppression d'une feuille

[Tchoutchou]

Bonjour tout le monde,

Je suis nouveau sur ce forum, et vous pose la solution d'un souci qui me tarabuste.
Je souhaite mettre uncondition 'if' dans le cas suivant:
si, la feuille existe, la supprimer, sinon continuer la macro;
Je n'y arrive pas, qui peut avoir la gentillesse de m'aider,
je suis sûr que vous connaissez la solution et m'en réjouis par avance
merci à tous,

 

[Robert]

Bonjour Tcoutchou, bonjour le forum,

Je te propose la macro ci-dessous sans condition If mais avec On Error Resume Next qui si la feuille n'existe pas passe à la ligne suivante :

Sub Macro1()
Application.DisplayAlerts = False 'évite le message excel
On Error Resume Next 'en cas de bug passe à la ligne suivante
Sheets('Feui4').Delete 'supprime l'onglet 'Feuil4' (à adapter)
Application.DisplayAlerts = True 'remet les message excel
End Sub

Message édité par: Robert, à: 20/10/2005 15:11

 

[anuky]

Bonjour a tous,

voici une autre macro possible qui demande le nom de la feuille a supprimer et qui regarde si elle existe dans les onglets et la supprime si c'est le cas.
tu peu normalement remplace rep = inputbox... par le nom de la feuille qui t'intéresse

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/10/2005 par anuky
'

'
Dim iii As Integer
Dim rep As Variant


'Demande le nom de la feuille a supprimer
rep = InputBox('Nommez la feuille Excel que vous voulez supprimer')

'Vérifie que le nom saisi ne correpond pas a une feuille déjà existante
For iii = 1 To Sheets.Count
If rep = Worksheets(iii).Name Then
MsgBox 'Une feuille portant le même nom existe déjà, elle va être supprimé.', vbOKOnly Or vbInformation, 'Saisie Incorrecte'
'évite l'affichage du méssage voulez-vous supprimer...
Application.DisplayAlerts = False
Worksheets(iii).Delete
Exit For
End If
Next iii
'remet les message excel
Application.DisplayAlerts = True
End Sub

valà a+

 

[tchoutchou]

Merci beaucoup Robert, ta solution marche très bien!
Tu me rends là un grand service
Merci encore!!!

 

[tchoutchou]

Bonjour Anuka,
Merci de t'être intéressé à mon cas,
Je garde ta macro bien au chaud, je suis sûr qu'elle va me servir bientôt, mais ds l'immédiat, celle de Robert me convient mieux.
nempèche que je te remercie beaucoup.
^Je découvre ce site, grâce aux conseils d'un ami, je vais y venir souvent, Excel, j'adore, mais comme je suis dessus en autodidacte, depuis 12 ans, il y a des domaines que je connais bien, mais en VBA, je démarre;
C'est difficile mais passionant, alors avec le forum et la rapidité de réponse, ce n'est que du bonheur!!!

ps: y a-t-ilune inscription possible,

 

[didier09]

Bonsoir Tchoutchou,
Pour t'inscrire,c'est en haut de la fenetre à droite: créer un compte,
et là tu rempli les champs, tu dois aussi prendre connaissance de la charte, fortement conseillé, et puis tu fais parti de la grande famille d'Xld.
Voilà bonne soirée...et bienvenu à toi.
Didier