Programmation Vba
Mémoire : Programmation Vba. Rechercher de 53 000+ Dissertation Gratuites et MémoirestantTTC = montantHT * (1 + txTVA)
MsgBox ("le montantTTC est" & montantTTC)
End Sub
2) Les types de variables
• Booléen (ex : vrai ou faux, actif ou inactif, …)
• Caractère (ex : a, 3, !, …)
• Entier (ex : 120, -45, …)
• Réel (ex : 2,45, 10,5, ….)
• Chaîne de caractères (ex : lycée, STG, 0321546990, …)
III. La structure Alternative
Dans la structure alternative uniquement une des deux actions est exécutée, si la condition est vérifiée la 1ere actions est exécutée, si elle n’est pas vérifiée la 2e action est exécutée.
Exercice :
Faire un programme qui demande à l’élève de saisir sa moyenne générale au BAC en fonction de la valeur saisie le programme doit afficher l’un des 3 messages suivant :
❖ « vous avez réussi le BAC » > = 10
❖ « vous devez repasser les épreuves de rattrapage» 8 à 10
❖ « vous avez échoué » < 8
Algorithme BAC1
Variables :
moy : réel
Début :
Afficher (« Entrez votre moyenne au BAC »)
Saisir moy
Si moy > = 10
alors
Afficher (« vous avez réussi le BAC »)
Sinon (< 10)
Si moy > = 8
alors
Afficher (« vous devez repasser les épreuves de rattrapage »)
Sinon (< 8)
Afficher (« vous avez échoué »)
Fin saisi
Fin saisi
FIN
Programme BAC1
Sub BAC1()
Dim moy As Single
moy = InputBox("Entrez votre moyenne au Bac")
If moy >= 10 Then
MsgBox ("Vous avez réussi le BAC")
Else
If moy >= 8 Then
MsgBox ("vous devez passer la session rattrapage")
Else
MsgBox ("vous avez échouer")
End If
End If
End Sub
IV. La structure répétitive
La structure itérative permet de répéter une action plusieurs fois jusqu'à qu’une condition soit réalisé.
1) Le Tant que
La structure Tant que permet de répéter une ou plusieurs action tant qu’une condition est vrai.
Exemple :
Modifier l’algorithme précédemment réalisé pourqu’il puisse traiter plusieurs élève.
Algorithme BAC2
Variables :
Rep : caractère
Début
Rep ( « O »
Tant que rep = « O »
Afficher (« Y a-t-il une moyenne à saisir ? »)
Saisir rep
Afficher (« Entrez votre moyenne au BAC »)
Saisir : moy
Si moy > = 10
alors
Afficher (« vous avez réussi le BAC »)
Sinon (< 10)
Si moy > = 8
alors
Afficher (« vous devez repasser les épreuves de rattrapage »)
Sinon (< 8)
Afficher (« vous avez échoué »)
Fin saisi
Fin saisi
Fin Tant que
Afficher (« Y a-t-il encore des élèves ? »)
Saisir : rep
FIN
Programme BAC2
Sub BAC2()
Dim moy As Single
Dim rep As String
rep = InputBox("Y a-t-il une moyenne à saisir?")
While rep = "O"
moy = InputBox("entrez votre moyenne au BAC")
If moy >= 10 Then
MsgBox ("Vous avez réussi le BAC")
Else
If moy >= 8 Then
MsgBox ("vous devez passer la session rattrapage")
Else
MsgBox ("vous avez échouer")
End If
End If
rep = InputBox("y a-t-il encore des élèves?")
Wend
End Sub
Exercice :
Faire un algorithme qui demande à l’élève de saisir ses notes de CFE et affiche sa moyenne en CFE.
Algorithme Moyenne
Variables :
notes, moy : réel
somme, nbre : entier
rep : chaine de caractères
Début
somme ( Ø
nbre ( 0
rep ( « O »
Tant que rep = « O »
Afficher (“Introduire votre note de CFE”)
Saisir note
Afficher (« Autres notes ? »)
Saisir rep
somme ( somme + note
nbre ( nbre + 1
Fin Tant que
moy ( somme / nbre
Afficher (« la moyenne est », moy)
FIN
Programme moyenne CFE
Sub moyenne CFE ()
Dim Somme, moy, notes AS Single
Dim Nbre As Integer
Dim Rep As String
Somme = 0
Nbre = 0
Rep = “O”
While Rep = “O”
notes = InputBox(“Introduire votre note de CFE”)
Rep = InputBox (“y a-t-il d’autres notes ?”)
Somme = Somme + notes
Nbre = Nbre + 1
Wend
Moy = Somme / Nbre
MsgBox (“La moyenne est” & moy)
End Sub
➢ Structure Répété jusqu'à …
Répété
|
| Action
|
|
Jusqu'à condition
Les différences entre le « répété » et « tant que » sont :
• Dans le répété, l’action est exécuté au moins une fois alors que dans le « tant que » l’action peut jamais être exécuté.
• Dans le cas répété, l’action est répétée jusqu'à qu’une condition se réalise alors que dans le « tant que » l’action est répétée tant qu’une condition
...