Message qui renvoie la même réponse
Résolu
tyranausor
Messages postés
3501
Date d'inscription
Statut
Membre
Dernière intervention
-
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
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!
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?
--
Bonnes fêtes de fin d'année
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?
--
Bonnes fêtes de fin d'année
3 réponses
-
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 -
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+ -
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)
