Créer une amélioration de la plage dynamique, Excel VBA

Créer une amélioration de la plage dynamique, Excel VBA

Voici un code VBA détaillé pour créer une plage dynamique dans Excel, accompagné d’une explication étape par étape. 

Code VBA pour Créer une Plage Dynamique 

Sub CreateDynamicRange() 
    ' Définir la variable de la feuille de calcul 
    Dim ws As Worksheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Changez "Sheet1" par le nom de la feuille sur laquelle vous travaillez 
    ' Définir la cellule de départ de la plage 
    Dim startCell As Range 
    Set startCell = ws.Range("A1") ' Cellule de départ de la plage dynamique 
    ' Trouver la dernière ligne avec des données dans la colonne A 
    Dim lastRow As Long 
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
    ' Trouver la dernière colonne avec des données dans la ligne 1 
    Dim lastColumn As Long 
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 
    ' Créer la plage dynamique de la cellule de départ à la dernière ligne et colonne utilisées 
    Dim dynamicRange As Range 
    Set dynamicRange = ws.Range(startCell, ws.Cells(lastRow, lastColumn)) 
    ' Optionnel : Définir un nom pour la plage dynamique 
    ws.Names.Add Name:="PlageDynamique", RefersTo:=dynamicRange 
    ' Afficher l'adresse de la plage dynamique dans la fenêtre immédiate (Ctrl + G pour la voir) 
    Debug.Print "Adresse de la plage dynamique : " & dynamicRange.Address 
End Sub

Explication du Code : 

1. Définir la Feuille de Calcul : 

• Dim ws As Worksheet : Déclare une variable pour la feuille de calcul sur laquelle nous allons travailler. 
• Set ws = ThisWorkbook.Sheets(« Sheet1 ») : Définit la feuille de calcul à « Sheet1 ». Vous pouvez remplacer « Sheet1 » par le nom de votre feuille. 

2. Cellule de Départ de la Plage : 

• Dim startCell As Range : Déclare une variable pour la cellule de départ de la plage dynamique. 
• Set startCell = ws.Range(« A1 ») : Définit que la plage dynamique commence à la cellule A1. Vous pouvez changer cette référence à toute autre cellule de départ. 

3. Trouver la Dernière Ligne Utilisée : 

• Dim lastRow As Long : Déclare une variable pour la dernière ligne avec des données. 
• lastRow = ws.Cells(ws.Rows.Count, « A »).End(xlUp).Row : Trouve la dernière ligne utilisée dans la colonne A en partant du bas de la feuille (avec ws.Rows.Count) et en remontant (End(xlUp)). 

4. Trouver la Dernière Colonne Utilisée : 

• Dim lastColumn As Long : Déclare une variable pour la dernière colonne avec des données. 
• lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column : Trouve la dernière colonne utilisée dans la première ligne. Cela commence à partir de la colonne la plus à droite et se déplace vers la gauche (End(xlToLeft)). 

5. Créer la Plage Dynamique : 

• Dim dynamicRange As Range : Déclare la variable pour la plage dynamique. 
• Set dynamicRange = ws.Range(startCell, ws.Cells(lastRow, lastColumn)) : Définit la plage dynamique à partir de startCell (A1) jusqu’à la cellule qui correspond à la dernière ligne et colonne utilisées. 

6. Optionnel : Définir un Nom pour la Plage Dynamique : 

• ws.Names.Add Name:= »PlageDynamique », RefersTo:=dynamicRange : Cette ligne crée un nom pour la plage dynamique appelé PlageDynamique. Vous pouvez utiliser ce nom dans des formules, des graphiques ou ailleurs dans Excel. 

7. Sortie dans la Fenêtre Imédiate : 

• Debug.Print « Adresse de la plage dynamique :  » & dynamicRange.Address : Affiche l’adresse de la plage dynamique dans la fenêtre immédiate de l’éditeur VBA (accessible avec Ctrl + G). 

Comment Ça Fonctionne : 

• Ce code ajuste automatiquement la plage pour s’adapter aux données présentes dans les lignes et colonnes. Par exemple, si de nouvelles lignes sont ajoutées dans la colonne A, la variable lastRow sera mise à jour pour inclure ces nouvelles lignes. 
• La plage est nommée PlageDynamique afin que vous puissiez facilement y faire référence dans Excel, que ce soit dans des formules (comme =SOMME(PlageDynamique)) ou dans des graphiques. 
• Cette plage dynamique se met à jour automatiquement si des données sont ajoutées ou supprimées. 

Personnalisation Avancée : 

• Plusieurs Colonnes : Si vous souhaitez que la plage dynamique s’étende sur plusieurs colonnes, vous pouvez ajuster la manière de calculer lastColumn et définir la cellule de départ en conséquence. 
• Plage Fixe sur une Ligne ou une Colonne : Si vous souhaitez que la plage soit fixe sur une ligne ou une colonne spécifique, vous pouvez ajuster les calculs pour la dernière ligne ou colonne de manière appropriée. 

Ce code vous permet de créer une plage dynamique puissante dans Excel à l’aide de VBA, qui s’adapte facilement aux modifications de données.