Message Alerte

[mike13]

Bonjour le Forum,

J'aimerais qu'un message d'alerte apparaisse lorsque on appuie sur une macro d'effacement, afin d'éviter une perte des données si CLIC malencontreux sur le bouton réservé à cette macro.

Voir l'exemple dans le fichier joint.

Help Forum, je pense que c'est par un message box mais je sèche.

Merci par avance

Mike13

 

[tototiti2008]

Re : Message Alerte

Bonjour Mike,

un truc du genre

Sub Test()
Dim Rep As Long
    Rep = MsgBox(prompt:="Voulez-vous supprimer la macro Effacer_mois ?", Buttons:=vbInformation + vbYesNo)
    If Rep = vbYes Then
        'commandes de suppression
    End If
End Sub

même si je trouve que la question

Voulez-vous supprimer la macro Effacer_mois ?

est tout sauf claire pour moi 😉

 

[Hulk]

Re : Message Alerte

Hello,

Une autre version avec Select Case.

Mais pareil que tototiti concernant

Voulez-vous supprimer la macro Effacer_mois ?

Cdt, Hulk.

 

[mike13]

Re : Message Alerte

Bonjour le Forum,

Merci mais les solutions proposées fonctionnent ...à moitié car elles n'arrêtent pas la macro "Effacer_mois"
J'ai bien le message box qui apparait mais si on dit NON ou OUI la macro s'exécute quoiqu'il arrive.
Mike13

 

[Hulk]

Re : Message Alerte

Hello,

Dans le fichier que tu nous a fournis, il n'y a aucune macro !

On t'as donné la solution pour un message, les procédures que tu veux en cas de oui ou de non, c'est à toi de les rajouter !

On est pas devin pour savoir quelle est ta macro "Effacer_mois" !