XL 2016 tableau de bord dynamique

ami1 · 12 Décembre 2023

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 · 12 Décembre 2023

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 · 13 Décembre 2023

sylvanu à dit:
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 · 13 Décembre 2023

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.

ami1 · 13 Décembre 2023

sylvanu à dit:

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 · 13 Décembre 2023

ami1 à dit:
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 · 13 Décembre 2023

sylvanu à dit:
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 · 13 Décembre 2023

ami1 à dit:
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 · 13 Décembre 2023

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

XL 2016 tableau de bord dynamique

ami1

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ami1

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

ami1

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ami1

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

ami1

XLDnaute Nouveau

Discussions similaires