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 : Sélectionner tout - Visualiser dans une fenêtre à part
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