Ma fonction MSGBOX ne fonctionne pas

[baguidi]

Bonjour le forum,
juste une incompréhension au sujet de mes codes sur le bouton "Valider" de mon userform.
Dans mes codes j'ai voulu donner le choix à l'utilisateur d'accepter la validation ou de la refuser grâce
à la fonction MSGBOX mais je constate que quelque soit le choix que l'utilisateur fait sur la question
rep1 = MsgBox("Voulez - vous valider cet enrégistrement ?", vbInformation + vbYesNo, "Alerte")
If rep1 = vbNo Then Exit Sub
même si l'utilisateur dit "non" l’enregistrement se fait toujours et c'est très curieux pour moi
Merci le forum

 

[youky(BJ)]

Re : Ma fonction MSGBOX ne fonctionne pas

Salut
Vire ceci tu n'as pas de . . . . option explicite
Dim rep1 As Boolean
ou bien
Dim rep1
Par habitude je ne déclare plus mes variables, mais à utiliser méthodiquement
Bruno

 

[Robert]

Re : Ma fonction MSGBOX ne fonctionne pas

Bonsoir Baguidi, bonsoir le forum,

Tu as déclaré la variable rep1 comme Boolean... Essaie comme ça :

Dim rep1 As Integer

[Édition]
Bonsoir Bruno on s'est croisé... Très mauvaise habitude. Je ne peux pas te laisser dire de pareilles choses ! Déclarer ses variables correctement c'est éviter de nombreux plantages...

 

[baguidi]

Re : Ma fonction MSGBOX ne fonctionne pas

merci bien à toi Robert cela marche mais je n'arrive pas ac comprendre pourquoi c'est le Integer qui marche.
bref toutfois c'est génial.

 

[baguidi]

Re : Ma fonction MSGBOX ne fonctionne pas

merci bien à toi Robert cela marche mais je n'arrive pas ac comprendre pourquoi c'est le Integer qui marche.
bref toutfois c'est génial.

 

[Dranreb]

Re : Ma fonction MSGBOX ne fonctionne pas

Bonsoir.
Pour être tout à fait dans le ton, on peut la déclarer As VBA.VbMsgBoxResult
Ça a l'avantage de proposer les valeurs possible derrière un "=" qui la suit.
Cordialement.