Bonjour Stéph, le forum
ton code est bon sauf la ligne
Worksheets(Onglet).Delete
onglet est une feuille donc tu dois écrire
onglet.delete
ou
Worksheets(Onglet.name).Delete
voila ton code modifié, une égalité est plus simple à lire
Private Sub CommandButton10_Click()
'bouton pour supprimer l'onglet lié avec le ComboBox1
Dim Mes As String
Dim Bouton As Single
Dim Titre As String
Dim Onglet As Worksheet
Dim Res As Long
If UserForm1.ComboBox1.ListIndex = -1 Then Exit Sub
For Each Onglet In ActiveWorkbook.Worksheets
If Onglet.Name = "Data" Or Onglet.Name = "General" Then
'message si la feuille "Data" et/ou "General" a été sélectionné
Mes = "Il est impossible de supprimer cette Feuille"
Bouton = vbOKOnly + vbInformation
Titre = "Suppression Portefeuille"
Res = MsgBox(Mes, Bouton, Titre)
If Res = 1 Then Exit Sub
'traitement de oui
Else
Onglet.Delete
End If
Next
End Sub
Cordialement, A+