Message qui renvoie la même réponse [Résolu/Fermé]

Signaler
Messages postés
3524
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
11 juillet 2020
-
Messages postés
3524
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
11 juillet 2020
-
Bonjour,
J'ai rédigé ce petit code VBA qui sera utilisé pour un classeur nommé "Application de paie"
Avec le code suivant, j'ai un problème. La boite de dialogue me disant "Les heures effectuées par les collaborateurs n'ont pas été renseignées! Voulez-vous continuer?" renvoie à la même réponse que je clique sur Oui ou sur Non!

Sub Message()
Dim Reponse As Long
MsgBox "Les heures effectuées par les collaborateurs n'ont pas été renseignées! Voulez-vous continuer?", vbQuestion + vbYesNo, "Application de paie"
' Définit les titres.
If Reponse = vbNo Then
MsgBox "Il faut bien qu'ils bossent un peu!", vbExclamation, "Application de paie"
Else
MsgBox "Exécution de la macro!", vbExclamation, "Application de paie"
End If
End Sub


Je me suis aidé d'un exemple sur ce site où la rédaction du code est identique à la mienne.
Pourriez-vous me dire où est l'erreur?



3 réponses

Messages postés
15350
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 septembre 2020
1 361
Bonjour,

Sub Message()
Dim Reponse As Long
Reponse = MsgBox("Les heures effectuées par les collaborateurs n'ont pas été renseignées! Voulez-vous continuer?", vbQuestion + vbYesNo, "Application de paie")
' Définit les titres.
If Reponse = vbNo Then
MsgBox "Il faut bien qu'ils bossent un peu!", vbExclamation, "Application de paie"
Else
MsgBox "Exécution de la macro!", vbExclamation, "Application de paie"
End If
End Sub
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
488
Bonjour,


Sub Message()
Dim Reponse As Long
Reponse = MsgBox("Les heures effectuées par les collaborateurs n'ont pas été renseignées! Voulez-vous continuer?", vbQuestion + vbYesNo, "Application de paie")
If Reponse = vbNo Then
MsgBox "Il faut bien qu'ils bossent un peu!", vbExclamation, "Application de paie"
Else
MsgBox "Exécution de la macro!", vbExclamation, "Application de paie"
End If
End Sub


A+
Messages postés
3524
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
11 juillet 2020
1 606
Bonjour et merci à vous deux pour le code. J'ai testé celui donné par f894009 et il fonctionne!

Ce devait juste être une histoire d'espaces)