[Résolut] Suprimer un onglet si déjà existant avant céation d'un onglet.

WDAndCo · 5 Juillet 2012

Bonsoir le Forum

J'ai un classeur qui me permet de suivre certaine donnée journalière. La saisie est hebdomadaire.
Dans ce classeur il y a une archive d'un an glissant.

Voila mon probleme : une macro me regroupe toute les donnés d'un mois et les copie dans un onglet qui se nomme Janvier ou Février etc.
Voila un an que je l'utilise. Donc lorsque je sauvegarde un nouveau mois, je dois avant supprimer l'onglet qui porte le même nom de mon futur onglet.
Comment rendre cela automatique ?
J'ai déjà un DIM NOM$ qui contient le nom du futur onglet !

D'avance merci, pour vos bons conseils.

Dominique

mapomme · 5 Juillet 2012

Re : Suprimer un onglet si déjà existant avant céation d'un onglet.

Bonsoir WDAndCO,

Un exemple dans le fichier joint. J'ai laissé volontairement l'alerte de Excel pour se prémunir des suppressions intempestives.

Code:

Sub test()
Dim NOM$

NOM = "Feuil2"
On Error Resume Next
MsgBox "Si la feuille " & NOM & " existe déjà, on la supprime."
' Application.DisplayAlerts = False  '<= pour ôter l'alerte, activez cette instruction
Sheets(NOM).Delete
Application.DisplayAlerts = True
On Error GoTo 0

End Sub

WDAndCo · 5 Juillet 2012

Re : Suprimer un onglet si déjà existant avant céation d'un onglet.

Bonsoir le Forum et mapomme

Merci pour votre réponse, mais j'avais pensé à quel chose de plus automatisé ! Sans message qui ralentis la procédure. Si l'onglet existe il est supprimé voilà tout.
Dominique

mapomme · 5 Juillet 2012

Re : Suprimer un onglet si déjà existant avant céation d'un onglet.

(re)Bonsoir WDAnbCo,

Merci pour votre réponse, mais j'avais pensé à quel chose de plus automatisé ! Sans message qui ralentis la procédure. Si l'onglet existe il est supprimé voilà tout.

Sans message essayez le code suivant:

Code:

Sub test()
Dim NOM$
NOM = "Feuil2"

On Error Resume Next
Application.DisplayAlerts = False
Sheets(NOM).Delete
On Error GoTo 0
Application.DisplayAlerts = True

End Sub

WDAndCo · 9 Juillet 2012

Re : [Résolut] Suprimer un onglet si déjà existant avant céation d'un onglet.

Bonsoir le Forum, merci mapomme, pile poil !
J'ai passé ce fil en résolut, et pardon pour ses remerciements tardifs, mais il faillait que j'essaye au boulot !

Encore merci.
Dominique

[Résolut] Suprimer un onglet si déjà existant avant céation d'un onglet.

WDAndCo

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

WDAndCo

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

WDAndCo

XLDnaute Impliqué

Discussions similaires

[Résolut] Suprimer un onglet si déjà existant avant céation d'un onglet.

WDAndCo

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

WDAndCo

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

WDAndCo

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency