supprimer onglet

[eddy13t]

Bonjour, voila j'ai crée un userform avec une boite demandant de taper le nom d'un onglet à supprimer donc c'est tout bête voici le code:

Private Sub ok_Click()

Question = "Êtes-vous sur de vouloir supprimer cet atelier?"
rep = MsgBox(Question, vbYesNo + vbExclamation, Title:="confirmation")
If rep = vbNo Then ' Si l'utilisateur a cliqué sur "Non" alors,
rep = MsgBox("Vous avez décidé de ne pas supprimer l'atelier", vbInformation, "Annulation") 'Envoyer message d'annulation
End 'Fin
Else 'Sinon

Mavariable2 = delete_atelier.suppr_atelier
Sheets(Mavariable2).Delete
Application.DisplayAlerts = False
suppr_atelier = ""
delete_atelier.Hide
End If
End Sub


Le probleme que je rencontre est lorsque je tape un onglet qui n'existe pas, le vba me renvoie au débogage logique car il ne trouve plus la variable...Si vous avez une idée pour résoudre ce probleme merci dmen faire part 🙂

Bonne soirée à tous

 

[eddy13t]

Re : supprimer onglet

Personne n'a une petite idée?

 

[klin89]

Re : supprimer onglet

Bonsoir eddy13t,

😎 C'est les vacances.

Dans les fichiers présentés dans le lien ci-dessous, il y a un formulaire qui liste les feuilles du classeur, une macro supprimant la feuille sélectionnée y est associée.

Pas eu le temps de décrypter le code : à toi de t'en inspirer.

https://www.excel-downloads.com/threads/fabriquer-des-feuilles-avec-une-liste-de-noms.94860/

Klin89