je viens demander votre aide pour modifier le code suivant d'une MsgBox afin que le texte qu'elle affiche soit identique à celui qui s'affiche dans une feuille du fichier que je joins et qui contient des précisions sur mon "problème".
Code:
Sub Report()
'
' Report Macro
' Macro enregistrée le 21/11/2012 par Edmond
'
'régler la durée
If MsgBox("Souhaitez-vous un rappel ?", vbYesNo, "Redemander dans 15 secondes") = vbNo Then Exit Sub
Application.OnTime Now + TimeValue("00:00:15"), "mess_04a"
Sheets("Accueil").Select
ActiveSheet.Unprotect
Sheets("Accueil").Range("E10") = "Mise à jour des Données 'CONSENSUS' reportée"
ActiveSheet.Protect
'Range("A10").Select
End Sub
J'espère que vous pourrez m'indiquer la ou les modifications à apporter.
Avec mes remerciements et en vous souhaitant une bonne journée.
Cordialement.
Nonno 94.