Message Alerte

tototiti2008

XLDnaute Barbatruc

• 20 Janvier 2010

• #2

Re : Message Alerte

Bonjour Mike,

un truc du genre

Code:

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 ?

Cliquez pour agrandir...

est tout sauf claire pour moi 😉

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 20 Janvier 2010

• #3

Re : Message Alerte

Hello,

Une autre version avec Select Case.

Mais pareil que tototiti concernant

Voulez-vous supprimer la macro Effacer_mois ?

Cliquez pour agrandir...

Cdt, Hulk.

 

Pièces jointes

• Message Alerte.xls

  28.5 KB · Affichages: 100
• Message Alerte.xls

  28.5 KB · Affichages: 106
• Message Alerte.xls

  28.5 KB · Affichages: 104

Dernière édition: 20 Janvier 2010

Vote positif 0 Vote négatif

M

mike13

XLDnaute Occasionnel

• 21 Janvier 2010

• #4

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 21 Janvier 2010

• #5

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" !

 

Vote positif 0 Vote négatif