Discussion :

[Matrixmax]

Bonjour,

J'essay de supprimer tout feuil autre que la preimére feuil de mon classeur

Or je suis débutant en VBA Excel , j'ai batté pour avoir ce 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
21
22
23
 
Private Sub CommandButton1_Click()
 
Dim i As Integer
 
 
i = Sheets.Count
 
 
 
While Not i = 1
 
Excel.Application.DisplayAlerts = False
i = Sheets.Count
Sheets(i).Delete
Excel.Application.DisplayAlerts = True
 
Wend
 
 
 
 
End Sub

Or quand il y ai plusieurs feuils ( supérieur à 1 ) dans le classeurs le code bug et donne ce message d'erreur , quelqu'un peut m'aider STP ...



Merci d'avance .

[AlphaScorpi]

Tu peux passer par une boucle For Each.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Suprsh()
    Dim wb As Workbook
    Dim ws As Worksheet
 
    Set wb = ThisWorkbook
    For Each ws In wb.Worksheets
        Application.DisplayAlerts = False
        If ws.Index <> 1 Then ws.Delete
        Application.DisplayAlerts = True
    Next ws
 
End Sub

[Matrixmax]

merci infiniment çà marche trés bien !