[XL-2007] bug pour supprimer des feuilles [Résolu]

[tompom3108]

bonjour à tous,

j'ai un petit souci pour supprimer plusieurs feuilles en même temps

j'ai ce code, il fait ce que je demande mais il me fait "une erreur d'exécution 9"
indice n'appartenant pas à la sélection.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Nouveau_Devis()
 
Dim Tb() As String
Dim Sh As Worksheet
Dim j As Byte
 
Do
ReDim Tb(0)
Tb(0) = "Devis"
For Each Sh In ThisWorkbook.Worksheets
    If InStr(Sh.Name, "Détail") > 0 Then
        j = j + 1
 
        ReDim Preserve Tb(0 To j)
        Tb(j) = Sh.Name
    End If
Next Sh
Application.DisplayAlerts = False
'suppression des feuilles trouvées
ThisWorkbook.Worksheets(Tb(j)).Delete
Loop Until Tb(j) = Tb(0)
 
 
 End Sub

En plus en mode débogage il ne surligne rien en jaune... C'est surement le Loop mais je ne comprends pas pourkoi?

merci d'avance pour vos conseils si vous avez.

[ZebreLoup]

Ton code ne supprime pas plusieurs feuilles en même temps. Il ajoute à ta liste toutes les feuilles dont le nom contient "détail" puis supprime la dernière feuille ajoutée à la liste.
De plus ta condition de fin de boucle ne pourra jamais être réalisée.

Tu veux faire quoi exactement ?

[tompom3108]

j'aimerai supprimer toutes les feuilles appelées "détail 1" à "détail n" si elles existent ce qui n'est pas toujours le cas...

[ZebreLoup]

Tout simplement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Nouveau_Devis()
    Dim Sh As Worksheet
 
    Application.DisplayAlerts = False
 
    For Each Sh In ThisWorkbook.Worksheets
        If InStr(Sh.Name, "Détail") > 0 Then
            Sh.Delete
        End If
    Next Sh
 
    Application.DisplayAlerts = True
End Sub

Ca te va ?

[tompom3108]

ok merci je n'arrive jamais à faire simple...