École nationale supérieure d'ingénieurs de Tunis (ENSIT)

Excel

Programmation VBA
(Visual Basic for Applications)

Issam DRIDI

Google classroom : ylxkjp7

AU:2023/2024
Généralités sur la programmation VBA sous Excel

Programmation sous Excel via VBA (Visual Basic pour Applications)

Fonctions personnalisées Macros

Complètement standardisée. Valable pour les Manipulation directe des objets Excel (classeurs,
autres classeurs et même, si pas d’accès aux feuilles, cellules, graphiques, etc.)
objets spécifiques d’Excel, pour les autres
outils Office.

Programmation de tâches Interfaces graphiques

Programmation de séquences d’actions plus Boîtes de dialogues standards. Mais aussi les formulaires
ou moins complexes, faisant intervenir ou personnalisées pour faciliter les accès aux fonctionnalités.
non des mécanismes algorithmiques. Nécessite une certaine formalisation et la connaissance
des principes de la programmation évènementielle.

Enregistreur de macros Programmation des macros

Transformation de séquences d’action en Très puissant. Nécessite la connaissance des
programme VBA. Ne nécessite pas la principes de la programmation et de la syntaxe
connaissance de la programmation, mais peu de d’accès aux objets Excel.
souplesse (structure fixe, peu adaptable…)

Points importants. Connaissance de l’algorithmie, langage de programmation Visual

Basic. Les instructions sont écrites dans des fonctions (function) et procédures (sub),
qui sont regroupées dans des modules. Nous travaillons dans VBE (Visual Basic Editor).

2
Généralités sur la programmation
ALGORITHMIE - PROGRAMMATION

3
Algorithmie vs. Programmation

Algorithmie Programme

• Solution « informatique » relative à un • Transcription d’un algorithme avec une

problème syntaxe prédéfinie
• Suite d’actions (instructions) • Visual Basic pour Applications
appliquées sur des données • Même principes fondamentaux que les
• 3 étapes principales : autres langages objets (Java, C#, etc.)
1. saisie (réception) des données • VBA agit en interaction avec les fonctions
2. Traitements
prédéfinies disponibles dans la suite Office
3. restitution (application) des résultats

4
Mode compilé vs. Mode interprété

Langage interprété : + portabilité application ; - lenteur (R, VBA, Python…)

Langage compilé : + rapidité ; - pas portable

(solution possible : write once, compile anywhere ; ex. Lazarus)

Langage pseudo-compilé : + portabilité plate-forme ; - lenteur (?)

(principe : write once, run anywhere ; ex. Java et le principe JIT)

VBA (Visual Basic pour Applications) est un langage de programmation

dédié principalement aux applications Microsoft Office. Il est basé sur le
langage Visual Basic, mais ne peut s’exécuter que dans une application
hôte Microsoft Office, et non de manière autonome.

5
Etapes de la conception d’un programme (une application)

1. Déterminer les besoins et fixer les objectifs : que doit faire le logiciel, dans quel cadre va-
t-il servir, quels seront les utilisateurs types ? On rédige un cahier des charges avec le
commanditaire du logiciel (Remarque : commanditaire = maître d’ouvrage ; réalisateur =
maître d’œuvre)
2. Conception et spécifications : quels sont les fonctionnalités du logiciel, avec quelle
interface ?
3. Programmation : modélisation et codage
4. Tests : obtient-on les résultats attendus, les calculs sont corrects, y a-t-il plantage et dans
quelles circonstances ? (tests unitaires, tests d’intégration, etc.)
5. Déploiement : installer-le chez le client (vérification des configurations, installation de
l’exécutable et des fichiers annexes, etc.)
6. Maintenance : corrective, traquer les bugs et les corriger (patches) ; évolutive (ajouter
des fonctionnalités nouvelles au logiciel : soit sur l’ergonomie, soit en ajoutant de
nouvelles procédures)

6
L’ÉDITEUR VBE ET LE MODÈLE
OBJET VBA

7
L’éditeur (Visual Basic Editor)

Alt + F11

8
Insertion d’un module dans l’éditeur

9
Enregistrer une macro

10
Enregistrer une macro

11
Impact dans l’éditeur

12
Le modèle objet dans VBA

• Un objet est constitué d’attributs (ou propriétés) et de méthodes qui lui sont
associées
• Les objets existants sont constitués en hiérarchie (relation de composition)

Application

Addin CommandBar Workbook Window

Chart Name Worksheet

Comment Range Hyperlink …

13
Les collections

• Concept clé
• On rajoute un « s »!
– Workbooks : collection des objets Workbook
– Worksheets : collection des objets Worksheet
– … etc.

• Faire appel à un élément d’une collection: 2 méthodes:

– Appel par le nom de l’élément
• Ex: Worksheets("Feuil1")
– Appel par l'indice
• Ex: Worksheets(1)

14
Hiérarchie : Accéder aux objets

• Opérateur point ( . )

– Exemple:
[Link]("[Link]").Worksheets(1).Range("A1").Value=9

• Simplification: par exemple si [Link] est le classeur actif:

– Worksheets(1).Range("A1").Value=9

15
Propriétés d'un objet

16
Méthode d'un objet

• Action relative à un objet

• Exemples:
– Worksheets("Feuil1").Activate
– Range("A1").Copy Range("B1")

• Une méthode prend en compte 0, 1 ou plusieurs arguments.

– Le premier argument est séparé de la méthode par un espace, les arguments
sont séparés entre eux par des virgules
– OU utilisation des parenthèses

17
Programme : suite d’instructions manipulant des données

LANGAGE VISUAL BASIC

18
Visual Basic possède tous les attributs d’un langage de programmation

Données typées. Visual Basic propose les types usuels de la programmation :

entier, réels, booléens, chaîne de caractères.

Structures avancées de données. Gestion des collections de valeurs

(énumérations, tableaux) et des objets structurés (enregistrements, classes).

Séquences d’instructions, c’est la base même de la programmation, pouvoir

écrire et exécuter une série de commandes sans avoir à intervenir entre les
instructions.

Structures algorithmiques : les branchements conditionnels et les boucles.

Les outils de la programmation structurée : pouvoir regrouper du code dans des

procédures et des fonctions. Organisation du code en modules et possibilité de
distribuer ces dernières.

Visual Basic n’est pas « case sensitive », il ne différencie pas les termes écrits en
minuscule et majuscule.

19
Type de données

Le type de données définit le type d’opérateurs qu’on peut leur appliquer.

• Numérique qui peut être réel (double) ou entier (long). Les opérateurs
applicables sont : +, -, *, / (division réelle), \ (division entière), mod (modulo)
Exemple : 5 / 2  2.5 ; 5 \ 2  2 ; 5 mod 2  1

• Booléen (boolean) qui ne prend que deux valeurs possibles : True et False. Les
opérateurs sont : not, and, or.
Exemple : True and False  False

• Chaîne de caractères (string) qui correspond à une suite de caractères délimitée par des
guillemets ‘’ ’’. Les opérateurs possibles sont la concaténation, la suppression d’une sous-
partie, la copie d’une sous-partie, etc.
Exemple : ‘’toto’’ est une chaîne de caractères, toto on ne sait pas ce que c’est (pour l’instant)

Habituellement, les opérations font intervenir des données de type identique

et renvoie un résultat du même type.

20
Type de données

• Type • Valeurs
• Boolean • Vrai, faux
• Integer • Entiers
• Long • Entiers
• Single • Réels
• Double • Réels
• Currency • 4 chiffres après la ,
• Date • 1/1/100 à 31/12/9999
• String • Chaines de caractères
• Object • Tout objet
• Variant • N'importe quel type

21
Opérateurs de comparaison

Les opérateurs de comparaison confrontent des données de même type,

mais le résultat est un booléen

= ; <> ; > ; >= ; < ; <=

égalité
inférieur strict,
différent Supérieur strict, inférieur ou égal
supérieur ou égal

Exemples

5 > 2  True ‘’toto’’ > ‘’tata’’  True

5 > ‘’toto’’  illicite

Licite. Comparaison de gauche à droite
basée sur le code ASCII. Arrêt des
5 <> 5  False comparaisons dès que l’indécision est
levée.

22
Fonctions mathématiques

• Valeur absolue: Abs(-9) retourne 9

• Signe: Sgn(-18) retourne –1 (ou 0 ou 1)
• Troncature à l’unité : Fix(-18.3) = -18
Fix(18.3) = 18
– Tronque la partie décimale
• Partie entière: Int(13.12) retourne 13
Int(-14.8) retourne –15
– E(x) ≤ x < E(x) + 1
– Tronque à l’entier inférieur le plus proche.

23
Fonctions mathématiques

• Sqr, Exp, Log

– Sqr(4) retourne 2, Exp(5) retourne 148.413…,
Log(9) retourne 2.197224… (en base e)
• Nombres aléatoires
– Rnd retourne un nombre aléatoire entre 0 (compris) et 1 (non
compris)
– a = Rnd a peut valoir 0.12131441
– Int((b – a + 1) * Rnd + a) retourne un nombre aléatoire entier entre a
et b
• Sin, Cos, Tan, Atn (arc-tangente)

24
Fonctions de dates

• Date retourne la date actuelle

• Time retourne l'heure courante
– Date et Time peuvent retourner des chaînes de carctères String
• DateSerial retourne une valeur unique pour une date donnée,
sous forme Variant
– dv1 = DateSerial(2003, 4, 22)
dv2 = DateSerial(1928, 5, 3)
dv1 – dv2 représente le nombre de jours entre ces deux dates
• Day, Month et Year retourne respectivement le jour, le mois
et l'année d'une date.
– Year(Date) retourne 2019 cette année (en entier)

25
Variables et premières instructions

Les variables correspondent à des identifiants auxquels sont associés des valeurs d’un type
donné. Elles matérialisent un espace mémoire avec un contenu que l’on peut lire ou écrire.

Identifiant de la variable, utilisable

dans la suite du programme

Déclaration Dim v As Double

d’une variable
Type associé à
Dimensionner. Réserver Indication la variable
un espace mémoire. du type

= est le symbole d’affectation. A gauche de =

Affectation. Attribuer on modifie le contenu dans une variable, à
v = 2.5
une valeur à la variable droite on lit le contenu d’une variable. C’est
pour cette raison que l’instruction v = v + 1
est licite.

Opération et La valeur 5 est écrite dans la variable

x = v * 2
affectation x qui doit être déclarée au préalable.

26
Ecriture et utilisation des fonctions personnalisées dans Excel

FONCTIONS PERSONNALISÉES

27
Programmation des fonctions personnalisées

Une fonction personnalisée est une fonction VBA qui peut être
appelée dans un classeur Excel. Elle prend en entrée des
informations en provenance des feuilles du classeur
(principalement) et renvoie une valeur insérée dans une cellule (le
plus souvent également).
Formalisme Function NomFonction(paramètres) As type de donnée

Est un identifiant qui doit Type de la valeur

respecter la syntaxe VBA retournée par la fonction.

Les informations que prend en entrée la fonction, elles prennent la

forme nom_parametre as type de paramètre. Il peut y en avoir
plusieurs, ils sont séparés par des « , » dans ce cas.

Un classeur Excel contenant du code VBA doit être enregistré au format

XLSM, prenant en charge les macros. Sinon on perd son code.

28
Programmation dans Visual Basic Editor

Entrée : prix HT (réel)

Sortie : prix TTC (réel) Public pour que la fonction soit visible en dehors
du module, notamment dans la feuille de calcul

Les lignes de commentaires

commencent avec une ‘ et sont
mises automatiquement en vert.

Il faut créer un module pour

programmer une fonction
personnalisée

29
Utilisation de la fonction dans une feuille Excel

La fonction est insérable dans la feuille de

calcul comme n’importe quelle autre
fonction Excel. Elle est accessible dans la
catégorie « Fonctions personnalisées ».

Le résultat s’affiche une fois la fonction

insérée et validée. La fonction est
automatiquement appelée à chaque fois que
la feuille a besoin d’être recalculée (comme
pour les autres fonctions standards d’Excel).

30
Fonction avec plusieurs paramètres

(1) Le séparateur de paramètres est la

Entrées : prix HT (réel), tva (réel) « , » lors de la définition de la fonction.
Sortie : prix TTC (réel)

'fonction avec 2 paramètres

Public Function MonPrixTTCTva(pht As Double, tva As Double) As Double
'déclaration d'une variable intermédiaire
Dim pttc As Double
'calcul exploitant les paramètres en entrée
pttc = pht * (1 + tva)
'retourner le résultat
MonPrixTTCTva = pttc
End Function

(2) Très étrangement, il devient « ; » lorsqu’on

appelle la fonction dans la feuille de calcul.

31
Plus loin avec la programmation…

STRUCTURES ALGORITHMIQUES

32
Branchement conditionnel IF

Permet d’activer une partie du code en fonction de la

réalisation d’une condition ou pas.

If condition Then
bloc d’instructions
si la condition est vraie
Syntaxe

Else
bloc d’instructions
si la condition est fausse
End If

(1) Condition est souvent une opération de comparaison

(2) La valeur de retour de Condition est de type booléen (True ou False)
(3) Then doit être sur la même ligne que If
(4) La partie Else est facultative (ne rien faire si la condition est fausse)
(5) Il est possible d’imbriquer une autre structure conditionnelle If dans les blocs d’instructions

33
Branchement conditionnel IF – Un exemple

Entrées : prix HT (réel), catégorie de produit (chaîne)

Sortie : prix TTC (réel)

Public Function MonTTCBis(pht As Double, cat As String) As Double

'déclarer la variable de calcul
Dim pttc As Double
'en fonction de la catégorie de produit
If (cat = "luxe") Then
pttc = pht * 1.33
Else
‘la valeur de cat est différente de ‘’luxe’’
pttc = pht * 1.2
End If
'renvoyer le résultat
MonTTCBis = pttc
End Function

34
Branchement conditionnel IF/ElseIf – Un exemple

35
Branchement multiple SELECT CASE

Permet d’activer une partie du code en fonction des valeurs prises par une
variable de contrôle. Peut se substituer au IF, mais pas toujours, tout dépend
de la forme de la condition (condition composée, on doit passer par un IF).

Select Case variable

Case valeur 1
bloc d’instructions
Syntaxe

Case valeur 2
bloc d’instructions
...
Case Else
bloc d’instructions
End Select

(1) Variable est la variable de contrôle, elle peut être de n’importe quel type en VBA, y compris un
réel ou une chaîne de caractères
(2) Valeur doit être de type compatible avec variable
(3) La partie Case Else est facultative
(4) L’imbrication avec un autre IF ou un autre Select Case (autre variable de contrôle) est possible.

36
Branchement multiple SELECT CASE – Un exemple

Entrées : prix HT (réel), catégorie de produit (chaîne)

Sortie : prix TTC (réel)

'fonction select case

Public Function MonTTCSelon(pht As Double, cat As String) As Double
'déclarer la variable de calcul
Dim pttc As Double
'en fonction de la catégorie de produit
Select Case cat
Case "luxe"
pttc = pht * 1.33
Case Else
pttc = pht * 1.2 'toute autre valeur que ‘’luxe’’
End Select
'renvoyer le résultat
MonTTCSelon = pttc
End Function

37
Branchement multiple SELECT CASE – Plages de valeurs

Il est possible d’introduire des plages de valeurs dans la partie Case de

la structure Select Case. La comparaison devient plus sophistiquée.
Variable est un numérique dans ce cas, entier ou même réel.

Select Case variable

Case Is [Link] valeur
bloc d’instructions

Case valeur de départ To valeur de fin

Syntaxe

bloc d’instructions

Case Else
bloc d’instructions
End Select

38
Branchement multiple SELECT CASE – Plages de valeurs – Un exemple

Entrée : quantité (entier)

Sortie : prix unitaire (réel)
Calcul : quantité < 100  p.u. = 0.5
100 ≤ quantité ≤ 200  p.u. = 0.3
quantité > 200  p.u. = 0.2

'calcul du prix unitaire en fonction de la quantité

Public Function MonPU(quantite As Long) As Double
'variable intermédiaire
Dim pu As Double
'selon les valeurs de quantité
Select Case quantite
Case Is < 100
pu = 0.5
Case 100 To 200
pu = 0.3
Case Is > 200 'Case Else aurait fait l'affaire aussi
pu = 0.2
End Select
MonPU = pu
End Function

39
Boucle POUR (FOR)

Faire répéter l’exécution d’un bloc d’instructions. Le nombre d’itérations

est contrôlé par un indice.

For indice = val.départ to [Link] step pas

Syntaxe

bloc d’instructions
...
Next indice

(1) Indice est un type ordonné, très souvent un numérique

(2) pas contrôle le passage d’une valeur à l’autre d’indice, si omis, pas = 1 par défaut
(3) Next entérine le passage à la valeur suivante de indice, si cette prochaine valeur
est > à [Link], on sort de la boucle
(4) [Link] doit être superieure à val.départ pour que l’on rentre dans la boucle
(5) Si pas est négatif, [Link] doit être inférieure à val.départ cette fois-ci
(6) L’instruction Exit For permet de sortir prématurément de la boucle
(7) On peut imbriquer des boucles (une boucle à l’intérieur d’une autre boucle)

40
Boucle FOR – Un exemple

Entrée : n (entier)
Sortie : S (réel)
Calcul : S = 1² + 2² + … + n²

'calcul de la somme des carrés des valeurs

Public Function MaSommeCarre(n As Long) As Double
'variables de calcul (s pour la somme, i : indice)
Dim s As Double, i As Long
'initialisation
s = 0
'boucle avec l'indice i
For i = 1 To n Step 1
s = s + i ^ 2
‘Next joue le rôle de l’incrémentation (i suivant)
Next i
'renvoyer le résultat
MaSommeCarre = s
End Function

41
Boucle TANT QUE… FAIRE (DO WHILE…LOOP)

Faire répéter l’exécution d’un bloc d’instructions. Le nombre d’itérations

est contrôlé par une condition. Attention à la boucle infinie c.-à-d. la
condition permettant de sortir de la boucle n’est jamais déclenchée.

Do While condition
Syntaxe

Bloc d’instructions...
...
Loop

(1) Condition est un booléen, c’est souvent une opération de comparaison

(2) On continue l’exécution TANT QUE la condition est vraie ; si la condition
est fausse, on sort de la boucle
(3) Exit Do permet de provoquer la sortie prématurée de la boucle

Si la condition est fausse d’emblée. On

peut ne pas rentrer dans la boucle.
42
Boucle DO WHILE…LOOP (un exemple)

Entrée : n (entier)
Sortie : S (réel)
Calcul : S = 1² + 2² + … + n²

'calcul de la somme des carrés des valeurs

Public Function MaSommeCarreWhile(n As Long) As Double
'variables de calcul
Dim s As Double, i As Long
'initialisation
s = 0
'il nous revient aussi d'initialiser l'indice
i = 1
'boucle TANT QUE
Do While (i <= n)
'sommer
s = s + i ^ 2
'pas de next, nous devons incrémenter l'indice
i = i + 1
Loop
'renvoyer le résultat
MaSommeCarreWhile = s
End Function

43
Boucle FAIRE…TANT QUE (DO…LOOP WHILE)

Faire répéter l’exécution d’un bloc d’instructions. Le nombre d’itérations

est contrôlé par une condition.

Do
Bloc d’instructions
Syntaxe
...
...
Loop While condition

On est sûr de rentrer au moins une fois dans la boucle.

Le choix de la bonne structure (Faire.. Tant Que ou Tant Que..

Faire) dépend du problème à traiter

44
Les variantes des boucles DO

Les boucles DO contrôlées par une condition sont très riches en VBA.

Do { While | Until } condition

[ statements ]
[ Exit Do ]
[ statements ]
Loop
-or-
Do
[ statements ]
[ Exit Do ]
[ statements ]
Loop { While | Until } condition

Le Répeter… Jusqu’à (Until) existe aussi.

45
Le type « plage de cellules » spécifique à Excel

LE TYPE RANGE

46
Le type RANGE

Le type RANGE désigne une plage de cellules, c’est un type spécifique à Excel.

Coin en haut et à gauche de la plage de cellules passée en paramètre de la fonction =

coordonnée (1, 1) c.-à-d. ligne n°1 et colonne n°1, quelle que soit la position absolue
de la plage dans la feuille de calcul (ici le coin nord-ouest est en B3)
Exemple

Un bloc de cellules (B3:D4) est passé en

paramètre de la fonction. Ce bloc est forcément
rectangulaire, avec, ici : 2 lignes et 3 colonnes.

La fonction MaSommeRange() est censée faire la même chose

que la fonction standard SOMME() d’Excel.
47
Exploiter le type Range en VBA

Entrée : plage (range)

Sortie : S (réel) Lignes et colonnes commencent à l’indice 1, quelle
Calcul : Somme des valeurs que soit la position de la plage dans la feuille.

'Travail sur le type Range

Public Function MaSommeRange(plage As Range) As Double
'variables intermédiaires
Dim s As Double, i As Long, j As Long Nombre de lignes de
'initialisation de la somme la plage de cellules.
s = 0
'parcours de la plage de cellules Nombre de
colonnes.
For i = 1 To [Link] Step 1 'lignes
For j = 1 To [Link] Step 1 'colonnes
'lecture des valeurs et somme
s = s + [Link](i, j).Value
Next j
Next i
Accès à la valeur (Value) de la
'renvoyer le résultat
cellule : ligne n°i, colonne n°j
MaSommeRange = s
End Function
48
Une boucle adaptée pour les plages de cellules – For Each

La boucle For Each est adaptée au parcours des collections.

Or une plage de cellules est une collection de cellules.

'Travail sur le type Range avec un For Each

Public Function MaSommeRangeEach(plage As Range) As Double
'variables intermédiaires
Dim s As Double, cellule As Range Une cellule est une plage de
cellules avec une seule cellule.
'initialisation de la somme
s = 0
'parcours de la plage de cellules
For Each cellule In plage plage fait figure de collection à traiter.
s = s + [Link] Qu’importe le sens du parcours ici (ligne
par ligne, ou colonne par colonne).
Next cellule
'renvoyer le résultat
MaSommeRangeEach = s C’est bien la valeur contenue dans la
End Function cellule qui est exploitée pour la somme.

49
Type spécial qui peut contenir toutes sortes de valeur

LE TYPE VARIANT

50
Le type Variant

Le type de variant peut gérer tout type de valeurs. Il est très souple,
particulièrement commode quand on ne connaît pas à l’avance le type à
utiliser. Mais attention, il ne faut pas en abuser, il est très lent parce que
multiplie les vérifications à chaque accès à la variable correspondante.

Un coup, la fonction renvoie un réel, un

Entrée : a, b (réel) autre coup elle doit renvoyer une chaîne
Sortie : a/b si b ≠ 0, « division par zéro » sinon de caractères.

'utilisation du type variant

Public Function MaDivision(a As Double, b As Double) As Variant
'var. intermédiaire
Dim resultat As Variant
'calcul
If (b <> 0) Then Dans la même variable resultat, de type
resultat = a / b variant, on peut affecter un réel et une
Else chaîne de caractères.
resultat = "division par zéro"
End If
'renvoyer le résultat
MaDivision = resultat
End Function

51
Le type Variant est vraiment très souple

On peut s’en servir pour renvoyer un tableau. Une fonction peut donc renvoyer
plusieurs valeurs d’un coup, à l’instar des fonctions matricielles d’Excel (il faut valider
la saisie de la fonction avec la séquence de touches CTRL + MAJ + ENTREE).

'renvoyer plusieurs valeurs

Public Function MonMinMax(a As Double, b As Double) As Variant
'un tableau interne - matrice 2 lignes et 1 colonne
Dim tableau(1 To 2, 1 To 1) As Double
'identifier le min et le max
If (a < b) Then
tableau(1, 1) = a
tableau(2, 1) = b
Else
tableau(1, 1) = b
tableau(2, 1) = a
End If
On a bien une fonction matricielle
'renvoyer le tableau comme peuvent en témoigner les
MonMinMax = tableau accolades { } qui encadrent l’appel
de la fonction.
End Function

52
Programmation des macros – Travailler directement sur les feuilles

LES MACROS (1)

53
Macros ?
Les macros sont également des procédures que l’on crée à l’intérieur d’un module.
Mais, à la différence des Function, ce sont des Sub() sans paramètres qui peuvent
manipuler (accéder et modifier) directement les objets Excel (classeurs, feuilles,
cellules, graphiques, scénarios, tableaux croisés dynamiques…).
Ils ne s’exécutent pas de la même manière. Au lieu de les insérer dans une cellule, ils
se lancent globalement via le bouton MACROS dans le ruban DEVELOPPEUR.

54
Enregistreur de macros

Une manière simple de générer une macro est de lancer l’enregistreur de macros.
Du code VBA est automatiquement généré.

Exemple : mettre en gras et vert

le contenu des cellules A1 et A2

Une macro correspond à

un Sub() sans paramètres.

Un nouveau module
« Module1 » est
automatiquement créé.

Ecrire du code VBA pour les macros

se révélera plus simple au final.

55
Enregistreur de macros - Bilan

Avantages :
• Il n’y a pas plus simple pour produire du code, on peut créer et exécuter une macro
sans aucune notion de programmation
• Il nous donne des indications précieuses sur les commandes associées aux objets
Excel

Inconvénients :
• On travaille à structure fixée, si la configuration de la feuille change, il n’est pas
possible de lancer la macro
• On ne bénéficie pas de la puissance des structures algorithmiques

En définitive :
• Il peut nous aider à rédiger notre code en nous donnant des pistes sur la syntaxe
des commandes et les objets adéquats à manipuler (ex. imprimer automatiquement
des feuilles, on lance l’enregistreur une fois, on intègre son code dans le notre à
l’intérieur d’une boucle).

56
Ecriture des macros – Les trois principaux objets

Ecrire directement des macros est simple une fois assimilé la philosophie de
l’approche, et identifié les principaux objets et l’accès à leurs propriétés et méthodes
(l’enregistreur peut nous y aider).

Activer (sélectionner) le
Classeurs Workbooks(‘’[Link]’’).Activate classeur dont le nom de
fichier est ‘’[Link]’’

Dans le classeur courant, activer la feuille de calcul

dont le nom est ‘’Feuil1’’ (visible dans la languette
Sheets(‘’Feuil1’’).Activate au bas de la feuille)
Feuilles
Workbooks(‘’[Link]’’).Sheets(‘’Feuil1’’).Activate On peut combiner
les écritures.

Dans la feuille courante du classeur courant, insérer

Cells(1,1).Value = 15 la valeur 15 dans la cellule ligne n°1, colonne n°1
c.-à-d. en A1, les coordonnées sont absolues ici.
Cellules
Sheets(‘’Feuil1’’).Cells(1,1).Value = 15 De nouveau, on peut combiner.

57
Exemple de macros – Simulation valeurs de TVA
Ecrire une macro qui insère différentes valeurs de
TVA en B2 et récupère les valeurs de prix TTC en B3. Les différentes valeurs de TVA testées doivent être
retranscrites au fur et à mesure dans la colonne D.

Les valeurs de Prix TTC correspondantes

doivent être recensées en colonne E
Sub SimulationTVA()
'variables
Dim pht As Double, pttc As Double
Dim tva As Double
Dim i As Long Remarque : il faut être sur la feuille
'début d'écriture des valeurs en ligne 2 adéquate avant de lancer la macro,
i = 2
sinon le programme ne saura pas où
'récupérer la valeur du PHT
pht = Cells(1, 2).Value 'en B1 chercher Cells(…).
'faire varier la tva de 10% à 30% avec un pas de 5%
For tva = 10 To 30 Step 5
'insérer la valeur de la TVA en B2
Cells(2, 2).Value = tva
'Récupérer le prix ttc en B3 A l’issue de la simulation…
pttc = Cells(3, 2).Value
'inscription des valeurs
'TVA en colonne D
Cells(i, 4).Value = tva
'PTTC en colonne E
Cells(i, 5).Value = pttc
'passage à la ligne suivante
i = i + 1
Next tva
End Sub

58
Travailler sur les sélections de l’utilisateur

LES MACROS (2)

59
Sélection simple
Comment programmer une macro qui manipule directement une plage de cellules
sélectionnée par l’utilisateur ? Attention, nous ne sommes pas dans la même
configuration que les fonctions personnalisées ici, nous n’insérons pas un résultat
dans une cellule, nous manipulons et modifions directement la plage sélectionnée.

Exemple : dans cette sélection (les cellules

doivent être sélectionnées avant de lancer
la macro !), mettre en police verte les
cellules contenant une valeur paire.
Sub MesValeursPaires()
'variable intermédiaire
Dim cellule As Range Selection est un objet Excel (Selection
'boucler sur la sélection
est donc un mot clé). Il est de type
For Each cellule In Selection
'tester le contenu Range (que nous connaissons bien).
If ([Link] Mod 2 = 0) Then
'modifier la couleur de la police On peut aussi écrire
[Link] = 4 [Link]=vbGreen
End If Résultat…
Next cellule
10 15 20 13
End Sub 36 7 8 28

60
Sélection simple – On aurait pu écrire…

Dans une sélection, de nouveau les

coordonnées sont relatives c.-à-d. le coin en
haut à gauche d’une sélection correspond à la
cellule (ligne n°1, colonne n°1) quelle que soit la
position de la sélection dans la feuille.
Sub MesValeursPairesBis()
'variables intermédiaires
Dim i As Long, j As Long
'boucler sur les lignes Aucun doute, Selection est
bien de type Range
For i = 1 To [Link]
'boucler sur les colonnes
For j = 1 To [Link]
'tester le contenu
If ([Link](i, j).Value Mod 2 = 0) Then
'modifier la couleur de la police
[Link](i, j).[Link] = 4
End If
Next j
Next i
End Sub

61
Sélection simple – Un second exemple

Identifier la première cellule contenant la valeur 10 15 20 13

36 7 8 28
minimale dans une plage, mettre sa police en bleu.

Sub MonMinBleu()
'variables intermédiaires
'min va servir de cellule témoin
Dim cellule As Range, min As Range
'initialisation du témoin sur la 1ère cellule
Set min = [Link](1, 1)
'parcourir
For Each cellule In Selection Range est un objet. Une
'comparer avec le contenu de la cellule témoin affectation pour une variable
If ([Link] < [Link]) Then objet doit être réalisée à
'màj de la cellule témoin
l’aide de l’instruction Set
Set min = cellule
End If
Next cellule
'mettre la couleur pour la cellule minimale
[Link] = 5
End Sub

62
Sélections multiples

Une sélection peut être multiple aussi c.-à-d. contenant plusieurs ‘’zones’’

Un exemple de sélection
multiple avec 3 zones.

Très curieusement, le même mot clé Selection peut être exploité.

[Link] Nombre de ‘’zones’’ dans la sélection.

Accès à la zone n°k (qui est de type Range).

[Link](k)
Areas est une collection de zones.

63
Sélection multiple – Un exemple
Pour chaque zone, mettre en
Sub MonMinZoneBleu()
police bleue la cellule contenant
'var. intermédiaires
Dim zone As Range, min As Range la valeur minimale.
'pour chaque zone [Link] est une collection. On peut
For Each zone In [Link] utiliser un For Each. On aurait pu aussi passer
'à l'intérieur de chaque zone par un accès indicé. Par ex.
'initialisation For k = 1 to [Link]
Set min = [Link](1, 1) Set zone = [Link](k)
Etc…
'parcours des cellules
For Each cellule In zone
'comparer
If ([Link] < [Link]) Then
'màj de la variable témoin
Résultat…
Set min = cellule
End If
Next cellule
'mettre la couleur pour la cellule minimale
[Link] = 5
'passage à la zone suivante
Next zone
End Sub

64
BOÎTES DE DIALOGUE

65
Boîtes de dialogue standards

Les boîtes de dialogue permettent d’interagir avec l’utilisateur. Nous nous en

tenons aux plus simples ici. InputBox() pour la saisie, MsgBox() pour l’affichage.

InputBox() est une fonction

Sub MesBoitesDeDialogue()
'var. intermédiaire
Dim prenom As String
'saisie
prenom = InputBox("Entrer votre prénom", "Saisie", "")
'affichage
MsgBox ("Bonjour " & prenom)
End Sub

Noter la concaténation de chaînes de caractères pour

faire apparaître le prénom dans la boîte de dialogue.
66
Ma MsgBox

• Boite de dialogue de base, "personnalisable"

vbOKOnly 0 N'affiche que le bouton ok
vbOKCancel 1 Ok et Annuler
vbAbortRetryIgnore 2 Abandonner, Recommencer, Ignorer
vbYesNoCancel 3 Oui, Non, Annuler
vbYEsNo 4 Oui, Non
vbRetryCancel 5 Recommencer, Annuler
vbCritical 16 Icône message critique
vbQuestion 32 Icône Question
vbExclamation 48 Icône exclamation
vbInformation 64 Icône Information
vbDefaultButton1 0 Le premier bouton est par défaut
vbDefaultButton2 256 Le 2ième bouton est par défaut
vbDefaultButton3 512 Le 3ième bouton est par défaut
vbDefaultButton4 768 Le 4ième bouton est par défaut
vbSystemModal 4096 Suspend tout jusqu'à une réponse de l'utilisateur

67
Ma MsgBox

68
EXPLOITER LES FONCTIONS
NATIVES D’EXCEL

69
Accéder aux fonctions natives d’Excel dans nos programmes
Excel dispose de fonctions natives puissantes. Nous
pouvons y accéder dans nos programmes VBA.
Exemple : Vérifier qu’une sélection est simple (une
Sub MaMoyenneSelection() seule zone), puis calculer et afficher la moyenne
'var. intermédiaire des valeurs dans une boîte de dialogue.
Dim moyenne As Double
'vérifier la sélection
If ([Link] > 1) Then
MsgBox ("Attention, ce n'est pas une sélection simple")
Else
Noter la syntaxe.
'faire calculer la moyenne de la sélection par Excel
moyenne = [Link](Selection)
MsgBox ("La moyenne est " & Str(moyenne))
End If
End Sub

70
LES TABLEAUX

71
Les tableaux (1)

• Déclaration
– Dim MonTableau(1 to 100) As Integer
– Index débute à 0 par défaut;
• Option Base 1

• Tableaux multidimensionnels
– Dim MonTableau(1 to 10, 1 to 10) As Integer

• Affectation
– MonTableau(3,4) = 125

72
Les tableaux (2)

• Tableaux dynamiques
• Création
– Dim MonTableau() As Integer

• Redimensionnement
– ReDim MonTableau(NombreElements)

• Redimensionner en gardant les données déjà présentes

– ReDim Preserve MonTableau(NombreElements)

73
Les tableaux avec Array (3)

– Structure pour afficher le contenu:

Dim mois As Variant

Dim m As Variant
mois = Array("Janvier", "Mars", "Août", "Décembre")
For Each m In mois
MsgBox m
Next m

– Ou alors…

Dim mois As Variant

Dim i As Integer
mois = Array("Janvier", "Mars", "Août", "Décembre")
For i = 0 To 3
MsgBox mois(i)
Next i

74
Les tableaux fonctions de base (4)

• Fonctions sur les tableaux:

– Lbound : plus petit index du tableau

– (Lbound,i) : plus petit index de la dimension i du tableau
– Ubound : plus grand index
– (Ubound,i) : plus grand index de la dimension i du tableau
– Array(…) : retourne un tableau (doit être affecté à un Variant)
– Erase : efface le tableau de la mémoire

75
Les tableaux fonctions de base – exemple (5)

• Exemples de fonctions de tableaux

Dim mois As Variant, i As Integer

mois = Array("Janvier", "Mars", "Août", "Décembre")
For i = LBound(mois) To UBound(mois)
MsgBox mois(i)
Next i
Erase mois

Donne la borne inférieure Donne la borne supérieure

76
Type structuré
Champs simples ou structurés

LES ENREGISTREMENTS

77
Les enregistrements

• Contrairement aux tableaux, ce type structuré permet de regrouper des

données de types différents.

• Exemple : on identifie un ouvrage par un code, un titre, un ou plusieurs

auteurs, un éditeur et éventuellement la date de parution.

• Ouvrage est une variable de type enregistrement; chacune de ces cinq

données est un champ pouvant être simple ou structuré.

78
Les enregistrements

• Les enregistrements sont déclarés en VB avec le mot Type.

• Syntaxe :
Type NomEnregistrement
Champ1 As type1
Champ2 As type2
…
End Type
Champs
• Exemple : simples

Type ouvrage Type Madate

code as Integer jour As Integer
titre As String*40 mois As Integer
auteur As String*50 annee As Integer
editeur As String*50 End Type
dateparution As Madate
End Type
Champ
structuré

79
Les enregistrements – Exemple (1)

• Exemple :
Type ouvrage Type MaDate
code as Integer jour As Integer
titre As String*40 mois As Integer
auteur As String*50 annee As Integer
editeur As String*50 End Type
dateparution As Madate
End Type

• Pour accéder à un champ :

Dim livre As ouvrage
[Link] = "Durand "
[Link] = 1980
‘on s’aperçoit ici que l’on pourrait remplacer livre par un tableau
dans le type
ouvrage…Dim livre(1 To 10000) as ouvrage…
livre(9).auteur = "Durand" s’il s’agit du neuvième livre de la liste…
…

80
Les enregistrements – Exemple (2)

Un étudiant est défini par son nom, son prénom, sa date de naissance et
sa note :
Private Type Etudiant
nom As String * 40
prenom As String * 40
dateNaissance As Date
note As Double
End Type

Une classe peut contenir au plus 30 étudiants :

Const NbMax = 30 ‘pour le nombre limite
d’étudiants
Private Type Classe
liste(NbMax) As Etudiant ‘la liste est un tableau
d’étudiants
nbr As Integer ‘le nombre réel des étudiants
End Type

On déclare ensuite la classe d’étudiants :

Dim c As Classe
81
Les enregistrements - Exercice

• L’exemple précédent sera complété dans le prochain cours sur les

interfaces graphiques…

• Comment définir une matrice ?

• Créer un programme qui affiche le nombre de lignes et de colonnes d’une

matrice saisie sur la Feuil1 du classeur.

82
LES CHAÎNES DE CARACTÈRES

83
Fonctions sur les chaînes de caractères (1)

• Concaténation: & ("fabrice" & " pasquier")

• Construction périodique: String(20, "x")
– Répète 20 fois le caractère 'x'
– Space(10): génère une séquence de 10 espaces
• Eclatement: Split(chaine, séparateur)
– s = Split("c:\windows\system32\[Link]", "\")
– s doit être de type Variant

84
Fonctions sur les chaînes de caractères (2)

• Longueur: Len(chaîne)

• Positionnement: InStr(chaîne, caractère)

– pos = InStr("Il fait beau", "b") retourne 9

• MAJ, min:
• LCase("BonjouR") retourne "bonjour"
• UCase("BonjouR") retourne "BONJOUR"

• Sélection de caractères: Mid, Left, Right

• Left("Fabrice", 3) retourne "Fab"
• Right("Fabrice", 3) retourne "ice"
• Mid("Fabrice", 5, 2) retourne "ic"

85
Fonctions sur les chaînes de caractères (3)

• La fonction Format(…) retourne une chaîne de caractères formatée en

fonction des paramètres

• Même fonctionnement que dans Excel

• Format(12121.13, "##'###.00") retourne 12'121.13

• Format("salut", "<")  UCase("salut")

• Format(Date, "yy/mmmm/dd")
– La fonction Date retourne la date actuelle. Celle-ci doit être formatée
avant affichage dans une boîte de dialogue, sinon elle sera affichée
sous la forme spécifiée dans les options régionales (dd/mm/yy)

• D’autres fonctions ici :

[Link]

86
UserForm et éditeur graphique
Les différents contrôles

DÉVELOPPEMENT RAPIDE
D’INTERFACES

87
Créer un UserForm personnalisé

• 1) Imaginer la boîte de dialogue: à quoi sert-elle, où sera-t-elle utilisée?

• 2) Créer un nouvel objet userForm dans l'éditeur VBE
• 3)Ajouter des contrôles
– Zones de textes
– Boutons radio
– Cases à cocher
– Listes
• 4) Modifier les propriétés des éléments
• 5) Ecrire les procédures d'évènements des différents contrôles
• 6)Ecrire la procédure affichant la boîte de dialogue.

88
L'éditeur graphique de USerForm

89
Editer les propriétés des contrôles

90
Editer les procédures d'évènements

• Double-cliquer sur le contrôle dont on veut éditer les évènements

91
Détails sur les contrôles (1)

• La case à cocher
– Accelerator
– Value
• Zone de liste modifiable
– ListRow
– RowSource
– Value
• Bouton
– Annuler
– Default
• Image
– picture

92
Détails sur les contrôles (2)

• Multipage: faire des onglets.

• Bouton d'option (bouton radio): sélection d'UNE option parmi plusieurs.

– Un groupe est défini par tous les boutons ayant la même propriété
GroupName ou si tous les boutons sont dans un même cadre.

• RefEdit: permettre à l'utilisateur de sélectionner une plage dans une

feuille de calcul

• Barre de défilement: ascenceur permettant de définir/ afficher une valeur

93
Détails sur les contrôles (3)

• Contrôle Toupie: 2 boutons fléchés permettant d'incrémenter /

décrémenter une valeur

• Contrôle zone de texte: insérer du texte!

• Bouton bascule: similaire à la case à cocher

94
Dimensionner / Aligner les contrôles

95
HIÉRARCHIE ET APPLICATION
…COMPLÉMENT

96
Hiérarchie en Visual Basic (1)

• On écrit une hiérarchie en VB avec des . (point)

• On se réfère à la cellule A1 de la 1ère feuille de calculs:
– [Link](1).Sheets(1).Cells(1,1)
• Noter que l'index 1 est le plus petit. Pas de 0.
• Workbooks(1) => on prend le 1er élément de la collection des
Workbook.
• Des simplifications d'écrire sont possibles
– Sheets(1).Cells(1,1) est équivalent

97
Hiérarchie en Visual Basic (2)

• Cells est également une collection. Chaque élément de la collection est

une cellule, indexée matriciellement.
• Cells(3, 4) est la cellule (Cell) "C4".
• Cependant, l'objet Cell n'existe pas vraiment en Excel, il est remplacé par
Range.
• Chaque Range a de nombreuses propriétés, comme la couleur ou la
police.

98
Hiérarchie en Visual Basic (3)

• Ecrire dans la cellule A1:

– [Link](1).Sheets(1).Cells(1, 1).Value = "salut"
– [Link](1).Sheets(1).Range("A1").Value = "salut"
– Sheets(1).Range("A1").Value = "salut"
– Range("A1").Value = "salut" (il faut être sur que la 1ère feuille de
calculs est sélectionnée dans Excel…)

• Les 2 dernières solutions sont des simplifications d'écriture, mais

évidemment moins précises…

99
Hiérarchie en Visual Basic (4)

• Lorsque l'on tape Range("A1"). Visual Basic propose toute une liste de
méthodes et de propriétés disponibles pour cet objet.

• Une méthode est une action que l'on peut exécuter sur un objet.

100
Applications - Police

• On peut changer la police ainsi:

– Gras:
• Sheets(1).Range("A1").[Link] = True
– Taille:
• Sheets(1).Range("A1").[Link] = 12
– Nom:
• Sheets(1).Range("A1").[Link] = "Arial"

101
Applications - Valeur

• Ecrire une valeur:

– Sheets(1).Range("A1").Value = 12

• Ecrire une formule:

– Sheets(1).Range("A1").Value = "=SUM(A1:B1)"
• Attention: il est nécessaire d'écrire la formule en anglais!

102
Applications - Couleurs (1)

• 2 syntaxes pour les couleurs:

– Sheets(1).Range("A1").[Link] = vbRed
• (vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan,
vbWhite ou valeurs en hexa)
– Sheets(1).Range("A1").[Link]

103
Applications - Couleurs (2)

• Définition de la couleur du bord:

– Sheets(1).Range("A1").[Link] = vbRed
Ou
– Sheets(1).Range("A1").[Link] = 13

104
Complément sur les couleurs

• Système de couleur RGB

• 3 valeurs codées de 0 à 255 (3 x 8bits = 24bits) (Rouge, Vert, Bleu)
• Blanc : R:255 G:255 B:255
Bleu: R:0 G:0 B:255
• Convertir en hexadécimale
– 255->FF 15->0F
– Ecrire les 3 valeurs à côté: 0xFFED10
– Ecrire en décimale 0xFFED10 ->1677238

105
PROGRAMMATION OBJET…LES
MODULES DE CLASSE

106
Rappels

• D’abords les enregistrements :

– Regroupement au sein d’une même structure d’un ensemble de
données élémentaires.
– Déclarés en VB avec le mot clé Type.

• Syntaxe :
Type NomEnregistrement
Champ1 As type1
Champ2 As type2
…
End Type

107
Rappels

• Exemple :

Type Etudiant Type Madate

numero as Long jour As Integer
nom As String mois As Integer
prénom As String annee As Integer
dateNaissance As Madate End Type
End Type

• Pour accéder aux champs

Dim e As Etudiant
…
[Link] = 100
[Link] = 1988

108
Les Classes

• Enrichissement de la notion d’enregistrement.

• Objet = ensemble de données (attributs) permettant de

– caractériser l’objet
+
– ensemble de programmes (méthodes) servant à modifier les attributs.

• Programme Objet = ensemble d’objets.

109
Les Classes : exemple

110
Les Classes : Encapsulation

• Consiste à regrouper dans un objet ses propriétés et les méthodes qu’on

peut lui appliquer.

• Intérêts :

– Masquer l’implémentation : les utilisateurs n’ont pas besoin de savoir

comment vous avez implémenté votre module.

– Ces objets, une fois implémentés, deviennent des « boîtes noires ».

111
Les Classes : Propriétés

• La méthode la plus simple pour implémenter des propriétés est d’utiliser

des variables publiques. Pour implémenter une propriété, il suffit de
déclarer des variables publiques dans notre module de classe
Public nom as String
Public prénom as String
…

• Problèmes :
– Impossible de créer une propriété en lecture (ou écriture) seule.
– Impossible de savoir quand une propriété est modifiée.
– Impossible de vérifier la validé des valeurs (par exemple une date de
naissance doit toujours être une date révolue).

112
Les Classes : les procédures Property

• Les procédures Property permettent de donner un accès complet ou limité

aux propriétés d’un objet.

• Nous accédons à ces données à travers des méthodes.

• Il existe 3 procédures Property :

– Property get : lecture de la propriété quel que soit son type.

– Property let : écriture des propriétés de type simple.
– Property set : écriture des propriétés de type objet.

113
Les Classes : les procédures Property…exemple

114
Les Classes : les méthodes

• Comme dans un module simple, les méthodes peuvent, soit ne pas

renvoyer de valeur (procédure Sub), soit renvoyer une valeur (fonction
Function).

• Exemples :

115
Les Classes : exercice

• Aller sur l’éditeur VBA (Alt+F11).

• Créer une nouvelle classe Etudiant.

• Saisir le code de la classe :

1. D’abord les propriétés :

• Private eNumero As Long
• Private eNom As String
• Private ePrenom As String
• Private eDateNaissance As Date

116
Les Classes : exercice

1. D’abord les propriétés : …

2. Puis les accesseurs :

117
Les Classes : exercice

1. D’abord les propriétés : …

2. Puis les accesseurs : …
3. Et enfin les méthodes :

118
Les Classes : exercice

• Pour tester notre classe :

1. Dans l ’éditeur, on crée un nouveau module.
2. On saisit le code du test :

119
LES STRUCTURES COMPLEXES
LES PILES ET LES FILES

120
Une pile

• Analogie de la pile d’assiettes

– Last In First Out (LIFO)
• Opérations possibles
– Insérer un élément dans une pile
– Supprimer un élément d’une pile
– Élément du sommet de la pile
– Création d’une pile vide
– Tester si une pile est vide

121
Une pile

• Plusieurs façons de faire :

– En particulier, à l’aide d’un tableau :
• Le nombre max d’éléments dans la pile
• Le contenu de la pile
• Un indice pour pointer sur le sommet de la pile

122
Mise en œuvre d’une pile : exemple

• Type de données :

Const NMAX=30

Type TPile
contenu(NMAX) as Integer
sommet As Integer
End Type

123
Mise en œuvre d’une pile : exemple

Function PileVide(p As TPile) As Boolean

If ([Link] = -1) Then
PileVide = True
Else
PileVide = False
End If
End Function

124
Mise en œuvre d’une pile : exemple

Function PilePleine(p As TPile) As Boolean

If ([Link] = NMAX - 1) Then
PilePleine = True
Else
PilePleine = False
End If
End Function

125
Mise en œuvre d’une pile : exemple

Sub Empiler(p As TPile,elt As Integer)

If (PilePleine(p) = False) Then
[Link] = [Link] +1
[Link]([Link]) = elt
Else
MsgBox(’’La pile est pleine !’’)
End If
End Sub

126
Mise en œuvre d’une pile : exemple

Sub Depiler(p As TPile)

If (PileVide(p) = False) Then
[Link] = [Link] - 1
Else
MsgBox(’’La pile est vide !’’)
End If
End Sub

127
Mise en œuvre d’une pile : exemple

Function sommet(p As TPile) As Integer

If (PileVide(p) = False) Then
sommet = [Link]([Link])
Else
MsgBox(’’La pile est vide !’’)
End If
End Function

128
Une file

• Analogie de la file d’attente

– First In First out (FIFO)
• Opérations principales
– Insertion d’un élément
– Suppression d’un élément (le plus ancien de la file)
– Quel est l’élément le plus ancien de la file ?
– Création d’une file vide
– Est-ce qu’une file est vide ?

129
Mise en œuvre d’une file

• Plusieurs façons de faire :

– En particulier, à l’aide d’un tableau :
• Le nombre max d’éléments dans la file
• Le contenu de la file
• Un indice début qui pointe sur l’élément le plus ancien de la file
• Un indice fin qui pointe sur le dernier élément inséré dans la file

130
Mise en œuvre d’une file : exemple

• Type de données :

Const NMAX=30

Type TFile
contenu(NMAX) as Integer
debut As Integer
fin As Integer
End Type

131
Mise en œuvre d’une file : exemple

Function FileVide(f As TFile) As Boolean

If ([Link] = [Link]) Then
FileVide = True
Else
FileVide = False
End If
End Function

132
Mise en œuvre d’une file : exemple

Function FilePleine(f As TFile) As Boolean

If ([Link]=([Link] + 1) mod NMAX) Then
FilePleine = True
Else
FilePleine = False
End If
End Function

133
Mise en œuvre d’une file : exemple

Sub Enfiler(f As TFile,elt As Integer)

If (FilePleine(p) = False) Then
[Link]([Link]) = elt
[Link] = ([Link] +1) mod NMAX
Else
MsgBox(’’La file est pleine !’’)
End If
End Sub

134
Mise en œuvre d’une file : exemple

Sub Defiler(f As TFile)

If (FileVide(f) = False) Then
[Link] = ([Link]+1) mod NMAX
Else
MsgBox(’’La file est vide !’’)
End If
End Sub

135
Mise en œuvre d’une file : exemple

Function Tete(f As TFile) As Integer

If (FileVide(f) = False) Then
Tete = [Link]([Link])
Else
MsgBox(’’La file est vide !’’)
End If
End Function

136
Mise en œuvre d’une pile : exercice

• Créer un module pour simuler les piles.

• Votre module doit contenir la procédure suivante :
Sub main()
Dim p As TPile
Dim i As Integer
i=1
While PilePleine(p)=False
Call Empiler(p,i)
i=i+1
WEnd
While PileVide(p)=False
MsgBox(Sommet(p))
Call Depiler(p)
Wend
End Sub

137
Mise en œuvre d’une file : exercice

• Une personne est définie par un numéro, un nom et un prénom.

• Définir une structure PFile correspondant à une file de personne.
• Adapter les différentes procédures et fonctions pour qu’elles manipulent
des files de personnes.

138
Conclusion…

• A pratiquer en TP et sur le projet !

139
Références

De la documentation à profusion (inutile d’acheter des livres sur VBA)

Site de cours de Microsoft

VBA sous Excel : [Link]
Structures de décision : [Link]
Structures de boucle : [Link]

Autres cours et supports

Le Compagnon Info : [Link]
Excel Easy : [Link]
Cours VBA Gratuit : [Link]
Excel VBA for Complete Beginners : [Link]

Et d’autres très nombreux encore… faites chauffer les moteurs de recherche.

140
Remerciements

Merci

141