Créer des plages dynamiques, Excel VBA

Créer des plages dynamiques, Excel VBA

Voici un guide détaillé pour créer des plages dynamiques dans Excel à l’aide de VBA. Ce processus vous montre comment écrire un code VBA pour créer une plage dynamique et l’utiliser efficacement. 

Étape 1 : Ouvrir l’Éditeur VBA 

1. Ouvrez Excel et appuyez sur Alt + F11 pour ouvrir l’éditeur Visual Basic pour Applications (VBA). 
2. Dans l’éditeur VBA, vous verrez l’explorateur de projets qui liste tous vos classeurs et feuilles de travail. 

Étape 2 : Insérer un Module 

1. Dans l’éditeur VBA, faites un clic droit sur le nom de votre classeur dans le panneau Explorateur de projets. 
2. Sélectionnez Insertion > Module. Cela crée un nouveau module où vous pouvez écrire votre code. 

Étape 3 : Écrire le Code VBA 

Dans cette étape, vous allez écrire le code VBA pour définir et utiliser une plage dynamique. La plage dynamique s’adaptera automatiquement aux données présentes. 

Voici un exemple de code VBA pour créer une plage dynamique qui s’ajuste en fonction des données dans une feuille de travail : 

Sub CreerPlageDynamique() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim derniereLigne As Long 
    Dim derniereColonne As Long 
    ' Définir la feuille de travail 
    Set ws = ThisWorkbook.Sheets("Feuille1") 
    ' Trouver la dernière ligne avec des données dans la colonne A (vous pouvez changer la colonne si nécessaire) 
    derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
    ' Trouver la dernière colonne avec des données dans la ligne 1 (vous pouvez changer la ligne si nécessaire) 
    derniereColonne = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 
    ' Définir la plage dynamique 
    Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(derniereLigne, derniereColonne)) 
    ' Optionnel : Vous pouvez nommer cette plage 
    rng.Name = "PlageDynamique" 
    ' Exemple : Changer la couleur de fond de la plage dynamique en jaune 
    rng.Interior.Color = RGB(255, 255, 0) 
    ' Optionnel : Afficher un message avec l'adresse de la plage 
    MsgBox "L'adresse de la plage dynamique est : " & rng.Address 
End Sub

Explication du Code 

1. Définition de la Feuille de Travail : 

Set ws = ThisWorkbook.Sheets("Feuille1") 

Cette ligne définit la feuille sur laquelle vous travaillez (ici, « Feuille1 »). 

2. Trouver la Dernière Ligne et Colonne : 

derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
derniereColonne = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

• derniereLigne trouve la dernière ligne avec des données dans la colonne A (vous pouvez changer la colonne si nécessaire). 
• derniereColonne trouve la dernière colonne avec des données dans la ligne 1. 

3. Définir la Plage Dynamique : 

Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(derniereLigne, derniereColonne)) 

Cette ligne définit la plage dynamique à partir de la cellule A1 jusqu’à la dernière ligne et colonne trouvées. 

4. Nommer la Plage : 

rng.Name = "PlageDynamique" 

Cette ligne nomme la plage dynamique « PlageDynamique », ce qui permet de l’utiliser plus facilement dans des formules et d’autres codes VBA. 

5. Changer la Couleur de Fond : 

rng.Interior.Color = RGB(255, 255, 0) 

Cette ligne change la couleur de fond de la plage dynamique en jaune. 

6. Message avec l’Adresse de la Plage : 

MsgBox "L'adresse de la plage dynamique est : " & rng.Address 

Cette ligne affiche une boîte de message contenant l’adresse de la plage dynamique. 

Étape 4 : Utiliser la Plage Dynamique 

Une fois la plage dynamique créée, vous pouvez l’utiliser de plusieurs manières, comme : 

• Référencer la Plage dans les Formules : Vous pouvez utiliser la plage dynamique dans vos formules Excel. Par exemple, pour sommer les valeurs de la plage dynamique : 

=SOMME(PlageDynamique) 

Cela additionne toutes les valeurs dans la plage dynamique, qui s’ajustera automatiquement en fonction des données. 

• Manipuler la Plage dans VBA : Vous pouvez également faire référence à la plage dynamique dans un autre code VBA. Par exemple, pour parcourir chaque cellule de la plage et effectuer une opération sur chaque valeur : 
• Dim cellule As Range 
• For Each cellule In rng 
•     ‘ Votre code pour traiter chaque cellule 
• Next cellule 

Conclusion 

Cette méthode permet de définir et de manipuler des plages dynamiques dans Excel à l’aide de VBA. La plage s’ajustera automatiquement en fonction des données présentes dans votre feuille de travail, ce qui vous permet de gagner du temps et de rendre votre feuille de calcul plus flexible.