supprimer feuille à partir d'une item selectionner dans combobox

[johnshark]

Bonjour le forum,

je souhaiterais à partir d'une combobox dont la liste est construire à partir des noms de feuilles composants mon classeur, pouvoir en sélectionnant un item supprimer la feuille s'y rapportant en cliquant sur un bouton de commande. J'avoue être complètement bloqué...
Voici mon code actuel permettant de réaliser la liste :

Private Sub ComboBox1_Change()
Sub UserForm_Initialize()
For i = 4 To ThisWorkbook.Sheets.Count
ComboBox1.AddItem (ThisWorkbook.Sheets(i).Name)
Next i

End Sub

Je ne sais pas quelle code utiliser pour arriver à mes fins (utiliser l'item sélectionné pour supprimer la feuille).

Merci d'avance pour votre aide.

 

[JNP]

Re : supprimer feuille à partir d'une item selectionner dans combobox

Bonjour Johnshark 🙂,
En principe

ThisWorkbook.Sheets(combobox1.Value).Delete

Bonne journée 😎

 

[vbacrumble]

Re : supprimer feuille à partir d'une item selectionner dans combobox

Bonjour à tous

EDITION: Le code pour ton bouton (issu de code de JNP que je salue)

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ThisWorkbook.Sheets(Me.ComboBox1.Value).Delete
Application.DisplayAlerts = True
End Sub

Il y a une erreur dans ton code (sauf s'il s'agit d'un mauvais copier/coller 😉 )

Private Sub ComboBox1_Change()
Sub UserForm_Initialize()
For i = 4 To ThisWorkbook.Sheets.Count
ComboBox1.AddItem (ThisWorkbook.Sheets(i).Name)
Next i
End Sub

La oK

Sub UserForm_Initialize()
Dim i&
For i = 4 To ThisWorkbook.Sheets.Count
ComboBox1.AddItem (ThisWorkbook.Sheets(i).Name)
Next i
End Sub

Private Sub ComboBox1_Change()

End Sub

 

[johnshark]

Re : supprimer feuille à partir d'une item selectionner dans combobox

Bonjour vbacrumble, jnp et le forum,

merci pour vos réponses ultra rapide, je viens d'essayer le code et cela marche très bien. J'avoue que mon niveau en vba ne me permet pas d'encore créer mes codes tout seul et je travaille à partir de code que je trouve sur le net, que j'essaie de modifier et de comprendre.
Dim i sert à annoncer que les variables peuvent être modifiées ? ou je fais complètement fausse route.
Dans tous les cas un grand merci à tous les deux car cela marche très bien.😀

 

[JNP]

Re : supprimer feuille à partir d'une item selectionner dans combobox

Re 🙂,
Salut VBACrumble 😉.
Dim I& permet de déclarer la variable, et de prévenir (avec le & qui équivaut à un As Long) que seuls des entiers seront stockés dans la variable. Ce n'est obligatoire que si tu as Option Explicit en début de module, mais c'est toujours mieux de déclarer les variables, c'est plus clair pour le code, et ça évite des surprises quand tu penses avoir un chiffre dans une variable et que tu as en fait des caractères...
Bonne journée 😎
Ajout : C'est % qui équivaut à As Integer, $ à As String... J'ai tellement l'habitude de mettre mes compteurs en Integer que je me suis pris les pieds dans le tapis...

 

[johnshark]

Re : supprimer feuille à partir d'une item selectionner dans combobox

Re,
Ok, merci pour ton explication. 🙂

 

[vbacrumble]

Re : supprimer feuille à partir d'une item selectionner dans combobox

Re

Explication avec une tite erreur , eh eh

JNP: j'attends que tu édites ton message ou je lui dis 😀