Je viens de créer une macro pour supprimer toutes les feuilles non nécessaires en fonction de ma Val1:
Sub supfeuille()
Dim Val1 As Integer
Val1 = Sheets("Packing list").[t16].Value
Application.DisplayAlerts = False
For I = Sheets.Count To 1 Step -1
If Sheets(I).Name <= Val1 Then
Else
Sheets(I).Delete
End If
Next
End Sub
Elle supprimer toutes les feuilles que je souhaite mais à la fin j'ai le message suivant :
Re : Message erreur 13 alors que la macro fonctionne
Re,
ceci fonctionne chez moi :
Code:
Sub supfeuille()
Dim Val1 As Integer
Val1 = Sheets("Packing list").[t16].Value
Application.DisplayAlerts = False
For I = Sheets.Count To 1 Step -1
If Sheets(I).Name > Val1 Then Sheets(I).Delete
Next
Application.DisplayAlerts = True
End Sub
Re : Message erreur 13 alors que la macro fonctionne
Merci pour la piste.
Je viens de faire ce code :
Sub supfeuille()
Dim Val1 As Integer
Val1 = Sheets("Packing list").[t16].Value
Application.DisplayAlerts = False
For I = Sheets.Count To 1 Step -1
If Sheets(I).Name = "Packing list" Then
Else
If Sheets(I).Name <= Val1 Then
Else
Sheets(I).Delete
End If
End If
Next