Les variables

Les Variables en VBA

Les variables sont des espaces en mémoire qui permettent de stocker des données temporaires pendant l'exécution d'un programme. Leur utilisation est essentielle pour manipuler des valeurs, interagir avec l'utilisateur et effectuer des calculs.

1. Pourquoi utiliser des variables ?

Stocker des données : Elles permettent de conserver des informations comme des textes, des nombres ou des objets.
Rendre le code dynamique : En utilisant des variables, vous pouvez traiter des données entrées par l'utilisateur ou issues des cellules Excel.
Optimiser le code : Elles permettent de réutiliser les mêmes valeurs sans les recalculer ou les ressaisir.

2. Déclaration d'une variable

En VBA, il est recommandé de déclarer explicitement les variables à l’aide du mot-clé Dim (abréviation de Dimension).

Syntaxe de base :

Dim NomDeLaVariable As Type

NomDeLaVariable : Le nom choisi pour la variable (doit être explicite et ne pas contenir d’espace ou de caractères spéciaux).
Type : Le type de donnée que la variable peut stocker (voir ci-dessous).

Exemple :

Dim Nom As String
Nom = "Marie"

3. Types de variables vues en cours

a) String : Chaîne de caractères

Utilisé pour stocker du texte ou des valeurs alphanumériques.
Exemple :

Dim Message As String
Message = "Bonjour, monde !"
MsgBox Message

b) Integer : Entier

Utilisé pour stocker des nombres entiers compris entre -32 768 et 32 767.
Exemple :

Dim Age As Integer
Age = 25
MsgBox "Votre âge est " & Age

c) Double : Nombre décimal

Utilisé pour stocker des nombres avec une partie décimale.
Exemple :

Dim Prix As Double
Prix = 19.99
MsgBox "Le prix est " & Prix & " €"

d) Boolean : Valeur Vrai/Faux

Utilisé pour stocker des valeurs logiques (True ou False).
Exemple :

Dim EstValide As Boolean
EstValide = True
If EstValide Then
    MsgBox "La valeur est valide."
Else
    MsgBox "La valeur n'est pas valide."
End If

e) Worksheet : Objet Feuille de calcul

Utilisé pour manipuler une feuille spécifique dans un classeur.
Exemple :

Dim Feuille As Worksheet
Set Feuille = ThisWorkbook.Sheets("Feuil1")
Feuille.Range("A1").Value = "Bonjour"

f) Workbook : Objet Classeur

Utilisé pour manipuler un classeur entier.
Exemple :

Dim Classeur As Workbook
Set Classeur = Workbooks.Open("C:\\MonClasseur.xlsx")
Classeur.Sheets(1).Range("A1").Value = "Données Importées"
Classeur.Close

4. Portée des variables (non vu en cours)

Variables locales :
- Déclarées à l’intérieur d’une procédure.
- Accessibles uniquement dans cette procédure.
- Exemple :
```
Sub ExempleLocal()
    Dim x As Integer
    x = 10
    MsgBox x
End Sub
```

Variables globales :

Déclarées en dehors de toute procédure (au début d’un module).
Utilisables dans tout le projet.
Exemple :

Dim Total As Double ' Variable globale

Sub InitTotal()
    Total = 100
End Sub

Sub AfficherTotal()
    MsgBox "Le total est : " & Total
End Sub

Variables privées :
- Déclarées avec le mot-clé Private au niveau d’un module.
- Utilisables uniquement dans le module où elles sont déclarées.
- Exemple :
```
Private Compteur As Integer
```

5. Bonne gestion des variables

Toujours déclarer vos variables :
- Cela permet d’éviter les erreurs liées aux fautes de frappe dans les noms de variables.
Choisissez des noms explicites :
- Privilégiez des noms qui reflètent le rôle de la variable.
- Exemple : PrixUnitaire, NombreArticles au lieu de x, y.
Libérez les objets :
- Lorsque vous utilisez des variables d’objets comme Workbook ou Worksheet, libérez-les après utilisation :
```
Set Classeur = Nothing
```
Utilisez des types appropriés :
- Évitez d'utiliser Variant sauf si nécessaire (type par défaut en VBA).

6. Exemples pratiques

Exemple 1 : Calcul avec différentes variables

Sub CalculPrixTotal()
    Dim Quantite As Integer
    Dim PrixUnitaire As Double
    Dim Total As Double

    Quantite = 5
    PrixUnitaire = 19.99
    Total = Quantite * PrixUnitaire

    MsgBox "Le total est : " & Total & " €"
End Sub

Exemple 2 : Manipuler une feuille spécifique

Sub RemplirFeuille()
    Dim Feuille As Worksheet
    Set Feuille = ThisWorkbook.Sheets("Données")

    Feuille.Range("A1").Value = "Nom"
    Feuille.Range("B1").Value = "Âge"
    Feuille.Range("A2").Value = "Alice"
    Feuille.Range("B2").Value = 30
End Sub

Exemple 3 : Décider avec un Boolean

Sub VerifierStock()
    Dim EnStock As Boolean
    Dim Stock As Integer

    Stock = 0
    EnStock = (Stock > 0)

    If EnStock Then
        MsgBox "Produit disponible"
    Else
        MsgBox "Produit en rupture de stock"
    End If
End Sub

7. Exercice : Variables

Objectif :
- Demandez à l’utilisateur une quantité (Integer) et un prix unitaire (Double) via des InputBox.
- Calculez et affichez le total dans une MsgBox.

Solution :

Sub CalculerTotal()
    Dim Quantite As Integer
    Dim PrixUnitaire As Double
    Dim Total As Double

    Quantite = InputBox("Entrez la quantité :")
    PrixUnitaire = InputBox("Entrez le prix unitaire :")

    Total = Quantite * PrixUnitaire
    MsgBox "Le total est : " & Total & " €"
End Sub

Manipulation des cellules et des plages en VBA

En VBA, la manipulation des cellules et des plages est fondamentale. Cette section couvre l'utilisation des objets Cells() et Range(), leurs propriétés essentielles (comme Offset, Value), ainsi que la variabilisation des classeurs (Workbooks), feuilles (Worksheets) et cellules. Ces concepts sont indispensables pour écrire du code VBA dynamique et robuste.

1. Différence entre `Cells()` et `Range()`

`Cells()`

Utilisé pour référencer une seule cellule en utilisant ses coordonnées (ligne, colonne).
Syntaxe : Cells(Ligne, Colonne)
- Ligne : Numéro de la ligne.
- Colonne : Numéro ou nom de la colonne.

Exemple :

Cells(1, 1).Value = "A1" ' Écrit "A1" dans la cellule A1
Cells(2, "B").Value = "B2" ' Écrit "B2" dans la cellule B2

`Range()`

Utilisé pour référencer une ou plusieurs cellules en utilisant leurs adresses.
Syntaxe : Range("Adresse")
- Adresse : Référence de la cellule ou plage (ex. : "A1", "A1:B10").

Exemple :

Range("A1").Value = "A1" ' Écrit "A1" dans la cellule A1
Range("B1:B5").Value = "Plage" ' Écrit "Plage" dans toutes les cellules B1 à B5

2. Propriétés essentielles

a) `Value`

Permet de lire ou écrire la valeur d’une cellule ou d’une plage.
Exemple :

Range("A1").Value = 100 ' Écrit 100 dans A1
MsgBox Cells(1, 1).Value ' Affiche la valeur de A1

b) `Offset`

Permet de déplacer la référence d'une cellule ou d’une plage en ligne et/ou colonne.
Syntaxe : Offset(NbLignes, NbColonnes)
- NbLignes : Nombre de lignes à déplacer (positif ou négatif).
- NbColonnes : Nombre de colonnes à déplacer (positif ou négatif).

Exemple :

Range("A1").Offset(1, 0).Value = "A2" ' Écrit "A2" dans la cellule en dessous de A1
Cells(1, 1).Offset(0, 1).Value = "B1" ' Écrit "B1" dans la cellule à droite de A1

c) `Address`

Renvoie l’adresse d’une cellule ou d’une plage en texte.
Exemple :

MsgBox Range("B3").Address ' Affiche "$B$3"

d) Autres propriétés utiles

Interior.Color : Modifie la couleur de fond d'une cellule.

Range("A1").Interior.Color = vbYellow ' Colore A1 en jaune

Font.Bold : Met le texte en gras.
```
Range("A1").Font.Bold = True
```

3. Utilisation des objets `Worksheets()` et `Workbooks()`

a) `Worksheets()`

Référence une feuille de calcul spécifique dans un classeur.
Syntaxe : Worksheets("NomFeuille") ou Worksheets(Index)

Exemple :

Worksheets("Feuil1").Range("A1").Value = "Feuil1" ' Écrit dans Feuil1
Worksheets(2).Range("A1").Value = "Deuxième feuille" ' Écrit dans la 2e feuille

b) `Workbooks()`

Référence un classeur spécifique ouvert dans Excel.
Syntaxe : Workbooks("NomFichier.xlsx")

Exemple :

Workbooks("Classeur1.xlsx").Worksheets("Feuil1").Range("A1").Value = "Bonjour"

c) Variabiliser le classeur et la feuille

Pour rendre le code plus dynamique, vous pouvez stocker les objets Workbook et Worksheet dans des variables.

Exemple :

Dim MonClasseur As Workbook
Dim MaFeuille As Worksheet

Set MonClasseur = Workbooks("Classeur1.xlsx")
Set MaFeuille = MonClasseur.Worksheets("Feuil1")

MaFeuille.Range("A1").Value = "Dynamique"

4. Variabiliser la cellule

Les cellules et plages peuvent également être variabilisées pour plus de flexibilité.

Exemple :

Dim MaCellule As Range
Set MaCellule = Worksheets("Feuil1").Range("B2")

MaCellule.Value = "Cellule Dynamique"

Pour travailler avec plusieurs cellules :

Dim Plage As Range
Set Plage = Worksheets("Feuil1").Range("A1:A5")

Plage.Font.Bold = True ' Met en gras toutes les cellules de la plage

5. Exemples pratiques

Exemple 1 : Écrire des valeurs dans une colonne avec `Offset`

Sub RemplirColonne()
    Dim i As Integer
    For i = 1 To 10
        Range("A1").Offset(i - 1, 0).Value = i
    Next i
End Sub

Résultat :

Remplit la colonne A avec les valeurs 1 à 10.

Exemple 2 : Copier des données d’une feuille à une autre

Sub CopierDonnées()
    Dim Source As Worksheet, Destination As Worksheet

    Set Source = Worksheets("Feuil1")
    Set Destination = Worksheets("Feuil2")

    Source.Range("A1:A10").Copy Destination.Range("B1")
End Sub

Résultat :

Copie les données de A1:A10 de Feuil1 dans la colonne B de Feuil2.

Exemple 3 : Calculer la somme d’une plage et écrire le résultat

Sub SommePlage()
    Dim Somme As Double
    Dim Plage As Range

    Set Plage = Worksheets("Feuil1").Range("A1:A5")
    Somme = WorksheetFunction.Sum(Plage)

    Worksheets("Feuil1").Range("A6").Value = "Somme : " & Somme
End Sub

Résultat :

Calcule la somme des cellules A1:A5 et écrit le résultat dans A6.

6. Astuces pour manipuler les cellules et plages

Références dynamiques :

Utilisez des variables pour définir les plages et cellules.

Exemple :

Dim DerniereLigne As Long
DerniereLigne = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row

Évitez les sélections inutiles :

Plutôt que :

Range("A1").Select
Selection.Value = "Texte"

Préférez :
```
Range("A1").Value = "Texte"
```

Boucles pour les plages :

Utilisez For Each pour parcourir une plage.

Exemple :

Dim Cellule As Range
For Each Cellule In Range("A1:A5")
    Cellule.Value = Cellule.Row
Next Cellule

7. Exercice : Manipuler cellules et plages

Objectif :
- Remplissez la colonne B avec les carrés des valeurs de la colonne A (de A1 à A10).
- Colorez en jaune les cellules de la colonne B.

Solution :

Sub CalculerCarres()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 2).Value = Cells(i, 1).Value ^ 2
        Cells(i, 2).Interior.Color = vbYellow
    Next i
End Sub

Les Variables en VBA

1. Pourquoi utiliser des variables ?

2. Déclaration d'une variable

Syntaxe de base :

Exemple :

3. Types de variables vues en cours

a) String : Chaîne de caractères

b) Integer : Entier

c) Double : Nombre décimal

d) Boolean : Valeur Vrai/Faux

e) Worksheet : Objet Feuille de calcul

f) Workbook : Objet Classeur

4. Portée des variables (non vu en cours)

5. Bonne gestion des variables

6. Exemples pratiques

Exemple 1 : Calcul avec différentes variables

Exemple 2 : Manipuler une feuille spécifique

Exemple 3 : Décider avec un Boolean

7. Exercice : Variables

Manipulation des cellules et des plages en VBA

1. Différence entre Cells() et Range()

Cells()

Range()

2. Propriétés essentielles

a) Value

b) Offset

c) Address

d) Autres propriétés utiles

3. Utilisation des objets Worksheets() et Workbooks()

a) Worksheets()

b) Workbooks()

c) Variabiliser le classeur et la feuille

4. Variabiliser la cellule

5. Exemples pratiques

Exemple 1 : Écrire des valeurs dans une colonne avec Offset

Exemple 2 : Copier des données d’une feuille à une autre

Exemple 3 : Calculer la somme d’une plage et écrire le résultat

6. Astuces pour manipuler les cellules et plages

7. Exercice : Manipuler cellules et plages

1. Différence entre `Cells()` et `Range()`

`Cells()`

`Range()`

a) `Value`

b) `Offset`

c) `Address`

3. Utilisation des objets `Worksheets()` et `Workbooks()`

a) `Worksheets()`

b) `Workbooks()`

Exemple 1 : Écrire des valeurs dans une colonne avec `Offset`