XL 2013 Afficher une graphique comme comentaires

[lestoiles1]

Bonjour,

Est-il possible d'afficher une grahique comme un commentaire lorsque je clique sur la matricule?
- Dans la feuille "Resumé", il y a les matricule des employé et je veux que lorsque je clique sur une matricule, une graphique indiquant sa moyenne hebdomadiare (efficience) s'affichera.
- Une graphique et un slicer est déja disponnible dans la feuille "moyennne hebdo"
Si c'est pas possible je veux juste une graphique dans la feuille "resumé" est lorsque je clique sur une matricule son graphique s'affiche.

Merci

Lestoiles

 

[wDog66]

Bonjour,

A ma connaissance, vu le nombre de segments que vous avez et faudra mettre à jour cela me semble être une hérésie 😱

Mais peut-être est-ce que je me trompe 🤔

 

[sylvanu]

Bonjour Lestoiles, wDog,
Peut être une idée en PJ.
On clique sur un Emp.Code, et ça affiche le graphique des 5 dernières semaines.
Un clique sur une autre colonne l'efface.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 2 And Target <> "" Then
    Call commentaire(Target)
    Application.ScreenUpdating = False
    For Each Graphique In ActiveSheet.ChartObjects
        Graphique.Delete
    Next
    ActiveCell.Offset(1, 1).Select
    Sheets("Moyenne Hebdo").ChartObjects("Graphique 3").Activate
    ActiveChart.ChartArea.Copy
    Sheets("Resumé").Select
    ActiveCell.Select
    ActiveSheet.Paste
Else
    For Each Graphique In ActiveSheet.ChartObjects
        Graphique.Delete
    Next
End If
End Sub
Sub commentaire(cellule)
With Sheets("Moyenne Hebdo")
    .[F29] = cellule
    T = .Range("A2:C" & .Cells(.Cells.Rows.Count, "A").End(xlUp).Row)
    L = 30
    For i = UBound(T) To 1 Step -1
        If T(i, 1) = cellule Then
            .Cells(L, "E") = T(i, 3)
            .Cells(L, "F") = Round(T(i, 2), 0)
            L = L + 1
            If L = 35 Then Exit For
        End If
    Next i
End With
End Sub