Supprimer une feuille a partir d'une combobox
arkancylla
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
bonjour,
je travaille sous vba et je souhaite pouvoir supprimer une feuille excel dont je choisis le nom dans une combobox. comment dois je faire?
je travaille sous vba et je souhaite pouvoir supprimer une feuille excel dont je choisis le nom dans une combobox. comment dois je faire?
A voir également:
- Supprimer une feuille a partir d'une combobox
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
7 réponses
hello voila une possibilité :
Dim ws As Worksheet
Set ws = Worksheets(string_Nom_de_la_feuille)
ws.Delete
Dim ws As Worksheet
Set ws = Worksheets(string_Nom_de_la_feuille)
ws.Delete
merci pour ton aide
mais comment je fais pour dire que le nom de la feuille c'est la valeur saisie dans le combobox?
mais comment je fais pour dire que le nom de la feuille c'est la valeur saisie dans le combobox?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Avec un user form (tous les objets ont leur nom par défaut) avec un bouton pour supprimer la feuille selectionnée :
' sur clique du bouton supprime la feuille selectionnée dans la Combo
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets(ComboBox1.Value)
ws.Delete
End Sub
'Lors du lancement du Userform rempli la combo
Private Sub UserForm_Activate()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next ws
End Sub
' sur clique du bouton supprime la feuille selectionnée dans la Combo
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets(ComboBox1.Value)
ws.Delete
End Sub
'Lors du lancement du Userform rempli la combo
Private Sub UserForm_Activate()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next ws
End Sub
ok mais vba genere une erreur et me dit "l'indice n'appartient pas a la selection". Cette erreur est générée a la ligne Set ws = Worksheets(ComboBox2.Value)
Hello je dois partir malheureusement ....
Quelques idées :
Set ws = Worksheets( ici tu dois avoir le nom de la feuille )
je ne sais pas quel est le contenu de ta combo box mais normalement si tu met le nom dans la valeur de la combo, alors
ComboBox1.Value -> ramène le nom de la feuille.
Sans cela c'est peut-être que tu ne travaille pas dans le bon classeur : tu peux positioner dans le classeur avec un
Workbooks(nom_du_classeur).worksheets(...)
A+ et bon courrage.
Quelques idées :
Set ws = Worksheets( ici tu dois avoir le nom de la feuille )
je ne sais pas quel est le contenu de ta combo box mais normalement si tu met le nom dans la valeur de la combo, alors
ComboBox1.Value -> ramène le nom de la feuille.
Sans cela c'est peut-être que tu ne travaille pas dans le bon classeur : tu peux positioner dans le classeur avec un
Workbooks(nom_du_classeur).worksheets(...)
A+ et bon courrage.
