Supprimer une feuille à nom variable

Question

Bonjour à vous,

Je suis désolé d'un doublon de sujet , mais je n'ai pas trouvé la réponse à ma question.
Le problème va surement vous paraitre simple mais j'ai eu pas mal de difficulté.

Je crée une Macro VBA qui va crée des pages à nom variable, par exemple l'utilisateur rentre dans la textbox " Actimel" et une page se crée avec toutes les données d'Actimel.

Cependant lorsque la page éxiste déjà cela me met une erreur.
Je n'arrive pas à supprimer cette page sachant que son nom est variable  

    If Exist(textbox1.value) = True Then "            Application.DisplayAlerts = False            Sheet(textbox1.value).Select            ActiveSheet.Delete            Application.DisplayAlerts = True    End if

Ce qui fonctionne pour les pages fixes, mais non variable.

Merci

Gemstar

cs_Le Pivert · Answer

Bonjour,

Comme ceci:

Sub EffacementFeuille()
Dim nouvelle As String 'nom de la feuille
Dim Ctr As Integer
nouvelle = "mononglet" 'a adapter
  Application.DisplayAlerts = False
  For Ctr = Sheets.Count To 1 Step -1
    If Sheets(Ctr).Name = nouvelle Then
      Sheets(Ctr).Delete
    End If
  Next
  Sheets.Add.Name = nouvelle
    Application.DisplayAlerts = True
End Sub

Supprimer une feuille à nom variable

1 réponse

Discussions similaires

Newsletters