Crowdly

Sub effacer_B2()

If MsgBox("Etes-vous certain de vouloir supprimer

le contenu de B2 ?", vbYesNo, "Demande de confirmation") = vbYes

Then

Range("B2").ClearContents

MsgBox "Le contenu de B2 a été effacé !"

End If

End Sub

Sub effacer_B2()

If InputBox "Etes-vous certain de vouloir supprimer le contenu de B2 vbYesNo,

"Demande de confirmation" = vbYes Then

Range("B2").ClearContents

MsgBox "Le

contenu de B2 a été effacé !"

End If

End Sub

Sub effacer_B2()

If InputBox("Etes-vous

certain de vouloir supprimer le contenu de B2 ?", vbYesNo, "Demande

de confirmation") = vbYes Then

Range("B2").ClearContents

MsgBox "Le contenu de B2 a été effacé !"

End If

End Sub

On affiche une boîte de dialogue avec les boutons Abandonner, Recommencer et Ignorer après l’exécution de la commande suivante :

MyVar=MsgBox(« Voulez-vous recommencer ? »,vbAbortRetryIgnore)

Quelle sera la valeur de la variable MyVar si l’utilisateur choisit le bouton Ignorer ?

A la lecture du code suivant, quelle sera la valeur de la

variable Mention ?

MaNote=8

If MaNote >=0 Or

MaNote <=20 Then

If MaNote < 10 then

Mention = « Ajourné »

ElseIf MaNote >=10 Then

Mention= « Reçu »

EndIf

Ajourné

Reçu

❌✨

Ce traitement ne permet pas de déterminer la valeur de la variable

Mention

Mention ? Quelle mention ?

Soit la

procédure suivante :

1 Sub test()

2 Dim x as Integer

3 For

x=1 to 10 step 2

4 Cells(x,1).Value = 100

5 Next x

6 End sub

Combien de fois la valeur 100 sera-t-elle écrite dans le

tableau ?

10 fois

1 fois

100 fois

5 fois

On souhaite obtenir la surface d’un

carré de 10 cm. On devra écrire :

Function côté(x)

Dim x as

integer

x = 10

côté = x *

MsgBox La surface du carée est de & côté(x)

End Function

Sub SurfaceCarré()

Dim x As

Integer

x = 10

côté(x)

= x*x

MsgBox

"La surface du carré est de " & côté(x)

End Sub

Sub SurfaceCarré(x)

Dim x As

Integer

x = 10

MsgBox

"La surface du carré est de " & côté(x)

End Sub

Public

Function côté(x)

côté

= x * x

End

Function

Sub SurfaceCarré()

Dim x As Integer

x = 10

MsgBox "La surface du carré est de

" & côté(x)

End Sub

Public Function côté(x)

côté = x * x

End Function

✅✨

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

x= InputBox(« Donner un nombre entier positif »)

y = MsgBox(« Donner un nombre entier positif »)

Les valeurs de x et y seront les mêmes

La valeur de x sera un nombre entier positif que l’utilisateur va saisir et la valeur de y sera 1

✅✨

Il n’y a aucune différence

La valeur de y sera un nombre entier positif que l’utilisateur va saisir et la valeur de x sera 1

Pour

retourner une chaîne ou un caractère contenant la chaîne spécifiée convertie en

minuscule, on écrit :

Lcase(char)

Ucase(string)

Lcase(string)

Ucase(char)

Pour

déclarer deux variables i et j de type valeur logique on écrit :

Dim

i,j as byte

Dim

i,j as Integer

Dim i,j as boolean

Dim

i,j as currency

Quelle est

la bonne séquence d’instructions pour calculer la somme des 10 premiers entiers

Sub Somme

Dim i As Integer , Somme As Integer

Somme = 0

i = 1 to 10

Somme =

Somme + i

MsgBox Somme

Loop while i

End sub

Sub Somme

Dim i As Integer , Somme As Integer

Somme = 0

i = 1 to 10

Somme = Somme + i

MsgBox Somme

Loop until i

End Sub

Sub Somme

Dim i As Integer , Somme As Integer

Somme = 0

For i = 1 to 10

Somme

= Somme + i

MsgBox

Somme

End sub

Sub Somme

Dim i As Integer , Somme As Integer

Somme = 0

For i = 1 to 10

Somme = Somme + i

Next i

MsgBox “Somme”

End Sub

On a besoin de vérifier que la moyenne d’un étudiant sera entre 0 et 20. Si l’utilisateur saisit une valeur en dehors de cet intervalle (on utilise la variable Moyn), on va redemander la saisie jusqu’à ce qu’elle soit correcte. Quelle est la commande qu’on va utiliser ?

For i=1 to 10

Moyn=InputBox(« Saisir une valeur entre 0 et 20 »)

Next i

If Moyn<0 OR Moyn>20 Then

Moyn=InputBox(« Saisir une valeur entre 0 et 20 »)

End If

Moyn=InputBox(« Saisir une valeur entre 0 et 20 »)