feuille existe-t-elle

[Chris]

Bonjour à tous,

Petite question si quelqu'un peut m'aider :

Je voudrais, dans un classeur, écrire une macro qui me permettrait:

- de savoir si une feuille existe (par ex Dupont)
- si elle existe de la supprimer
- puis d'en recréer une avec le même nom.

J'arrive très bien à supprimer une feuille et à en créer une mais je ne sais pas comment réussir à déterminer si elle existe avant de faire cela...

Merci d'avance à tous ceux qui m'apporteront la solution et à bientôt sur le forum...

 

[@Christophe@]

Bonjour,
Voila comme faire:

Option Explicit
Dim WS As Worksheet
Dim X As Byte

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False 'Evite avertissement suppr de feuille
For Each WS In Worksheets
If WS.Name = "Dupont" Then
WS.Delete
X = Sheets.Count 'Compte les feuilles
Sheets.Add After:=Sheets(X) 'Ajoute une feuille à la fin
Sheets(X + 1).Name = "Dupont" 'Renomme la feuille
End If
Next WS
Application.DisplayAlerts = True 'Réactive les alertes!
End Sub

Bonne journée

@Christophe@