Créer une sélection de plage dynamique, Excel VBA

Créer une sélection de plage dynamique, Excel VBA
Voici une explication détaillée et un code VBA sur la façon de créer une sélection de plage dynamique dans Excel. Une plage dynamique est utile lorsque vous avez des données qui peuvent croître ou diminuer, et que vous souhaitez travailler avec ces données de manière dynamique dans votre code VBA.
Concept :
Une plage dynamique est une plage de cellules qui ajuste automatiquement sa taille en fonction des données présentes dans celle-ci. L’avantage principal d’utiliser une plage dynamique est qu’elle s’adapte à toute modification des données (ajout ou suppression de lignes/colonnes), de sorte que votre code n’a pas besoin d’être mis à jour manuellement lorsque la plage change.
Étapes pour créer une plage dynamique en VBA :
1. Identifier la plage : Nous devons d’abord définir le point de départ de la plage (généralement l’en-tête ou la première cellule) et identifier combien de lignes et de colonnes contiennent des données.
2. Utiliser les propriétés CurrentRegion ou UsedRange : Ces deux propriétés peuvent être utilisées pour obtenir la plage dynamique. CurrentRegion sélectionnera la plage autour d’une cellule spécifiée qui forme un rectangle de cellules non vides, et UsedRange donnera la plage totale où des données existent.
3. Adapter les lignes/colonnes vides : Assurez-vous que si des lignes ou colonnes vides se trouvent au milieu de vos données, elles sont gérées correctement.
Exemple de code VBA :
Ce code montre comment créer une plage dynamique en fonction d’une cellule de départ, et il ajustera automatiquement la plage en fonction des données.

Sub CreerPlageDynamique()
    Dim ws As Worksheet
    Dim plageDynamique As Range
    Dim derniereLigne As Long
    Dim derniereColonne As Long
    ' Définir la feuille de calcul (modifier si nécessaire)
    Set ws = ThisWorkbook.Sheets("Feuille1")
    ' Trouver la dernière ligne et la dernière colonne en fonction des données de la feuille
    derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Trouver la dernière ligne dans la colonne A
    derniereColonne = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' Trouver la dernière colonne dans la ligne 1
    ' Définir la plage dynamique de A1 jusqu'à la dernière ligne et colonne utilisée
    Set plageDynamique = ws.Range(ws.Cells(1, 1), ws.Cells(derniereLigne, derniereColonne))
    ' Optionnel : Vous pouvez maintenant travailler avec la plage dynamique, par exemple, la mettre en surbrillance
    plageDynamique.Select
    ' Afficher une boîte de message pour afficher l'adresse de la plage dynamique
    MsgBox "La plage dynamique est : " & plageDynamique.Address
End Sub

Explication du code :
1. Définir la référence de la feuille de calcul :
Set ws = ThisWorkbook.Sheets("Feuille1")
Cette ligne assigne la feuille de calcul Feuille1 à la variable ws. Vous pouvez remplacer "Feuille1" par le nom de la feuille de calcul où vous souhaitez définir la plage dynamique.
2. Trouver la dernière ligne et colonne :
derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Cette ligne trouve la dernière ligne utilisée dans la colonne « A ». La méthode .End(xlUp) se déplace vers le haut à partir de la dernière ligne de la feuille et s’arrête à la première cellule non vide. Cela permet d’éviter les lacunes dans les données.
derniereColonne = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
Cette ligne trouve la dernière colonne utilisée dans la ligne 1. La méthode .End(xlToLeft) se déplace vers la gauche à partir de la dernière colonne et s’arrête à la première cellule non vide de la ligne 1.
3. Créer la plage dynamique :
Set plageDynamique = ws.Range(ws.Cells(1, 1), ws.Cells(derniereLigne, derniereColonne))
Ici, la plage dynamique est définie de la cellule A1 à la cellule correspondant à la dernière ligne et colonne des données. La plage s’ajustera dynamiquement à mesure que les données croissent ou diminuent.
4. Utiliser la plage dynamique :
plageDynamique.Select
Cette ligne sélectionne la plage dynamique afin que vous puissiez la voir sur la feuille de calcul. Vous pouvez remplacer cette ligne par toute autre opération que vous souhaitez effectuer, comme copier les données, formater, etc.
5. Boîte de message :
MsgBox "La plage dynamique est : " & plageDynamique.Address
Cette ligne affiche une boîte de message avec l’adresse de la plage dynamique, afin que vous puissiez confirmer quelle plage a été sélectionnée.
Points clés :

• Ajustement dynamique : La plage s’ajustera toujours à la taille actuelle des données, que vous ajoutiez ou supprimiez des lignes ou des colonnes.
• Flexibilité : Vous pouvez remplacer l’opération de Range par tout autre code VBA pour manipuler les données dans cette plage dynamique.
• Lacunes dans les données : Si vous avez des lacunes dans vos données (par exemple, des lignes ou colonnes vides), vous devrez peut-être ajuster votre approche, comme boucler à travers la plage pour trouver la cellule réelle contenant des données.

Conclusion :
Ce code VBA fournit une méthode puissante pour créer une sélection de plage dynamique, ce qui rend vos macros plus flexibles et adaptables à différents ensembles de données. Vous pouvez modifier la logique pour répondre à des besoins spécifiques, tels que la définition de plages basées sur des critères particuliers ou le travail avec plusieurs feuilles de calcul.