Langage vba
(Réalisation de procédures ou macros) 1) Représentation d'une cellule Cells(n°ligne , n°colonne) ex : Cells(8,2) correspond à la cellule B8 ou Range("B8")
Remarque : Avec la syntaxe Cells(…,…) le n° d'une ligne ou d'une colonne peut correspondre à une variable.
LignMat = 14
Cells(LignMat,1) correspond à la cellule A14
2) Affecter à une cellule la valeur d'une variable
Exemple : La variable Nom est d'abord saisie. Puis elle doit être placée dans la cellule
B2.
Nom = InputBox("Saisir votre nom : ")
Cells(2,2) = Nom
3) Affecter à une variable la valeur d'une cellule
Exemple : On veut utiliser la variable
Nom sachant qu'elle correspond à la valeur de la cellule B2.
Nom = Cells(2,2) 4) Sélectionner une feuille Sheets("nom de la feuille").Select ou Sheets("nom de la feuille").Activate ex : Sheets("Client").Select correspond à la sélection de la feuille de calcul Client 5) Affecter à une cellule la valeur d'une cellule d'une autre feuille de calcul
Exemple : Affecter le n° d'un client disponible dans la feuille Client, à une cellule de la feuille DocDevisResa.
Sheets("DocDevisResa").Select
Cells(1,6) = "=Client!A2" ou Cells(1,6) = Sheets("Client").Cells(2,1)
6) Affecter à une cellule la valeur d'une autre cellule modifiée par un calcul
Exemple : Création d'un nouveau numéro client : le dernier n° créé est présent dans la cellule A3 (ex : n°156). Le nouveau numéro doit être créé dans la cellule A2 en ajoutant 1 (Soit n°157).
Cells(2,1) = "=A3+1" ou Cas où la cellule source et la cellule destination se trouvent dans des feuilles différentes : ex : création automatique d'un nouveau n° de réservation.
Sheets("DocDevisResa ").Select
Range("B8") = "=Reservation!A2+1"
Traduction : La valeur de la cellule B8 de la feuille DocDevisResa prendra la valeur de la cellule A2 + 1 de la feuille Reservation.
7) Insérer une ligne
Exemple : Insérer