XL 2016 tableau de bord dynamique

ami1

XLDnaute Nouveau
Bonjour à tous ,
je veux créer un tableau de bord dynamique qui me représente les KPI le MTTR et le cout total de maintenance de différents ateliers avec un changement d'atelier car chaque atelier à ses propres données , mais je sais pas le code VBA convenable pouvez vous m'aider s'il vous plait?
Merci d'avance
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Un essai en PJ avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B4:B8]) Is Nothing Then
        Dim L%, Lw%
        With Sheets("DO")
            L = 5: Lw = 5: [E1] = Target
            While .Cells(L, "A") <> ""
                If .Cells(L, "B") = Target Then
                    Cells(Lw, "E") = .Cells(L, "A"): Cells(Lw, "F") = .Cells(L, "C")
                    Cells(Lw, "G") = .Cells(L, "D"): Cells(Lw, "H") = .Cells(L, "E")
                    Lw = Lw + 1
                End If
                L = L + 1
            Wend
        End With
    End If
Fin:
End Sub
Il suffit de cliquer sur un item pour en voir les graphiques.
 

Pièces jointes

  • 12.xlsm
    66.9 KB · Affichages: 14

ami1

XLDnaute Nouveau
Bonjour,
Un essai en PJ avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B4:B8]) Is Nothing Then
        Dim L%, Lw%
        With Sheets("DO")
            L = 5: Lw = 5: [E1] = Target
            While .Cells(L, "A") <> ""
                If .Cells(L, "B") = Target Then
                    Cells(Lw, "E") = .Cells(L, "A"): Cells(Lw, "F") = .Cells(L, "C")
                    Cells(Lw, "G") = .Cells(L, "D"): Cells(Lw, "H") = .Cells(L, "E")
                    Lw = Lw + 1
                End If
                L = L + 1
            Wend
        End With
    End If
Fin:
End Sub
Il suffit de cliquer sur un item pour en voir les graphiques.
Très bon travail, mais je sais pas comment changer les atelier a partir de combobox1 c'est difficile de trouver un code juste
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
mais ils me demande que les Atelier doit changer à partir du combobox
Vous distillez les infos au compte goutte. C'est agaçant.
La demande initiale ne faisait état que de graph du même type que ceux en TDB.
Votre userform demande Nom, Prénom et CIN qui n'interviennent pas dans les KPI. Alors qu'en faire ?
Que signifie alors Réinitialiser ? Réinitialiser quoi ?

En PJ un dernier essai, j'ai modifié BTNAF_Click. Un clic sur Afficher montre les graphiques désirés sur la feuille TDB.
Vous n'avez plus qu'à adapter suivant vos besoins.
 

Pièces jointes

  • 12 (2).xlsm
    70.6 KB · Affichages: 33

Discussions similaires

Réponses
2
Affichages
689

Statistiques des forums

Discussions
313 258
Messages
2 096 614
Membres
106 684
dernier inscrit
ekouepatrick