Discussion :

[marie33000]

Bonjour tous le monde,

Je souhaite faire un diagramme deux D à l'aide d'un bouton sur mon userform.
En abscisse: les valeurs de ma colonne A (type double)
En ordonnée: les valeurs de ma colonne G (pourcentage)

J'ai utilisé l'enregistreur de macro, mais ça ne me donne pas ce que je veux. J'obtiens des doubles barres alors que j'aimerais ceci:

http://www.openingnewcaledonia.ca/icons/diagramme.jpg

Si quelqu'un aurait un bout de code pouvant m'aider ça serait super.

Merci par avance

[Krovax]

J'ai utilisé l'enregistreur de macro, mais ça ne me donne pas ce que je veux. J'obtiens des doubles barres alors que j'aimerais ceci:

a mon avis quand tu as utilisé l'enregistreur tu na tout simplement pas fait le bon graphique

Si tu as des double barre c'est que tu as deux séries il faut que tu fasses une seule série mais que tu renseigne les étiquette de l'axe des abscisse (ou un truc comme ca)

Moi j'obtient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("A1"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Feuil2!R34C2:R41C2"
    ActiveChart.SeriesCollection(1).Values = "=Feuil2!R34C3:R41C3"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

après a toi de rensuigner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveChart.SeriesCollection(1).XValues = "=Feuil2!R34C2:R41C2"

R corespond au numéro de ligne C a celui de colonne
mes plages sont de la ligne 34 colonne 2 a ligne 41 colonne 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    ActiveChart.SeriesCollection(1).Values = "=Feuil2!R34C3:R41C3"

[DeaD78]

Salut,

En effet, tu t'es bien trompée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:B5"), PlotBy:= _
        xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R1C1:R5C1"
    ActiveChart.SeriesCollection(1).Name = "=""Test"""
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Test"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Colonne A"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Colonne B"
    End With
    ActiveChart.HasDataTable = False

Ca marche au poil comme ça. Ta colonne G est ma colonne B.

Pour info, dans l'onglet "Plage de données", tu ne dois mettre que ta colonne G. Après, tu dois switcher sur l'onglet "Série". Dans le champ "Etiquette de l'axe des abscisses", tu dois mettre ta colonne A.

Bref, retour à l'enregistreur

[marie33000]

Merci pour vos réponses, ça fonctionne
Par contre serait il possible d'intégrer à ce diagramme plusieurs séries et de les différencier grâce à une couleur différente ?
Je dispose de plusieurs checkbox:
-a
-b
-c
-d
-e

En sélectionnant le a j'aimerais qu'il ne m'affiche que le spectre provenant des données de "a" etc etc
Si je coche a et b alors j'aimerais qu'ils me mettent les deux.
Merci beaucoup