A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur OUI ?
Sub ExtractionPIB()Dim pib As StringDim pays As StringDim rep As Bytei = 1erreur = 0Saisie: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 + 1Looppib = 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 IfEnd IfFin:MsgBox "Nombre d'erreurs d'extraction de la session : " & erreurEnd Sub
Quelle sera la valeur de total à l'issue de ce traitement ?
Dim i As Integer, j As Integer, total As Integervaleur = 1For i = 1 To 2 j = 1 Do Until j > 2 total = total + i * j j = j + 1 LoopNext i
Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.
Option Explicit
Sub rollercoaster()Dim Mavar As ByteDim i, j As Bytei = 1j = 1Dim Mavar As ByteDim i, j As Bytei = 1j = 15Do while j < 10 Do Mavar = Mavar + 1 i = i + 1 Loop Until i / 2 = Int(i / 2) j = j - 1Loop MsgBox MavarEnd SubQuel est le problème avec cette boucle VBA ?
Dim i As Integer, j As Integeri = 1Do While i < 3 j = 1 Do While j < 3 MsgBox "i = " & i & ", j = " & j
j=j+1
Loop Loop