Créer une plage dynamique pour les « Compétences en Leadership », Excel VBA

Créer une plage dynamique pour les « Compétences en Leadership », Excel VBA

Voici une explication détaillée et un exemple de code VBA pour créer une plage dynamique pour les « Compétences en Leadership » dans Excel. L’objectif est de créer une plage nommée dynamique qui s’ajuste automatiquement à mesure que de nouvelles lignes sont ajoutées ou supprimées, en fonction des données dans votre colonne « Compétences en Leadership ». 

Objectif : 

Créer une plage dynamique qui fait référence à une liste de « Compétences en Leadership » qui s’étend ou se réduit à mesure que de nouvelles données sont ajoutées ou supprimées. 

Étapes : 

1. Définir le problème : Vous avez une colonne (par exemple, la colonne A) avec une liste de compétences en leadership. Vous souhaitez créer une plage dynamique afin que lorsque vous ajoutez ou supprimez des données de cette liste, la plage s’ajuste automatiquement. 
2. Préparer la feuille de calcul : Imaginons que vous avez une liste de compétences en leadership dans la colonne A, à partir de la cellule A2, et que la liste peut croître ou se réduire au fil du temps. Vous souhaitez une plage dynamique qui s’ajuste à cette liste. 
3. Écrire le code VBA : Vous allez écrire une macro VBA qui définit une plage dynamique. Cette plage se mettra automatiquement à jour en fonction du nombre de lignes dans la colonne de données. 

Exemple de code : 

Sub CreerPlageDynamiqueCompetencesLeadership() 
    Dim ws As Worksheet 
    Dim derniereLigne As Long 
    Dim plageLeadership As Range 
    ' Définir la référence à la feuille de calcul 
    Set ws = ThisWorkbook.Sheets("Feuille1") ' Remplacer "Feuille1" par le nom réel de votre feuille 
    ' Trouver la dernière ligne avec des données dans la colonne A (où sont listées les compétences en leadership) 
    derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
    ' Définir la plage dynamique pour les compétences en leadership 
    ' Supposons que les compétences commencent à A2 et s'étendent jusqu'à la dernière ligne avec des données 
    Set plageLeadership = ws.Range("A2:A" & derniereLigne) 
    ' Créer une plage nommée dynamique via le gestionnaire de noms 
    ThisWorkbook.Names.Add Name:="CompetencesLeadership", RefersTo:=plageLeadership 
    ' Message de confirmation 
    MsgBox "La plage dynamique 'CompetencesLeadership' a été créée pour les lignes A2:A" & derniereLigne, vbInformation 
End Sub

Explication du Code : 

1. Déclaration des Variables : 

• ws est une référence à la feuille de calcul où se trouvent les données. 
• derniereLigne contient le numéro de la dernière ligne avec des données dans la colonne A. 
• plageLeadership fait référence à la plage dynamique qui sera créée. 

2. Définir la Référence à la Feuille : 

• Set ws = ThisWorkbook.Sheets("Feuille1"): Cette ligne fait référence à la feuille de calcul où la liste de compétences en leadership est située. Remplacez « Feuille1 » par le nom de votre feuille si nécessaire. 

3. Trouver la Dernière Ligne avec des Données : 

• derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row: Cette ligne trouve la dernière ligne de la colonne A contenant des données. Elle utilise la méthode End(xlUp) pour remonter depuis le bas de la feuille et trouver la première cellule non vide. 

4. Définir la Plage Dynamique : 

• Set plageLeadership = ws.Range("A2:A" & derniereLigne): Cette ligne crée une plage dynamique allant de la cellule A2 (où la liste commence) jusqu’à la dernière ligne avec des données (A & derniereLigne). 

5. Créer la Plage Nommée Dynamique : 

• ThisWorkbook.Names.Add Name:="CompetencesLeadership", RefersTo:=plageLeadership: Cette ligne crée une plage nommée dynamique appelée « CompetencesLeadership ». Cette plage se mettra à jour automatiquement lorsque des données seront ajoutées ou supprimées. 

6. Message de Confirmation : 

• MsgBox « La plage dynamique ‘CompetencesLeadership’ a été créée…: Après l’exécution de la macro, une boîte de dialogue s’affichera pour confirmer que la plage nommée a été créée avec succès. 

Comment Ça Fonctionne : 

• Chaque fois que vous ajoutez ou supprimez des compétences en leadership dans la colonne A, cette plage dynamique s’ajustera automatiquement à la nouvelle taille. La macro définit une plage de A2 à la dernière ligne contenant des données, assurant ainsi que la plage est toujours à jour. 
• La plage nommée CompetencesLeadership peut désormais être utilisée dans des formules ou comme référence dans tout le classeur. Par exemple, vous pouvez l’utiliser dans une fonction VLOOKUP, MATCH ou une liste déroulante de validation de données, et la plage sera mise à jour dynamiquement lorsque la liste des compétences changera. 

Exécution du Code : 

1. Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA. 
2. Insérez un nouveau module via Insertion > Module. 
3. Collez le code dans le module. 
4. Exécutez la macro en appuyant sur F5 ou en l’assignant à un bouton dans votre feuille de calcul. 

Ce code VBA est un outil puissant pour garantir que votre plage reste dynamique et précise, même lorsque vos données changent.