logo

Crowdly

L2 Economie Gestion Programmation VBA QCM TD S4 2025

Looking for L2 Economie Gestion Programmation VBA QCM TD S4 2025 test answers and solutions? Browse our comprehensive collection of verified answers for L2 Economie Gestion Programmation VBA QCM TD S4 2025 at moodle-exam.unistra.fr.

Get instant access to accurate answers and detailed explanations for your course questions. Our community-driven platform helps students succeed!

Quelle instruction permet de déclarer un tableau dynamique en VBA ?

0%
0%
100%
0%
View this 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

0%
0%
0%
100%
View this question

A la lecture du code suivant, que se passe-t-il si l'utilisateur clique sur OUI ?

Sub Extraction()

Dim pib As Double

Dim pays, pays2 As String

Dim rep As Byte

pays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données")

rep = MsgBox("Souhaitez vous analyser une autre série de données que celle du " & pays & "?", vbQuestion + vbYesNoCancel, "Données macroéconomiques")

If rep = 7 Then

    MsgBox "Extraction en cours des données du pays " & pays

ElseIf rep = 2 Then

    MsgBox "Fin des extractions"

Else

    pays2 = InputBox("Quel est le pays dont vous souhaitez associé les données à ceux de " & pays & " ?", "Extraction de données")

End If

End Sub

100%
0%
0%
0%
View this question

Comment récupérer la valeur du premier indice du tableau tab en VBA ?

100%
0%
0%
0%
View this question

Quel est le code VBA permettant d'exploiter la réponse à l'interface suivante ?

Une boite de message avec Oui ou Non

100%
0%
0%
0%
View this question

Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.

Option Explicit

Sub rollercoaster()

Dim Mavar As Integer

Dim i, j As Byte

i = 1

For j = 1 To 100

    Do

        Mavar = Mavar + 1

        i = i + 1

    Loop While i / 2 = Int(i / 2)

    

Next

MsgBox Mavar

End Sub
0%
0%
0%
100%
View this question

Quelle est la valeur par défaut d’un tableau de type Variant en VBA après une déclaration sans affectation ?

0%
0%
100%
0%
View this question

Quel type de tableau faut-il utiliser si l'on veut stocker une plage de cellules Excel contenant des types de données variés ?

0%
100%
0%
0%
View this question

On souhaite faire la somme

de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de 0.

On procède ensuite au calcul de la moyenne de ces nombres. Le code ne fonctionne pas. Pourquoi ?

Sub moyenne_nombres()

Dim

somme As Double, x As Double, n As Integer

 x=0

    n=0

   

somme=0

 Do While x=­0

          

     somme=somme+x

      n=n+1       

Loop

x=InputBox("Entrez un nombre réel")     

              

MsgBox"Moyenne des " & n & " nombres = "

& somme/n

End

Sub

0%
0%
50%
50%
View this question

Quelle boucle garantit au moins une exécution du bloc de code, même si la condition de sortie est remplie dès le début ?

0%
100%
0%
0%
View this question

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

Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!