Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

réponse automatique à msgbox

3 réponses
Avatar
bourgouinkristof
Bonjour =E0 tous,
Dans une macro je supprime une feuille de calcul
le syst=E8me m'envoi une msgbox
"les feuilles s=E9lectionn=E9es peuvent contenir des donn=E9es. pour
supprimer d=E9finitivement les donn=E9es cliquez sur supprimer"
avec le choix supprimer ou annuler.
1 ) Comment faire pour valider supprimer sans intervention ?

Sheets("DATA").Select
ActiveWindow.SelectedSheets.Delete
Sheets("SOCIETE").Select
Range("A1").Select

2) y a t'il la possibilit=E9 de supprimer la feuille sans se positionner
dessus ?

Merci de vos r=E9ponses.

3 réponses

Avatar
MichDenis
Tu dois garder en mémoire que le classeur doit contenir
au moins (obligatoire) une feuille de calcul visible !


Application.DisplayAlerts = False
Sheets("DATA").Delete
Application.DisplayAlerts = True




a écrit dans le message de news:
Bonjour à tous,
Dans une macro je supprime une feuille de calcul
le système m'envoi une msgbox
"les feuilles sélectionnées peuvent contenir des données. pour
supprimer définitivement les données cliquez sur supprimer"
avec le choix supprimer ou annuler.
1 ) Comment faire pour valider supprimer sans intervention ?

Sheets("DATA").Select
ActiveWindow.SelectedSheets.Delete
Sheets("SOCIETE").Select
Range("A1").Select

2) y a t'il la possibilité de supprimer la feuille sans se positionner
dessus ?

Merci de vos réponses.
Avatar
laurent.daures
Bonjour,
Application.DisplayAlerts = False
Amicalement
Siesting Hoax
a écrit dans le message de news:

Bonjour à tous,
Dans une macro je supprime une feuille de calcul
le système m'envoi une msgbox
"les feuilles sélectionnées peuvent contenir des données. pour
supprimer définitivement les données cliquez sur supprimer"
avec le choix supprimer ou annuler.
1 ) Comment faire pour valider supprimer sans intervention ?

Sheets("DATA").Select
ActiveWindow.SelectedSheets.Delete
Sheets("SOCIETE").Select
Range("A1").Select

2) y a t'il la possibilité de supprimer la feuille sans se positionner
dessus ?

Merci de vos réponses.
Avatar
laurent.daures
au fait, s'agissant de la feuille à supprimer,
point n'est besoin de la sélectionner.

Application.DisplayAlerts = False
Sheets("DATA").Delete
Sheets("SOCIETE").Select

Amicalement
Siesting Hoax
"laurent.daures" a écrit dans le message de news:
4864ea11$0$843$
Bonjour,
Application.DisplayAlerts = False
Amicalement
Siesting Hoax
a écrit dans le message de news:

Bonjour à tous,
Dans une macro je supprime une feuille de calcul
le système m'envoi une msgbox
"les feuilles sélectionnées peuvent contenir des données. pour
supprimer définitivement les données cliquez sur supprimer"
avec le choix supprimer ou annuler.
1 ) Comment faire pour valider supprimer sans intervention ?

Sheets("DATA").Select
ActiveWindow.SelectedSheets.Delete
Sheets("SOCIETE").Select
Range("A1").Select

2) y a t'il la possibilité de supprimer la feuille sans se positionner
dessus ?

Merci de vos réponses.