Bonjour à tous,
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 :
Microsoft Virtual Basic
Erreur d'exécution '13':
Type incompatible
Avec le choix de cliquer sur Fin, Annuler
Merci pour votre aide
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 :
Microsoft Virtual Basic
Erreur d'exécution '13':
Type incompatible
Avec le choix de cliquer sur Fin, Annuler
Merci pour votre aide