Discussion :

[sransac]

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

[JackOuYA]

Bonsoir,

Rajoute au début de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

[fred65200]

bonsoir,

n'oublie pas d'ajouter à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = True

cordialement

[JackOuYA]

bonsoir,

n'oublie pas d'ajouter à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = True

cordialement

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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"

[sransac]

merci ça marche très bien

[fred65200]

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.

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

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

cordialement