A la lecture du code suivant, que se passera-t-il si l'utilisateur choisit Abandonner ?
Sub Extraction()

Dim pib As Double
Dim pays As String
Dim rep, erreur As Byte
erreur=0
i=1
Saisie:
pays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données")
Do While Cells(i , 1) <> pays
    i = i + 1
Loop
pib = Cells(i , 2)
If pib = "N/A" Then

    rep = MsgBox("Les données pour le " & pays & " ne sont pas significatives. Souhaitez vous poursuivre ?", vbQuestion + vbAbortRetryIgnore, "Données macroéconomiques")
    If rep = 3 Then
        GoTo Fin
    ElseIf rep = 4 Then
        GoTo Saisie
    Else
        MsgBox "Données non significatives"
        GoTo Saisie
        erreur=erreur+1
    End If
End If
Fin:
MsgBox "Il y a eu " & erreur & " erreurs d'extraction pendant cette session"
End Sub

Question

A la lecture du code suivant, que se passera-t-il si l'utilisateur choisit  Abandonner  ? Sub Extraction()

Dim pib As Double 
 Dim pays As String 
 Dim rep, erreur As Byte  erreur=0 i=1 Saisie: 
 pays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données") 
 
 Do While Cells(i , 1) <> pays 
     i = i + 1 
 Loop 
 
 pib = Cells(i , 2) 
 
 If pib = "N/A" Then 
      
     rep = MsgBox("Les données pour le " & pays & " ne sont pas significatives. Souhaitez vous poursuivre ?", vbQuestion + vbAbortRetryIgnore, "Données macroéconomiques") 
 
     If rep = 3 Then 
         GoTo Fin 
     ElseIf rep = 4 Then 
         GoTo Saisie 
     Else 
         MsgBox "Données non significatives" 
         GoTo Saisie 
         erreur=erreur+1     End If 
 End If 
 
 Fin: MsgBox "Il y a eu " & erreur & " erreurs d'extraction pendant cette session" End Sub

Answer

Il remontera dans le code jusqu'à l'étiquette  Saisie:

Answer

Il sortira du programme sans incrémenter la variable  erreur .

Answer

Rien du tout. Cela ne fonctionne pas.

Answer

On affichera un message annonçant que les données sont non significatives. Puis on incrémentera le compteur d'erreur et on proposera une nouvelle saisie.

Crowdly

A la lecture du code suivant, que se passera-t-il si l'utilisateur choisit Aban...

Want instant access to all verified answers on moodle-exam.unistra.fr?