Créer une plage dynamique liée aux compétences en innovation, Excel VBA

Créer une plage dynamique liée aux compétences en innovation, Excel VBA

Voici un code VBA détaillé pour créer une plage dynamique liée aux compétences en innovation (Innovation Skills). Cette approche permet de définir une plage qui s’adapte automatiquement à la taille des données présentes dans une feuille de calcul, sans avoir besoin de mettre à jour manuellement la plage chaque fois que les données changent. 

Explication : 

1. Plage Dynamique : Une plage dynamique est une plage de cellules dont la taille s’ajuste automatiquement lorsque les données sont ajoutées ou supprimées. Cela permet d’éviter de modifier manuellement la plage de données à chaque mise à jour. 
2. Cas d’utilisation des compétences en innovation : Imaginons que vous ayez des données sur les « Compétences en Innovation » dans une feuille de calcul, où chaque ligne représente une compétence différente ou une évaluation de l’innovation d’un individu. Vous pouvez vouloir utiliser cette plage dynamique pour effectuer des calculs, des mises en forme conditionnelles ou créer des graphiques sans avoir à modifier constamment la plage de référence. 

Approche VBA : 

• Utilisation de l’objet Range en VBA pour créer une plage dynamique. 
• Les méthodes End(xlDown) ou End(xlUp) permettent de trouver la dernière ligne de données dans une colonne. 
• La fonction Offset permet d’étendre la plage dynamique en fonction du nombre de lignes/colonnes disponibles. 

Code VBA : 

Sub CreerPlageDynamiqueCompetencesInnovation() 
    Dim ws As Worksheet 
    Dim derniereLigne As Long 
    Dim derniereColonne As Long 
    Dim plageDynamique As Range 
    ' Définir la feuille de travail active (vous pouvez spécifier un nom de feuille) 
    Set ws = ThisWorkbook.Sheets("Sheet1") 
    ' Trouver la dernière ligne avec des données dans la colonne A (supposons que les données commencent dans la colonne A) 
    derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
    ' Trouver la dernière colonne avec des données dans la ligne 1 (supposons que les données commencent dans la ligne 1) 
    derniereColonne = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 
    ' Créer une plage dynamique de A1 jusqu'à la dernière ligne et colonne 
    Set plageDynamique = ws.Range(ws.Cells(1, 1), ws.Cells(derniereLigne, derniereColonne)) 
    ' Appliquer un nom à la plage pour faciliter la référence ultérieure 
    plageDynamique.Name = "PlageCompetencesInnovation" 
    ' Optionnel : Vous pouvez formater ou effectuer des opérations sur la plage 
    ' Par exemple, mettre le texte en gras 
    plageDynamique.Font.Bold = True  
    ' Afficher un message pour confirmer que la plage a été créée 
    MsgBox "La plage dynamique 'PlageCompetencesInnovation' a été créée de " & plageDynamique.Address, vbInformation 
End Sub

Explication du Code : 

1. Set ws = ThisWorkbook.Sheets(« Sheet1 ») : 

• Cette ligne fait référence à la feuille de calcul dans laquelle se trouvent vos données. Changez « Sheet1 » par le nom approprié de la feuille si nécessaire. 

2. Trouver la dernière ligne avec des données dans la colonne A : 

• derniereLigne = ws.Cells(ws.Rows.Count, « A »).End(xlUp).Row : Cette ligne trouve la dernière ligne utilisée dans la colonne A (vous pouvez changer « A » pour toute autre colonne contenant des données). 
• xlUp simule la pression de la touche « Flèche Haut » depuis le bas de la feuille, ce qui permet de trouver la dernière cellule non vide. 

3. Trouver la dernière colonne avec des données dans la ligne 1 : 

• derniereColonne = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column : Cette ligne trouve la dernière colonne utilisée dans la ligne 1. Elle fonctionne de manière similaire à la recherche de la dernière ligne, mais de manière horizontale avec xlToLeft. 

4. Définir la plage dynamique : 

• Set plageDynamique = ws.Range(ws.Cells(1, 1), ws.Cells(derniereLigne, derniereColonne)) : Cela définit la plage dynamique à partir de la cellule A1 (coin supérieur gauche) jusqu’à la cellule en bas à droite en fonction des dernières lignes et colonnes de données. 

5. Nommer la plage dynamique : 

• plageDynamique.Name = « PlageCompetencesInnovation » : Cela donne un nom à la plage dynamique, ce qui permet de la référencer facilement ailleurs dans le classeur. 

6. Mise en forme optionnelle : 

• plageDynamique.Font.Bold = True : Cela applique un format en gras à la plage dynamique pour des fins de démonstration. Vous pouvez ajouter d’autres mises en forme selon vos besoins. 

7. Boîte de message : 

• MsgBox « La plage dynamique ‘PlageCompetencesInnovation’ a été créée de  » & plageDynamique.Address, vbInformation : Cela affiche une boîte de message confirmant que la plage dynamique a bien été créée, en affichant l’adresse de la plage. 

Utilisation : 

• Ce code s’ajustera automatiquement aux changements de la taille de vos données. Si de nouvelles lignes ou colonnes sont ajoutées ou supprimées, la plage dynamique sera mise à jour en conséquence. 
• Vous pouvez utiliser cette plage dynamique pour effectuer des calculs, créer des graphiques, ou encore l’utiliser dans des formules dans d’autres parties du classeur. 

Améliorations possibles : 

• Gestion des erreurs : Vous pouvez ajouter un contrôle pour gérer les cas où il n’y a pas de données ou si la feuille spécifiée n’existe pas. 
• Plages complexes : Si vos données sur les compétences en innovation sont réparties sur plusieurs sections non contiguës, vous pouvez adapter la logique pour définir des plages plus complexes.