Énoncé 4.2 Dire au revoir

Durée estimative : 5 minutes

Complétez la procédure AuRevoir. Celle-ci propose une boîte de dialogue demandant si l’on souhaite ou non quitter Excel. Elle affiche le message "A bientôt" si l’utilisateur clique sur le bouton Oui, et le message "Poursuivons" sinon. Exemple :

Sub AuRevoir()  
  Dim strMessage As String  
  Dim intStyle As Integer  
  Dim intChoix As Integer  ...