Quelle est la différence entre les deux commandes suivantes ?

x = MsgBox(« La valeur de la variable », vbInformation, « Valeur de x » )

MsgBox « La valeur de la variable », vbInformation, « Valeur de x »

Pour enregistrer une macro dans quel onglet du ruban devons nous nous rendre ?

En considérant le code suivant, combien de fois le

traitement sera-t-il réalisé ?

Nbtours = 10

For n=1 to Nbtours

     Nbtours = Nbtours +2

Next n

La procédure Kiplante()

a pour objectif d’enregistrer les meilleurs temps d’un athlète dans une feuille

Excel. On veut obtenir le nom du coureur et son meilleur temps dans une même

ligne. On suppose que la valeur saisie pour la variable Chrono est toujours

strictement supérieur à 0. Le code ne fonctionne pas comme désiré.

Pourquoi ?

Option Explicit

Sub Kiplante()

Dim NbTours, i as

Integer

Dim Chrono,

ChronoEnreg as Long

Dim Coureur as

String

ChronoEnreg = 0

Coureur = Inputbox(« Quel

est le nom de l’athlète ? »)

Cells(« A1 »)

= Coureur

NbTours = Inputbox

(« Combien de tours de pistes ? »)

For i=1 to NbTours

     Chrono = Inputbox (« Quel temps pour

le tour n° » & i)

     If Chrono < ChronoEnreg Then

          Cells(« A2 ») = Chrono

          Cells(« A3 ») = NbTours

          ChronoEnreg = Chrono

     End if

Next i

End Sub

Quelle est la valeur de la variable Différence après la

séquence d’instructions suivantes :

Dim i As Integer , Différence As Integer

For i = 1 to 3

Différence = Différence - i 

Next i

MsgBox Différence

Soit la macro suivante :

Sub Addition()

Dim a as string

Dim b as string

a = "10"

b= "12"

Msgbox a + b

End sub

Quel est le résultat affiché dans la MsgBox ?

La procédure Kiplante()

a pour objectif d’enregistrer les meilleurs temps d’un athlète dans une feuille

Excel. On veut obtenir le nom du coureur et son meilleur temps dans une même

ligne. On suppose que la valeur saisie pour la variable Chrono est toujours

strictement supérieur à 0. Le code ne fonctionne pas comme désiré.

Pourquoi ?

Option Explicit

Sub Kiplante()

Dim NbTours, i as Integer

Dim Chrono,

ChronoEnreg as Long

Dim Coureur as

String

ChronoEng = 60000

Coureur =

Inputbox(« Quel est le nom de l’athlète ? »)

Cells(« A1 »)

= Coureur

NbTours = Inputbox

(« Combien de tours de pistes ? »)

For i=1 to NbTours

     Chrono = Inputbox (« Quel temps pour

le tour n° » & i)

     If Chrono < ChronoEng Then

          Cells(« A2 ») = Chrono

          Cells(« A3 ») = NbTours

          ChronoEng = Chrono

     End if

Next i

End Sub

On demande à un utilisateur de taper une date dans une boite de dialogue jusqu’à ce que la frappe n’est pas reconnue comme une date par le

système, il faut réafficher la boite de dialogue. On écrira alors :

Le joueur 1  saisit

un nombre (ici compris entre 0 et 1000000) que le joueur 2 doit deviner. On

demande donc au joueur 1 de « Saisir le nombre à deviner ». Pour se faire, on

devra écrire

On souhaite

demander à un utilisateur de taper un nombre de 3 chiffres maximum dans une

inputbox tant que la somme des nombres tapés est inférieure à 1000,

l’inputbox doit se réafficher pour taper une nouvelle valeur. On devra alors

écrire :