Corrigé 4.4 Afficher un message selon l’âge et le genre

Sub VotreAge()  
  Dim strHomme As String * 1  
  Dim strFemme As String * 1  
  Dim intChoixSexe As Integer  
  Dim dblAge As Double  
  Dim varTestSaisieAge As Variant  
  intChoixSexe = MsgBox("Vous êtes un homme ?", _  
  vbYesNo, "Votre âge")  
  If intChoixSexe = vbYes Then  
    varTestSaisieAge = InputBox("Quel âge avez-vous ?", , 0)  
    If varTestSaisieAge <>...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 4.3 Contrôler la saisie d'une consonne ou voyelle
Suivant
Corrigé 4.5 Dire bonjour N fois