[VB Excel] passer outre une boite de dialogue Fermé

Question

Bien le bonjourJe suis en train d'écrire une macro XL qui doit, entre autre, effacer une des feuilles du classeur devenue inutile.l'enregistreur de macro m'a proposéSheets("tmp").SelectActiveWindow.SelectedSheets.Deletemais j'ai allégé...Sheets("tmp").DeleteQuelque soit la version du code, le problème c'est que qu'à l'exécution, la macro fait la pause et attend que je confirme l'effacement en cliquant dans une boite de dialogue qui dit en substance "la feuille peut conternir de des données... voulez vous quand même l'effacer"Je voudrais savoir si par une ligne de code en plus, on peut forcer la confirmation.Merci à celles ou ceux qui me répondront

JL86 · Answer

Bonjour,essaye cette action qui suspend puis revalide aprés action  le message d'alerte Application.DisplayAlerts = FalseWorksheets("tmp").DeleteApplication.DisplayAlerts = True

Oban_14 · Answer

Super
Merci beaucoup, je viens de m'en convaincre aussi !!!

:-)

Maryse · Answer

Sub DeleteSheet(strSheetName As String)

    'Efface une feuille sans demander de confirmation
    '================================================

' deletes a sheet named strSheetName in the active workbook
    Application.DisplayAlerts = False
    Sheets(strSheetName).Delete
    Application.DisplayAlerts = True
End Sub

[VB Excel] passer outre une boite de dialogue

3 réponses

Discussions similaires

Newsletters