Tableau : Non répétition si même donnée

Bonjour à tous

Je me permet la création de ce sujet car je bloque sur la création d'un graphique.

Je penses que ma question est relativement simple, vous moquez pas

Voila le souci (en résumé) :

Colone A Colone B

ville1 1

ville3 2

ville1 1

ville2 3

ville2 2

ville1 2

Je voudrais créer, à partir de cette serie, un graphique m'indiquant par exemple : Ville1 = 4 , Ville2 = 5, Ville3 = 3.

Le graphique affichera alors que la ville2 > Ville1 > Ville3. Bref, vous saisissez.

Le souci que j'ai étant que le graphique, à juste titre sachant que j'oubli quelque chose, me créer une barre / ligne, et je voudrais qu'il prenne en compte que 3 barres, pour les trois villes, en associant le tout à la somme de la colonne B correspondante.

.....5

.4 .I

.I .I .3

.I .I .I

.I .I .I

.I .I .I

vill1 V2 V3

J'espère avoir été assez explicite....

Merci d'avance pour votre aide

edit : je joints une capture d'écran d'explique, plus parlante peut être...

Bonjour et bienvenue,

il serait + facile de t'aider avec un fichier

Amicalement

Claude

Très bien,

Voici donc ci-joint un fichier tel que dans l'exemple :

re,

Voir colonnes "D:E", d'où est tiré le graphique,

ces colonnes pourraient être masquées

Amicalement

Claude

En effet, merci beaucoup pour la solution qui va me débloquer dans mon travail.

re,

çà pourrait s'automatiser, si tu change ou ajoute des villes

dis-nous si besoin

Amicalement

Claude

Re,

Ca s'automatisera sachant que j'ai retirer le "$" (=SOMMEPROD(($A$2:A25=D2)*($B$2:B25)) non ?

re,

Avec les données sur une autre feuille

çà fait + propre

essaye de supprimer "toto" dans "Données" et clique le bouton

Sub MiseAjour()
Dim Lg%, Lg2%
    Application.ScreenUpdating = False
    With Sheets("Données")
        Lg = .Range("a65536").End(xlUp).Row

        '-- sans doublons Ville --
        .Range("a1:a" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        .Range("o1:o2"), CopyToRange:=Sheets("Graph").Range("b1"), Unique:=True
    End With

    With Sheets("Graph")
        '-- tri --
        .Columns("b").Sort Key1:=.Range("b1"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False

        '-- formule --
        .Range("c2:c" & Lg).ClearContents
            Lg2 = .Range("b65536").End(xlUp).Row
        Range("c2:c" & [b65000].End(xlUp).Row) _
        = "=SUMPRODUCT((Données!$a$2:$a$" & Lg & "=b2)*(Données!$b$2:$b$" & Lg & "))"

        '-- graph --
        With ActiveSheet.ChartObjects("Graphique 1").Chart
            .SetSourceData Source:=Range("b1:c" & Lg2)
        End With
    End With
End Sub

Bonne suite

Claude

Je viens de tester, merci beaucoup

C'est vrais que dans l'idée, c'est plus propre.