Créer un graphique radar, Excel VBA

Créer un graphique radar, Excel VBA

Voici un code détaillé en VBA pour créer un graphique radar dans Excel, avec une explication en français.
Étapes pour créer un graphique radar en utilisant VBA :
1. Définir la plage de données : Vous devez avoir des données à tracer sur le graphique radar. Typiquement, ces données doivent être sous forme de tableau, avec des catégories comme en-têtes de ligne ou de colonne et des valeurs comme points de données.
2. Insérer un objet graphique : En utilisant VBA, nous insérons un nouveau graphique dans la feuille de calcul, que nous formaterons ensuite en graphique radar.
3. Lier le graphique aux données : Une fois l’objet graphique créé, nous le lierons à une plage de données spécifique qui contient les valeurs à tracer.
4. Personnaliser le graphique : Vous pouvez personnaliser l’apparence du graphique radar, comme ajouter des titres, changer les couleurs, ajuster les échelles des axes, etc.
Code VBA pour créer un graphique radar :

Sub CreerGraphiqueRadar()
    ' Déclaration des variables nécessaires
    Dim chartObj As ChartObject
    Dim chartRange As Range
    Dim ws As Worksheet
    ' Définir la feuille de calcul où le graphique sera créé
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Définir la plage de données pour le graphique radar
    ' Exemple : Les données sont dans les cellules A1:B6 (Catégories en colonne A et valeurs en colonne B)
    Set chartRange = ws.Range("A1:B6")
    ' Créer un nouvel objet graphique
    Set chartObj = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    ' Définir le type de graphique à Radar
    chartObj.Chart.ChartType = xlRadar
    ' Lier le graphique à la plage de données
    chartObj.Chart.SetSourceData Source:=chartRange
    ' Personnaliser le titre du graphique
    chartObj.Chart.HasTitle = True
    chartObj.Chart.ChartTitle.Text = "Exemple de graphique Radar"
    ' Personnaliser les axes du graphique
    With chartObj.Chart.Axes(xlCategory)
        .HasTitle = True
        .AxisTitle.Text = "Catégories"
    End With
    With chartObj.Chart.Axes(xlValue)
        .HasTitle = True
        .AxisTitle.Text = "Valeurs"
    End With
    ' Options de formatage supplémentaires (facultatif)
    chartObj.Chart.PlotArea.Format.Fill.ForeColor.RGB = RGB(255, 255, 255) ' Définir la couleur de fond
    ' Facultatif : Formatage des séries du graphique radar
    With chartObj.Chart.SeriesCollection(1)
        .Border.Color = RGB(0, 0, 255) ' Changer la couleur de la bordure
        .Format.Line.Weight = 2 ' Modifier l'épaisseur de la ligne
    End With
    ' Afficher un message lorsque le graphique est créé
    MsgBox "Graphique Radar créé avec succès !"
End Sub

Explication du code :
1. Déclaration des variables :

• chartObj : Ce sera l’objet graphique qui sera créé dans la feuille.
• chartRange : Cela définit la plage de données qui sera utilisée pour le graphique. Vous pouvez ajuster cette plage en fonction de l’emplacement de vos données.
• ws : L’objet feuille de calcul où le graphique sera inséré.

2. Définir la feuille de calcul :

• La ligne Set ws = ThisWorkbook.Sheets("Sheet1") sélectionne la feuille « Sheet1 ». Modifiez cette ligne si vos données se trouvent dans une autre feuille.

3. Création du graphique :

• Set chartObj = ws.ChartObjects.Add(...) crée un nouvel objet graphique et l’insère dans la feuille à une position donnée, avec une largeur et une hauteur spécifiées.

4. Type de graphique :

• chartObj.Chart.ChartType = xlRadar définit le type de graphique en radar.

5. Lier les données au graphique :

• chartObj.Chart.SetSourceData Source:=chartRange lie le graphique à la plage de données définie précédemment.

6. Personnalisation des titres :

• Le code définit le titre du graphique et les titres des axes avec chartObj.Chart.HasTitle = True et des lignes similaires pour les axes.

7. Formatage supplémentaire :

• Vous pouvez personnaliser davantage l’apparence du graphique, par exemple en changeant la couleur de la bordure et l’épaisseur de la ligne des séries du graphique radar.

Comment l’utiliser :
1. Ouvrez Excel, appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
2. Insérez un nouveau module (Insertion > Module).
3. Collez le code dans le module.
4. Fermez l’éditeur VBA et exécutez la macro (Alt + F8, sélectionnez CreerGraphiqueRadar et cliquez sur Exécuter).
Exemple de données :

Dans cet exemple, la plage de données A1:B6 sera tracée sur le graphique radar.
Ce code vous permet de créer un graphique radar de base, mais vous pouvez l’améliorer en ajustant les formats, couleurs et autres propriétés selon vos besoins spécifiques.