CoursVBA BFNI Niveau1&2

Télécharger au format pdf ou txt
Télécharger au format pdf ou txt
Vous êtes sur la page 1sur 121

Hervé Hocquard

http://www.labri.fr/perso/hocquard

Master 2 BFNI-Université de Bordeaux 1


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).

Master 2 BFNI-Université de Bordeaux 2


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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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)

Master 2 BFNI-Université de Bordeaux 6


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

Master 2 BFNI-Université de Bordeaux 7


L’éditeur (Visual Basic Editor)

Alt + F11

Master 2 BFNI-Université de Bordeaux 8


Insertion d’un module dans l’éditeur

Master 2 BFNI-Université de Bordeaux 9


Enregistrer une macro

Master 2 BFNI-Université de Bordeaux 10


Enregistrer une macro

Master 2 BFNI-Université de Bordeaux 11


Impact dans l’éditeur

Master 2 BFNI-Université de Bordeaux 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 …

Master 2 BFNI-Université de Bordeaux 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)

Master 2 BFNI-Université de Bordeaux 14


Hiérarchie : Accéder aux objets

• Opérateur point ( . )

– Exemple:
Application.Workbooks("Classeur1.xlsx").Worksheets(1).Range("A1").Value=9

• Simplification: par exemple si Classeur1.xlsx est le classeur actif:

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

Master 2 BFNI-Université de Bordeaux 15


Propriétés d'un objet

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 17


Programme : suite d’instructions manipulant des données

LANGAGE VISUAL BASIC

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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.

Master 1 IREF -Université de Bordeaux 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)

Master 2 BFNI-Université de Bordeaux 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)

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 26


Ecriture et utilisation des fonctions personnalisées dans Excel

FONCTIONS PERSONNALISÉES

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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).

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 31


Plus loin avec la programmation…

STRUCTURES ALGORITHMIQUES

Master 2 BFNI-Université de Bordeaux 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
Syntaxe

si la condition est vraie


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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 34


Branchement conditionnel IF/ElseIf – Un exemple

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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 op.de.comparaison valeur
bloc d’instructions
Syntaxe

Case valeur de départ To valeur de fin


bloc d’instructions

Case Else
bloc d’instructions
End Select

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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 val.fin 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 > à val.fin, on sort de la boucle
(4) Val.fin doit être superieure à val.départ pour que l’on rentre dans la boucle
(5) Si pas est négatif, val.fin 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)

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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.
Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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.

Syntaxe Do
Bloc d’instructions
...
...
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

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 45


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

LE TYPE RANGE

Master 2 BFNI-Université de Bordeaux 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.
Master 2 BFNI-Université de Bordeaux 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 plage.Rows.Count Step 1 'lignes
For j = 1 To plage.Columns.Count Step 1 'colonnes
'lecture des valeurs et somme
s = s + plage.Cells(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
Master 2 BFNI-Université de Bordeaux 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 + cellule.Value 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.

Master 2 BFNI-Université de Bordeaux 49


Type spécial qui peut contenir toutes sortes de valeur

LE TYPE VARIANT

Master 2 BFNI-Université de Bordeaux 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
Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 52


Programmation des macros – Travailler directement sur les feuilles

LES MACROS (1)

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 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).

Master 2 BFNI-Université de Bordeaux 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(‘’classeur1.xlsm’’).Activate classeur dont le nom de
fichier est ‘’classeur1.xlsm’’

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(‘’classeur1.xlsm’’).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.

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 58


Travailler sur les sélections de l’utilisateur

LES MACROS (2)

Master 2 BFNI-Université de Bordeaux 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 (cellule.Value Mod 2 = 0) Then
'modifier la couleur de la police On peut aussi écrire
cellule.Font.ColorIndex = 4 Cellule.Font.Color=vbGreen
End If Résultat…
Next cellule
10 15 20 13
End Sub
36 7 8 28
Master 2 BFNI-Université de Bordeaux 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 Selection.Rows.Count
'boucler sur les colonnes
For j = 1 To Selection.Columns.Count
'tester le contenu
If (Selection.Cells(i, j).Value Mod 2 = 0) Then
'modifier la couleur de la police
Selection.Cells(i, j).Font.ColorIndex = 4
End If
Next j
Next i
End Sub

Master 2 BFNI-Université de Bordeaux 61


Sélection simple – Un second exemple

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


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

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 = Selection.Cells(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 (cellule.Value < min.Value) 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
min.Font.ColorIndex = 5
End Sub

Master 2 BFNI-Université de Bordeaux 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é.

Selection.Areas.Count Nombre de ‘’zones’’ dans la sélection.

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


Selection.Areas(k)
Areas est une collection de zones.

Master 2 BFNI-Université de Bordeaux 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 Selection.Areas est une collection. On peut
For Each zone In Selection.Areas 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 Selection.Areas.Count
Set min = zone.Cells(1, 1) Set zone = Selection.Areas(k)
Etc…
'parcours des cellules
For Each cellule In zone
'comparer
If (cellule.Value < min.Value) Then
'màj de la variable témoin
Résultat…
Set min = cellule
End If
Next cellule
'mettre la couleur pour la cellule minimale
min.Font.ColorIndex = 5
'passage à la zone suivante
Next zone
End Sub

Master 2 BFNI-Université de Bordeaux 64


BOÎTES DE DIALOGUE

Master 2 BFNI-Université de Bordeaux 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.
Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 67


Ma MsgBox

Master 2 BFNI-Université de Bordeaux 68


EXPLOITER LES FONCTIONS
NATIVES D’EXCEL

Master 2 BFNI-Université de Bordeaux 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 (Selection.Areas.Count > 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 = Application.WorksheetFunction.Average(Selection)
MsgBox ("La moyenne est " & Str(moyenne))
End If
End Sub

Master 2 BFNI-Université de Bordeaux 70


LES TABLEAUX

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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)

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 76


Type structuré
Champs simples ou structurés

LES ENREGISTREMENTS

Master 2 BFNI-Université de Bordeaux 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é.

Master 2 BFNI-Université de Bordeaux 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é

Master 2 BFNI-Université de Bordeaux 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
livre.auteur = "Durand "
livre.dateparution.annee = 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…

Master 2 BFNI-Université de Bordeaux 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
Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 82


LES CHAÎNES DE CARACTÈRES

Master 2 BFNI-Université de Bordeaux 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\driver.dll", "\")
– s doit être de type Variant

Master 2 BFNI-Université de Bordeaux 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"

Master 2 BFNI-Université de Bordeaux 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 :


https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/

Master 2 BFNI-Université de Bordeaux 86


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

DÉVELOPPEMENT RAPIDE
D’INTERFACES

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 88


L'éditeur graphique de USerForm

Master 2 BFNI-Université de Bordeaux 89


Editer les propriétés des contrôles

Master 2 BFNI-Université de Bordeaux 90


Editer les procédures d'évènements

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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 94


Dimensionner / Aligner les contrôles

Master 2 BFNI-Université de Bordeaux 95


HIÉRARCHIE ET APPLICATION
…COMPLÉMENT

Master 2 BFNI-Université de Bordeaux 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:
– Excel.Workbooks(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

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 98


Hiérarchie en Visual Basic (3)

• Ecrire dans la cellule A1:


– Excel.Workbooks(1).Sheets(1).Cells(1, 1).Value = "salut"
– Excel.Workbooks(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…

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 100


Applications - Police

• On peut changer la police ainsi:


– Gras:
• Sheets(1).Range("A1").Font.Bold = True
– Taille:
• Sheets(1).Range("A1").Font.Size = 12
– Nom:
• Sheets(1).Range("A1").Font.Name = "Arial"

Master 2 BFNI-Université de Bordeaux 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!

Master 2 BFNI-Université de Bordeaux 102


Applications - Couleurs (1)

• 2 syntaxes pour les couleurs:


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

Master 2 BFNI-Université de Bordeaux 103


Applications - Couleurs (2)

• Définition de la couleur du bord:

– Sheets(1).Range("A1").Borders.Color = vbRed
Ou
– Sheets(1).Range("A1").Borders.ColorIndex = 13

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 105


PROGRAMMATION OBJET…LES
MODULES DE CLASSE

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 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

e.numero = 100
e.dateNaissance.annee = 1988

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 109


Les Classes : exemple

Master 2 BFNI-Université de Bordeaux 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 ».

Master 2 BFNI-Université de Bordeaux 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).

Master 2 BFNI-Université de Bordeaux 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.

Master 2 BFNI-Université de Bordeaux 113


Les Classes : les procédures Property…exemple

Master 2 BFNI-Université de Bordeaux 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 :

Master 2 BFNI-Université de Bordeaux 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

Master 2 BFNI-Université de Bordeaux 116


Les Classes : exercice

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


2. Puis les accesseurs :

Master 2 BFNI-Université de Bordeaux 117


Les Classes : exercice

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


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

Master 2 BFNI-Université de Bordeaux 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 :

Master 2 BFNI-Université de Bordeaux 119


Références

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

Site de cours de Microsoft


VBA sous Excel : https://msdn.microsoft.com/fr-fr/library/office/ee814737(v=office.14).aspx
Structures de décision : https://msdn.microsoft.com/fr-fr/library/hh892482(v=vs.90).aspx
Structures de boucle : https://msdn.microsoft.com/fr-fr/library/ezk76t25(v=vs.90).aspx

Autres cours et supports


Le Compagnon Info : http://www.lecompagnon.info/excel/
Excel Easy : http://www.excel-easy.com/
Cours VBA Gratuit : http://www.excel-pratique.com/fr/vba.php
Excel VBA for Complete Beginners : http://www.homeandlearn.org/index.html

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

Master 2 BFNI-Université de Bordeaux 120


Remerciements

Merci
Hervé Hocquard ([email protected])
http://www.labri.fr/perso/hocquard/Teaching.html

Ricco Rakotomalala
http://eric.univ-lyon2.fr/~ricco/

Master 2 BFNI-Université de Bordeaux 121

Vous aimerez peut-être aussi