XL 2016 tableau de bord dynamique

[ami1]

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]

Bonsoir l' Ami, et bienvenu sur XLD,
Sans un petit fichier test représentatif et anonyme, avec ce que vous voulez exactement, difficile de répondre.

 

[ami1]

Bonsoir l' Ami, et bienvenu sur XLD,
Sans un petit fichier test représentatif et anonyme, avec ce que vous voulez exactement, difficile de répondre.

 

[sylvanu]

Bonjour,
Un essai en PJ avec :

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.

 

[ami1]

Bonjour,
Un essai en PJ avec :

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]

mais je sais pas comment changer les atelier a partir de combobox1

De quel Combobox parlez vous ?
Dans mon code vous n'en n'avez pas.
Sur la feuille TDB il suffit de cliquer sur un des 5 items à gauche pour actualiser les courbes.

 

[ami1]

De quel Combobox parlez vous ?
Dans mon code vous n'en n'avez pas.
Sur la feuille TDB il suffit de cliquer sur un des 5 items à gauche pour actualiser les courbes.

Oui mais ils me demande que les Atelier doit changer à partir du combobox tout le travail doit réaliser dans l'userform

 

[sylvanu]

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.

 

[ami1]

je suis vraiment désoler pour le manque de données mais généralement merci beaucoup