savourerlavie@hotmail.fr
XLDnaute Nouveau
Bonjour le forum, bonjour les forumeux,
En plein dans une macro, je peine encore sur des détails à la c..
Si quelqu'un peux jeter un coup d'oeil et a 5 minutes pour me répondre, je vous remercie d'avance.
mon probleme :
J'aimerais supprimer plusieurs feuilles dan mon classeur au travers d'une macro. donc j'ai créer une macro (avec mes pauvres connaissances en vba et ceux que j'ai pu trouver sur le forum)qui fonctionne mais qui me parait assez lourde et limitée. Voici le code :
Sub DetruitFeuille_Sauf()
Dim Feuille As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If (Feuille.Name <> "Entités") Then
If (Feuille.Name <> "Recap1") Then
If (Feuille.Name <> "Sinistres Cbt") Then
If (Feuille.Name <> "Parametrage") Then
If (Feuille.Name <> "Etat des sites") Then
If (Feuille.Name <> "Accueil") Then
If (Feuille.Name <> "RDC1") Then
If (Feuille.Name <> "Flotte") Then
If (Feuille.Name <> "Sinistres SARL") Then
Feuille.Delete
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Application.DisplayAlerts = True
End Sub
j'aimerais savoir si il y a pas une methode plus simple pour lister toutes les feuilles a ne pas supprimer.
de plus, si possible, pouvoir les identifier non pas avec leur nom mais avec le numero de feuille interne (feuil1,feuil5...) ce qui m'evitera de modifier la macro si je modifie le nom des feuilles.
Merci a ceux qui me liront et encore plus à ceux qui répondront
A +
Jerome
En plein dans une macro, je peine encore sur des détails à la c..
Si quelqu'un peux jeter un coup d'oeil et a 5 minutes pour me répondre, je vous remercie d'avance.
mon probleme :
J'aimerais supprimer plusieurs feuilles dan mon classeur au travers d'une macro. donc j'ai créer une macro (avec mes pauvres connaissances en vba et ceux que j'ai pu trouver sur le forum)qui fonctionne mais qui me parait assez lourde et limitée. Voici le code :
Sub DetruitFeuille_Sauf()
Dim Feuille As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If (Feuille.Name <> "Entités") Then
If (Feuille.Name <> "Recap1") Then
If (Feuille.Name <> "Sinistres Cbt") Then
If (Feuille.Name <> "Parametrage") Then
If (Feuille.Name <> "Etat des sites") Then
If (Feuille.Name <> "Accueil") Then
If (Feuille.Name <> "RDC1") Then
If (Feuille.Name <> "Flotte") Then
If (Feuille.Name <> "Sinistres SARL") Then
Feuille.Delete
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Application.DisplayAlerts = True
End Sub
j'aimerais savoir si il y a pas une methode plus simple pour lister toutes les feuilles a ne pas supprimer.
de plus, si possible, pouvoir les identifier non pas avec leur nom mais avec le numero de feuille interne (feuil1,feuil5...) ce qui m'evitera de modifier la macro si je modifie le nom des feuilles.
Merci a ceux qui me liront et encore plus à ceux qui répondront
A +
Jerome