Suppression feuille dont le nom est dans une cellule

[yoyobat]

Bonjour le forum,

J'ai un problème pour une suppression de feuilles:
Je crée des feuilles qui se nomment automatiquement
Je voudrais en supprimer certaines selon leur nom
Ce nom est affiché dans une cellule d'une feuille qui ne se supprime pas

J'avais peaufiner un bout de code mais
Sheets("Name").Delete ne marche pas.

Voici le code en entier:

Dim plageNoms As Range
Set plageNoms = Range("B10")
Dim Name As String

For Each cell In plageNoms
' là on affecte le contenu de la cellule à la variable Name
Name = cell.Value
' et on supprime l'onglet correspondant
Sheets("Name").Delete
Application.DisplayAlerts = True


Si quelqu'un à une piste ??

Merci beaucoup.

Yoyobat.

 

[ERIC S]

Re : Suppression feuille dont le nom est dans une cellule

Bonjour

ce code, pas forcément optimal, doit fonctionner

le nom de la feuille est en A1 dans mon exemple

    Sheets(Range("A1").Value).Select
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False

 

[yoyobat]

Re : Suppression feuille dont le nom est dans une cellule

Bonjour Eric S,

Merci pour ce code qui marche bien pour les feuilles activées.
Serait-il possible d'activer la feuille dont le nom est en A1 (dans ton exemple) afin de la supprimer ensuite ?

En tout cas, merci pour ton aide

Yoyobat

 

[JNP]

Re : Suppression feuille dont le nom est dans une cellule

Bonjour le fil ,
Ton premier code était correct SAUF qu'on affecte jamais une propriété VBA à une variable ... Name ne peux pas être utilisé ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plageNoms As Range
Set plageNoms = Range("B10")
Application.DisplayAlerts = False
For Each cell In plageNoms
Sheets(cell.Value).Delete
Next
Application.DisplayAlerts = True
End Sub

par exemple .
Bonne suite

 

[yoyobat]

Re : Suppression feuille dont le nom est dans une cellule

Problème résolu

C'est parfait, j'ai compris.

Merci à tous.

Yoyobat