Bulletin Etudiant

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'436
Appréciations reçues : 545
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 21 février 2019, 19:07

Re,
Les 2 procédures VBA sont attachées au fichier xls.
Pour les visualiser : ALT F11, Module1
Cdlt.
Sub Create_Radar()
Dim ws As Worksheet, objChart As ChartObject, rCell As Range
    Set ws = ActiveSheet
    Set rCell = ws.Cells(9, 2)
    Application.ScreenUpdating = False
    On Error Resume Next
    ws.ChartObjects("RADAR_COMPETENCES").Delete
    On Error GoTo 0
    Set objChart = ws.ChartObjects.Add(Left:=rCell.Left, Top:=rCell.Top, Width:=185, Height:=107)
    objChart.Name = "RADAR_COMPETENCES"
    With objChart.Chart
        .ChartType = xlRadar
        .HasLegend = False
        .HasTitle = False
        .SetSourceData Source:=ws.Range("B10:C14")
        With .Axes(xlValue)
            .MinimumScale = 0
            .MaximumScale = 5
            .MajorUnit = 1
            .MinorUnit = 0.5
        End With
    End With
End Sub

Sub Delete_Radar()
Dim ws As Worksheet, objChart As ChartObject
    Set ws = ActiveSheet
    Application.ScreenUpdating = False
    On Error Resume Next
    ws.ChartObjects("RADAR_COMPETENCES").Delete
    On Error GoTo 0
End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Y
YG_LY
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 20 février 2019
Version d'Excel : 2016

Message par YG_LY » 21 février 2019, 19:32

Donc si j'ai bien compris ton message, je peux exporter module1 dans ma matrice réelle, je retrouverai ta macro magique

Sans avoir l'air d’abuser pourrait-on faire en sorte que dans cette macro en sélectionnant le radar on lui dise d’être en police 7

Cordialement
Yves
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message