Bonjour à tous,

Voila j'ai un Useform nommé "SuppressionEnseigne" ou il y a un ComboBox : "ComboBox1". Dans ce combobox, il y a une liste d'enseigne. Je souhaiterais lorsque je selectionne une Enseigne et que je clique sur mon bouton Supprimer situé en bas de ma Useform, que ça cherche dans toutes les feuilles de mon classeur afin de retrouver la feuille avec le nom correspondant à celui choisit dans mon ComboBox. Mes feuilles d'Enseignes commencent en 8. Je vous transmet mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
d = SuppressionEnseigne.ComboBox1.Value
 
For Z = 8 To Sheets.Count
 
 
If Sheets(Z).Name = d Then
 
Sheets(Z).Select
ActiveWindow.SelectedSheets.Delete
 
 
End If
 
Next Z
 
MsgBox "Enseigne supprimée !"
 
End Sub

Le probleme c'est que j'obtient un message d'erreur : "Erreur d'exécution '9': l'indice n'appartient pas à la selection".
Pourtant, la feuille est bien supprimée. Je ne comprend pas.

Merci d'avance pour votre aide, c'est très urgent !