validation automatique des messages

Bonjour,

j'ai créé une macro qui, entre autres, doit supprimer automatiquement certaines feuilles de mon classeur, voici la portion du code pour la suppression des feuilles :

Code:

---

1 2 3 4 5 6 7 8 9 10

'suppression des feuilles de scolarité compteur = colFeuille Sheets("infos").Select Do If Cells(LigneScolUnit, compteur).NumberFormat <> "liste" Then Exit Do Feuille_Scola = Cells(LigneScolUnit, compteur).Value If (Feuille_Scola <> vide) And Not IsError(Cells(LigneScolUnit + 1, compteur)) Then _ Sheets(Feuille_Scola).Delete compteur = compteur + 1 Loop

---

cela marche bien, mais j'ai pour chaque feuille l'obtention d'un message pour confirmer la suppression. J'ai plus de 20 feuilles à effacer et un des buts de la macro était de les supprimer sans intervention extérieure.
Comment puis-je demander la validation automatique de ce message, ou mieux, éviter l'apparition de ce message.

merci
Stef

Bonsoir,

Rajoute au début de ton code :

Code:

---

Application.DisplayAlerts = False

---

bonsoir,

n'oublie pas d'ajouter à la fin

Code:

---

Application.DisplayAlerts = True

---

cordialement

Citation:

---

Envoyé par fred65200

bonsoir,

n'oublie pas d'ajouter à la fin

Code:

---

Application.DisplayAlerts = True

---

cordialement

---

:koi: j'ai pas compris pourquoi tout le monde dis cela .. une fois la procédure terminé le DisplayAlerts repasse tout seul à True :

pour le comprendre exécute ces deux codes l'un à la suite de l'autre

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() MsgBox "Avant " & Application.DisplayAlerts Application.DisplayAlerts = False MsgBox "Apres " & Application.DisplayAlerts End Sub   Private Sub CommandButton2_Click() MsgBox Application.DisplayAlerts End Sub

---

:roll:

[EDIT]
d'ailleurs c'est écrit dans l'aide :

Citation:

---

Si vous affectez la valeur False à cette propriété, Microsoft Excel lui affecte la valeur True lorsque le code est terminé, sauf si vous exécutez le code de la procédure croisée.

---

sauf que je comprends pas ce qu'est "la procédure croisée" :aie:

merci ça marche très bien

bonsoir,
je suis bien d'accord avec ta démonstration.
Je reste persuadé, qu'il peut être utile de remettre la propriété à True, avant le fin d'une procédure, dans le cas d'un Enregistrer sous avec confirmation de l'utilisateur.

Citation:

---

sauf si vous exécutez le code de la procédure croisée

---

Je ne saurais pas définir une procédure croisée.:cry:

cordialement