Discussion :

[tessteur_tt]

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 !

[Ashireon]

Hello,

mets un point d'arret a la ligne 8 de ton code et regarde la valeur de sheets.count

[tessteur_tt]

Sheets.count = 115

[Soraphiroth]

Et tu as combien de feuille en tout ? L'erreur indique clairement un dépassement de tableau.

[tessteur_tt]

96

En fait j'en ai bien 115 parce que j'en ai des feuilles masquées

[Ashireon]

Le probleme viens du fait que tu supprimes au fure et a mesure donc ton sheets.count réel se modifie.
Est ce que cela fait quelque chose si on test l'ensemble des feuilles de ton classeur en dessous des 8 premieres ?

dans ce cas tu fais plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For each sh in activeworkbook.sheets
 if sh.name= d then sh.delete
next

Même plus simple si tu es sur de n'avoir qu' une seule fois le nom de cette feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(d).delete

[Soraphiroth]

rajoute un exit for juste après le delete sinon. Cela arrêtera la boucle juste après la sélection, te permettant de gagner un peu de temps à l'éxécution en ne prenant pas en compte ce qu'il y a après la feuille supprimée.