Message alerte défectueux

[mike13]

Bonjour le Forum,

Dans le fichier joint lorsque je clique sur le bouton d'effacement le message d'alerte apparait bien mais lorsque je réponds NON, la macro d'effacement s'exécute malgré tout.
Comme je n'y connais rien en VBA, je dois faire une grosse erreur.
Le fichier joint doit vous faire MIEUX comprendre mon erreur.

Merci à tous

Mike13

 

[Efgé]

Re : Message alerte défectueux

Bonjour mike13,
Je pense que:

Sub Effacer()
Rep = MsgBox(prompt:="Voulez-vous supprimer la macro Effacer_mois ?", Buttons:=vbInformation + vbYesNo)
If Rep = vbYes Then
    Range("B2:B4").Select
    Selection.ClearContents
    Range("E2").Select
Else
    Exit Sub
End If
 
End Sub

Devrait convenir
Cordialement

 

[pierrejean]

Re : Message alerte défectueux

bonjour mike13

A tester

Sub Effacer()
'
' Effacer Macro
' Macro enregistrée le 01/03/2010 par Mike
'Dim Rep As Long
    Rep = MsgBox(prompt:="Voulez-vous supprimer la macro Effacer_mois ?", Buttons:=vbInformation + vbYesNo)
    If Rep = vbYes Then
        'commandes de suppression
        Range("B2:B4").Select
        Selection.ClearContents
        Range("E2").Select
    End If
    
End Sub

 

[Fo_rum]

Re : Message alerte défectueux

salut ...

ou encore,

Sub Effacer()
  Dim Rep As [B]Byte[/B] [COLOR="SeaGreen"]'Rep sera égal à [B]6[/B] pour oui ou à 7 pour non[/COLOR]
  Rep = MsgBox("voulez-vous supprimer les 3 données ?", vbQuestion + vbYesNo, "Maintenant,")
  If Rep = [B]6[/B] Then [B2:B4].ClearContents
  [E2].Select
End Sub

 

[mike13]

Re : Message alerte défectueux

Bonjour à tous,

Vous m'avez déjà parfaitement répondu à ma précédente demande mais j'ai une question complémentaire :
" Puis je faire apparaitre le message d'alerte en gras et en rouge par exemple ?"
J'ai essayé dans la macro mais je n'ai plus accès aux outils de "Format"
Merci par avance si la solution existe, sinon tant pis.
Mike13