!!! msgbox capricieuse !!!

[fabrice]

bonjour

J 'ai un petit problème avec un code de msgbox.

MsgBox "voulez vous effectuer les calculs de cette page???", vbYesNo
If vbYes Then
Range("a1") = 1
Else
Range("a1") = 0
End If

'je souhaite en faite afficher une msgbox. si on repond oui, alors a1=1, sinon a1=0.
'Pour le oui ca va mais our le non, il affiche quand meme 1. pourquoi?
'Pourriez vous m'aider???

'merci de vos réponse,

FAb

 

[jon]

reponse = MsgBox("voulez vous effectuer les calculs de cette page???", vbYesNo)
If reponse = vbYes Then
Range("a1").Value = 1
Else
Range("a1").Value = 0
End If

 

[fabrice]

merci de ta réponse
FAb