Corrigés de quelques exercices - UFR SEGMI

EXCEL exercices. & Solutions. Par application métier. Commerce & Management. Marketing. Ressources Humaines. Finance. Étudiant en Master, BTS.

Part of the document

Licence Economie et GestionOutils Informatiques 2Responsables : C. Hanen - R. Chevallier Corrigés de quelques exercicesExercice 3 (TD 3)Soit m la moyenne des notes d'un étudiant donnée par l'utilisateur. Déterminer la décision du
jury (ajourné, admis passable, admis AB, admis B, admis TB).CorrigéSub Resultat()Dim note As Doublenote=InputBox("Entrez votre note")If note < 10 Then MsgBox("Ajourne(e)")If note>=10 And note=12 And note=14 And note=16 Then MsgBox("Admis TB")End SubExercice 7 (TD 3)Soit 2 nombres x et y donnés par l'utilisateur, puis une lettre donnée par l'utilisateur. Si la
lettre tapée est " p », le résultat calculé par le programme vaut le produit x*y ; si la lettre
tapée est " s », le résultat calculé vaut la somme x+y.
CorrigéSub Operation()Dim op As String, x As Integer, y As Integerx=InputBox("x=")y=InputBox("y=")op=InputBox("operation ? p=produit s=somme")If op="p" ThenMsgBox("Le produit de " & x & " et " & y & " vaut " & x*y)End IfIf op="s" ThenMsgBox("La somme de " & x & " et " & y & " vaut " & x+y)End IfIf op"s" And op"p" Then'l'utilisateur a entré une lettre différente de "p" et "s"
MsgBox("Erreur : opération inconnue !")End IfEnd SubExercice 5 (TD 4)Faire la somme de 10 nombres aléatoires : chaque nombre est le résultat d'un tirage
au hasard, et la somme des nombres est calculée au fur et à mesure. Calculer ensuite
la moyenne de ces nombres.CorrigéSub Exo5TD4()Dim somme As Double, x As Double, i As IntegerRandomizesomme=0For i=1 To 10 x=Rnd()somme=somme+xNextMsgBox("Moyenne = " & somme/10)End SubExercice 6 (TD 4)Faire la somme de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de
-1. Calculer ensuite la moyenne de ces nombres.CorrigéSub Exo6TD4()Dim somme As Double, x As Double, n As Integerx=InputBox("Entrez un nombre réel")n=0 'la variable n sert à compter combien de ' nombres a entré l'utilisateur.somme=0While x1somme=somme+xn=n+1x=InputBox("Entrez un nombre réel")WendMsgBox("Moyenne des " & n & " nombres = " & somme/n)End SubExercice 3 (TD 5)Modifier l'exercice précédent pour que maintenant le jeu s'arrête soit lorsque l'utilisateur
répond "non" à une question posée soit lorsque le nombre de réalisations de ce jeu dépasse 10.
CorrigéSub Exo3TD5()Dim x As Integer, y As Integer, i As Integer, reponse As StringRandomizei=0reponse="oui"While reponse"non"i=i+1x=Int(6*Rnd())+1 'tire au hasard un nombre entre 1 et 6y=InputBox("D'après vous, quel est le résultat du lancer au
hasard ?")If x=y ThenMsgBox("Vous avez gagné !")ElseMsgBox("Vous avez perdu !")End IfIf i= 10 And note < 12 Thenmention = "passable"End IfIf note>=12 And note < 14 Thenmention = "assez bien "End IfIf note >= 14 And note < 16 Thenmention = " bien "End IfIf note >= 16 Thenmention = "très bien "End IfEnd FunctionSub exo1()Dim maplage As ObjectDim somme As Double, moyenne As Double, i As IntegerSet maplage = Range("B1 : B5")somme = 0For i = 1 To maplage.countsomme = somme + maplage.Cells(i).ValueNext
moyenne = somme / maplage.countRange("B6").Value = moyenneRange("B7").Value = mention(moyenne)'coloration en rouge des notes en dessous de 10For i = 1 To 5If maplage.Cells(i).Value < 10 Thenmaplage.Cells(i).Interior.ColorIndex = 3End IfNextEnd SubExercice 3 (TD 8)Soit une facture structurée par 5 lignes où figure sur chaque ligne, pour chacun des 5
produits, le nombre de produits et le prix unitaire. Définir la procédure qui calcule la somme à
payer pour chaque produit ainsi que le montant total de la facture, et qui affecte les résultats
aux cellules concernées.CorrigéSub exo3()Dim factures As ObjectDim somme As Double, i As IntegerSet factures = Range("A22 : C26")'la première colonne de la plage contient le prix unitaire du produit'la deuxième colonne de la plage contient le quantité achetée du produit'la troisème colonne on écrira le total à payer par produitSomme = 0For i = 1 To 5factures.Cells(i, 3).Value = factures.Cells(i, 1).Value *
factures.Cells(i, 2).Valuesomme = somme + factures.Cells(i, 3).ValueNext'écriture de la somme à payerfactures.Cells(6, 3).Value = sommeEnd Sub