Message qui renvoie la même réponse
Résolu
tyranausor
Messages postés
3545
Date d'inscription
Statut
Membre
Dernière intervention
-
tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3545 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?
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?
A voir également:
- Message qui renvoie la même réponse
- Réponse automatique thunderbird - Guide
- Recuperer message whatsapp supprimé - Guide
- Message supprimé whatsapp - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Réponse automatique gmail - Guide
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,
A+
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+