CODES SOURCES - IF -     Remarques: Le code suivant vous montre une application du test "If". Dans cet exemple, le code est placé dans l'événement "Click" d'un bouton de commande nommé "QuitterCmd".    Le code source Private Sub QuitterCmd_Click() Dim boite As VbMsgBoxResult 'Déclaration d'une variable qui va contenir _         le choix de l'utilisateur en fonction qu'il clique sur Yes ou No dans la _         boite de dialogue. 'Affichage de la boîte de dialogue de fermeture boite = MsgBox("Voulez - vous vraiment quitter l'application ?", vbYesNo, "Confirmation") If boite = vbYes Then         MsgBox "Vous quittez l'application", vbOKOnly, "Info"         End   'Si le choix est Yes, on ferme l'application     Else         MsgBox "Vous ne quittez pas l'application", vbOKOnly, "Info" End If End Sub                       ©Copyright Webmaster 2002