Questions Bank | Page 139252

A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur OUI ?

Sub ExtractionPIB()

Dim pib As String
Dim pays As String
Dim rep As Byte
i = 1
erreur = 0
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 avec ce pays ?", vbQuestion + vbYesNoCancel, "Données macroéconomiques")
    If rep = 7 Then
        GoTo Fin
    ElseIf rep = 2 Then
        GoTo Saisie:
    Else
        MsgBox "Données non significatives"
        erreur = erreur + 1
        GoTo Saisie
    End If
End If
Fin:
MsgBox "Nombre d'erreurs d'extraction de la session : " & erreur
End Sub

Rien du tout.

On propose de saisir un nouveau pays, sans incrémenter le nombre d'erreurs.

On sort du programme et on affiche le nombre d'erreurs cumulées.

On indique que les données ne sont pas significatives, on incrémente le compteur d'erreurs et on propose la saisie d'un nouveau pays.

View this question

Crowdly

Questions Bank (1533069 total)