Microsoft 365 Liste déroulante / Userform VBA

[gaelle31]

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.

 

[vgendron]

Bonjour

il suffirait d'ajouter un test avant la boucle de suppression

Continuer=msgbox ("Souhaitez vous continuer et supprimer les feuilles", vbyesno)
if Continuer=vbno then exit sub

 

[gaelle31]

Merci ! 🙂