cterrier.com

1/3

08/01/2007

Informatique

Initiation Visual Basic
Auteur : C. Terrier ; mailto:webmaster@cterrier.com ; http://www.cterrier.com Utilisation : Reproduction libre pour des formateurs dans un cadre pédagogique et non commercial

Dans ce cours nous allons apprendre à programmet et à tester des algorithmes simple de programmation en langage Visual Basic sous Excel.

1 – Formulaire en VBA Simple
Exercice : Tester la validité d’une note (entre 0 et 20)
Dans le cadre de cet exemple nous allons saisir une note et tester sa validité. Elle doit être comprise entre 0 et 20. Si elle est en dehors de ces bornes nous afficherons le message : Note incorrecte sinon nous afficherons le message Note correcte

Nous allons programmer le formulaire suivant : Objet : Zonenote Objet : Bouton de commande Objet : Zone d’affichage du résultat
Remarque : • • • • Un programme Visual basic sous Excel est réalisé dans le cadre d’un formulaire sur lequel sont paramétrés les objets nécessaires à la programmation (Voir ci-dessus). Visual Basic est un langage de programmation orienté Objet. Il en résulte qu’il y a autant de programmes que d’objets présents sur le formulaire. Dans le cas présent il y a trois programmes qui concernent 3 objets. Les objets Zonenote et Zone d’affichage sont des étiquettes de saisie et des étiquettes de texte, leurs paramétrages concernent essentiellement le nom et la mise en forme. Le bouton de commande contient les lignes de programmes qui correspondent au traitement à réaliser lorsqu’il est activé.

La transcription de l’algorithme va se faire sur le bouton de commande. En VBA il deviendra le suivant :

Algorithme
Algorithme test de note VAR Note : Simple Début Lire (Note) SI Note + 20 alors Ecrire « Note incorrecte » Sinon Ecrire « Note correcte Fin si Fin

VBA
Private Sub Test_Click() Dim Note As Single Note = CSng(Zonenote.Text) If Note >= 0 And Note Ouvrir Excel -> Outils – Macro – Visual Basic Editor

2 - Créer un