EXERCICES D’ALGORITHMIE
Rappel des instructions : De l’algorithme vers VISUAL BASIC
Déclaration Affectation Affichage Lecture Condition Boucles Variable nom_variable : type TTC ← MHT*1.196 Ecrire/Afficher « message » Lire(nb1) Si … alors … sinon … fin si Tantque … faire … fintant Pour i variant de 1 à 3 faire … finpour Dim nom_variable as Type TTC = MHT*1.196 MsgBox (« Message ») Nb1 = Inputbox(« Message ») If … then … else … endif While … Wend For i=1 to 3 … Next

Rappel de la structure d’un algorithme
Var : nom_variable : type_variable Début Suites d’instructions Fin /* Déclaration de variables

Rappel de la structure d’un programme
Sub nom_programme() Dim nom_var as type_variable Suites d’instructions End Sub /* Déclaration de variables

Rappel sur l’environnement de programmation
I. Ouvrez l’interface d’écriture de programme. Pour cela affichez l’onglet développeur (Bouton Office / Options Excel)

Ensuite ouvrez Visual Basic dans l’Onglet Développeur II. Insérez un nouveau module (insertion/module). C’est sur cette interface d’édition que vous allez écrire les instructions des programmes VBA. Vous pouvez les exécuter en utilisant le bouton lecture.

Lorsque vous programmez, pensez à sauvegarder régulièrement votre travail (ctrl+S). Contrairement à l’algorithmie qui reste sur papier, ici, une erreur peut être fatale à l’application : aucun autre choix que de fermer le programme sans possibilité de sauvegarde (par exemple avec des boucles redondantes à l’infini).

AB - SUPPORT de TD ALGORITHMIE / VB – Licence 2 – S4 – Année 2010-2011

-1-

SEANCE 1
Exercice 1
Traduire l’algorithme ci-dessous dans une procédure sub nommée Nomois. Cet algorithme permet de saisir un nombre de jours et d'afficher les mois de l’année qui correspondent. VAR JOURS : entier Début Afficher "Entrez le nombre de jours" Saisir JOURS Décider entre JOURS=28 : Afficher "Février" JOURS=29 : Afficher "Février" JOURS=30 : Afficher "Avril, Juin, Septembre, Novembre" JOURS=31