Salut a tous,

Je vais essayer de faire bref mais bien expliqué :

J'ai dés données pour 26 personnes qui représente leurs skills par exemple pour emilie :

Projet : 20, Office : 30, Technique : 25, Analyste : 15

Ces données sont classés en fonction "without stress" et "with stress" afin de pouvoir comparer les deux graphiques de la personne : voir image

Mon image du rendu visuel

Cependant je n'arrive pas a comprendre comment gérer mon code pour mes graphiques actif.
J'aimerai dans le code que j'ai deja ci dessous comprendre comment pouvoir afficher les deux graphiques en meme temps sans que l'un supprime l'autre au clique du bouton "afficher" mais que quand je clique sur un autre nom les graphiques soient supprimés et que les nouveaux pour la nouvelle personne s'affichent.

Le but étant de comparer avec stress et sans stress les deux graphiques et qu'ils soient supprimés et remplacés par les nouveaux une fois cliquer sur un autre bouton afficher

Mon code pour la premiere personne "without stress" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub withoutstress()
'
' withoutstress Macro
'
Dim Emplacement As Range
Dim Grph As ChartObject
 
    For Each Grph In ActiveSheet.ChartObjects
        Grph.Delete
    Next
 
        MonTitre = Range("A5").Value
 
        Range("B2:E2,B5:E5").Select
        Range("B5").Activate
        ActiveSheet.Shapes.AddChart2(317, xlRadarFilled).Select
        ActiveChart.SetSourceData Source:=Range("Feuil1!$B$2:$E$2,Feuil1!$B$5:$E$5")
 
        With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = MonTitre
        .Axes(xlValue).MaximumScale = 45
        End With
 
 
    Set Grph = Feuil1.ChartObjects(1)
    Set Emplacement = Range("N4:Q11")
 
    With Grph
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With
 
End Sub
mon code pour la premiere personne with stress :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub withstress()
 
Dim Emplacement1 As Range
Dim Grph1 As ChartObject
 
 
    For Each Grph1 In ActiveSheet.ChartObjects
        Grph1.Delete
    Next
 
       Range("G2:J2,G5:J5").Select
       Range("G5").Activate
    ActiveSheet.Shapes.AddChart2(317, xlRadarFilled).Select
      ActiveChart.SetSourceData Source:=Range("Feuil1!$G$2:$J$2,Feuil1!$G$5:$J$5")
 
With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = MonTitre
        .Axes(xlValue).MaximumScale = 45
        End With    
 
   Set Grph1 = Feuil1.ChartObjects(2)
   Set Emplacement1 = Range("N13:Q20")
 
   With Grph1
        .Left = Emplacement1.Left
        .Top = Emplacement1.Top
        .Height = Emplacement1.Height
        .Width = Emplacement1.Width
    End With
 
End Sub
Je peux fournir mon fichier excel si besoin