Plage de données conditionnée pour graphique [Résolu]

[Tomuscz]

Bonjour à tous,
J'aurais besoin d'un coup de main s'il vous plait. En effet, je souhaite réaliser un graphique sachant que l'étendue de la plage de données que doit traiter le graphique n'est pas connue.
En fait en fonction des données dans le fichier nous allons avoir plus ou moins de lignes à traiter dans le graphique.
J'ai donc cherché à créer une variable (LignesTableau) qui compte combien il y a de lignes dans mon tableau pour trouver la fameuse étendue (le + 4 est du au fait qu'il y ai 4lignes de passées pour le titre qui viendra après)
Or VBA n'a pas l'air d'aimer ma syntaxe (celle que je vous ai mis en rouge).
Je pense que je vais avoir le même probleme pour la légende des abscisses en vert j'ai "=Calcul!R6C1:R125C1" et il me faudrait un truc du genre "=Calcul!R6C1:RLignesTableauC1".
J'espère que vous allez pouvoir m'aider, merci d'avance

PS : je vous file la partie de ma macro concernée.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
LignesTableau = Application.CountA(Range("A1:A65536")) + 4
    ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(5, 1), Cells(LignesTableau, 4)), , xlNo).Name = _
        "Liste1"

    Sheets("Calcul").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Calcul").Range(Cells(6, 4), Cells(LignesTableau, 4)), PlotBy _
        :=xlColumns
' En fait quand je fais Range("D6:D125") ca marche nickel sauf qu'il n'y aura pas toujours de données jusque la case 125, il me faudrait un truc en fonction de LignesTableau 

    ActiveChart.SeriesCollection(1).XValues = "=Calcul!R6C1:R125C1"
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Analyse des Ecarts"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Sous Chapitres"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Heures"
    End With

[Krovax]

Premièrement utilise les balsie code pour ton code. Le premier poste du forum comporte un lien qui t'expliquera comment faire. Et édite ton message pour les rajouter ca évitera aux modérateur de perdre leur temps a le faire

Essaye de faire ca

Code :

 Sheets("Calcul").Range("D6:D" & LignesTableau)

au lieu de

Code :

Range("D6;D125")

car tu présice la feuills pour le range (c'est bien) mais pas pour les cells (c'est moins bien )

[mapeh]

Bonjour,

dans quelle feuille se situe tes données? (la feuille sur laquelle tu calcules LignesTableau ?)

Est-ce qu'elles sont dans la feuille "Calculs"?

[Tomuscz]

oui c'est bien dans la feuille "calcul"


Et pardon pour la balise code, j'ignorais ça....

Merci Krovax,

le

Code :

Sheets("Calcul").Range("D6:D" & LignesTableau)

marche très bien,

il ne me reste plus qu'à comprendre comment écrire autrement le

Code :

"=Calcul!R6C1:R125C1"

pour pouvoir remplacer le 125 par LignesTableau

[Krovax]

Le mot magique concaténation (demande a google)
en VBA &

Code :

"=Calcul!R6C1:R" & LignesTableau & "C1"

& permet de coller des chaine de carctère ensemble ou a des variable

Code :

1
2
3
4
5
6
 
i=5
j=3
msgbox "i vaut " & i & "!!"
msgbox "i x j = " & i*j
msgbox "maintenant " & "tu as compris"

[Tomuscz]

Super, merci tout le monde, ca marche nickel !

Je peux poser une autre question derrière ou c'est pas préférable ?
C'est au sujet d'un Range, je voudrais faire un Range d'une seule cellule, c'est pas possible ca ?

du genre

Code :

Range(Cells(5,x))

avec mon x qui est itéré par un compteur

[Krovax]

virez le range et garde le cell (ca ce comporte de la meme manière)

Code :

cells(5,x)

si tu veux absolumment mettre un range (mais c'est pas vraiment utile)

Code :

range(cells(5,x),cells(5,x))

et il vaux mieu se limiter a 1 poste = 1 question