Bonjour,
Je souhaiterais créer une macro me permettant de supprimer tous les onglets créés dans mon fichier excel hormis le RECAP et TABLES.
J'ai constitué une macro qui marche bien pour ça :
Sub Supprimer_dernieres_feuilles()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If Condition = "oui" And xWs.Name <> "RECAP" And xWs.Name <> "TABLES" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Néanmoins, je souhaiterais, préalablement à l'exécution de ma macro, qu'un message s'affiche disant "confirmez-vous supprimer les derniers feuilles" et une liste déroulante avec "oui" et "non".
Si l'utilisateur sélectionne "oui", alors la macro s'exécute, à défaut, elle ne s'exécute pas.
En espérant être claire et dans l'attente de lire vos messages me venant en aide.
Merci d'avance.
Je souhaiterais créer une macro me permettant de supprimer tous les onglets créés dans mon fichier excel hormis le RECAP et TABLES.
J'ai constitué une macro qui marche bien pour ça :
Sub Supprimer_dernieres_feuilles()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If Condition = "oui" And xWs.Name <> "RECAP" And xWs.Name <> "TABLES" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Néanmoins, je souhaiterais, préalablement à l'exécution de ma macro, qu'un message s'affiche disant "confirmez-vous supprimer les derniers feuilles" et une liste déroulante avec "oui" et "non".
Si l'utilisateur sélectionne "oui", alors la macro s'exécute, à défaut, elle ne s'exécute pas.
En espérant être claire et dans l'attente de lire vos messages me venant en aide.
Merci d'avance.