1 choix plusieurs graphiques ?

Bonjour,

J'ai effectuer une synthétisation d'un gros tableau de données. Désormais j'affiche plusieurs graphiques, l'utilisateur peut à l'aide du filtre voir plusieurs facteurs.

Mon objectif serait de lier tous ces graphiques. Par exemple l'utilisateur sélectionne un "nom" et les graphiques définissent le filtre choisit.

Voici le code actuel, les graphiques sont simples. La liaison en VBA n'est peut être pas nécessaire...

Sub Macro1()
'
' Macro1 Macro

Dim start As Single

start = Timer

    ChDir "N:\xxxxxxxxxxxx"
    Workbooks.Open Filename:="N:\xxxxxxxxxxxxxx"
    Cells.Select
    Selection.Copy
    Windows("Bilan_2016.xlsm").Activate
    Worksheets("TableauSAP").Activate
    Worksheets("TableauSAP").Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Workbooks("Export.MHTML").Close

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Range("O2").FormulaR1C1 = "=IF(TableauSAP!C[-8]=""INTT ACEX"",IF(RC[-14]="""","""",IF(RC[-14]=R[-1]C[-14],IF(RC[-10]=R[-1]C[-10],0,IF(LEN(RC[-7])>=2,2,1)),0)),0)"

    Range("P2").FormulaR1C1 = "=IF(TableauSAP!C[-9]=""INTO"",IF(RC[-14]="""","""",IF(RC[-14]=R[-1]C[-14],IF(RC[-10]=R[-1]C[-10],1,"" ""),0)),"" "")"

    Range("Q2").FormulaR1C1 = _
        "=IF(RC[-4]=""Y2"",IF(ISBLANK(RC[-11]),0,IF(TableauSAP!C[-10]=""INTT ACEX"",IF(RC[-16]="""","""",IF(RC[-16]=R[-1]C[-16],IF(RC[-12]=R[-1]C[-12],0,IF([@[Début de la panne]]-[@[Terminée le]]=0,1,IF([@[Début de la panne]]-[@[Terminée le]]<0,2,1))),IF(RC[-12]=R[-1]C[-12],0,IF([@[Début de la panne]]-[@[Terminée le]]=0,1,IF([@[Début de la panne]]-[@[Terminée le]]<0,2,1)))))" & _
        ",IF(TableauSAP!C[-10]=""INTT"",IF([@[Début de la panne]]-[@[Terminée le]]=0,1,IF([@[Début de la panne]]-[@[Terminée le]]<0,2,1)),0))),0)" & _
        ""

    ActiveWorkbook.Worksheets("TableauSAP").ListObjects("Tableau1").Sort.SortFields _
        .Clear
    'filtrage par statut système / peu utile mais visuellement plus clair
    ActiveWorkbook.Worksheets("TableauSAP").ListObjects("Tableau1").Sort.SortFields _
        .Add Key:=Columns("G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("TableauSAP").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
     End With
    Sheets("Global").Select

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

MsgBox "durée du traitement: " & Timer - start & " secondes"

End Sub

Merci d'avance

bonjour

pourquoi demander à VBA ce que Excel peut faire dans 95% des cas ?

joins ton fichier ou un exemple (avec explication, sans le VBA)

on va voir si "mettre sous forme de tableau" et/ou des TCD vont convenir, avec ou sans colonne de pointage (que des gros mots, mais ne nécessitent que quelques clics au départ. Ensuite c'est auto.

Bonjour JMD,

Merci pour ta réponse, je compte me pencher dessus toute la journée.

Ci-joint une page pdf pour résumer la situation, j'espère que ce sera clair. C'est synthétisé

Merci !

PS: Utiliser Access peut être une solution ?

Ci-joint le projet au complet clairement explicité.

Toute aide est la bienvenue

Merci d'avance

re

essaye dans le TCD d'utiliser les petites flèches de tri et surtout de filtre

Merci du retour,

En soit je souhaite supprimer l'étape de choix du tri pour chaque graphique. A partir d'un liste de menu déroulant, avoir tous les graphiques qui s'adaptent en fonction de la valeur dans la case du menu déroulant.

re

clique dans le TCD, menu insertion, graphique

crée un autre graphique (ou plusieurs)

reteste les filtres du TCD

C'est sur la bonne voie, cependant tous les graphiques sont égaux.

que veux-tu afficher dans le graphique 1, dans le 2 etc. ?

Tout d'abord la partie des listes déroulantes est la plus importante... voir document ci-joint

Bonjour,

tu peux mettre tous les segments que tu veux pour que l'utilisateur choisisse.

eric

eriiic & JMD merci à vous, vous m'avez indiqué la bonne voie !