Discussion :

[sat478]

Voici mon problème : je souhaite sélectionner les plages suivantes :

• colonne 2, de la 5ème ligne à la dernière ligne en partant du bas
  colonne i, de la 5ème ligne à la dernière ligne en partant du bas, i variant selon une boucle For... Next

Je dispose déjà d'une variable derniereligne me permettant de déterminer la dernière ligne de ma colonne i et une variable dernierecolonne me permettant de mettre la fin de ma boucle For... Next.

Je souhaite ensuite réaliser l'union de ces deux plages pour réaliser un graphique.

Voici mon code mais il génère une erreur sur range1 et range2

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
18
19
20
 
 
For i = 4 To dernierecolonne
 
    range1 = Range(Worksheets("Données").Cells(5, 2), Worksheets("Données").Cells(derniereligne, 2))
 
    range2 = Range(Worksheets("Données").Cells(5, i), Worksheets("Données").Cells(derniereligne, i))
 
 
    Set objRange = Union(Range("range1"), Range("range2"))
 
    Set objGraph = ThisWorkbook.Charts.Add
 
    With objGraph
            .Name = Worksheets("Données").Cells(2, i).Value
            .ChartType = xlLineMarkers
            .SetSourceData objRange, PlotBy:=Columns
            .HasTitle = True
            .ChartTitle.Text = Worksheets("Données").Cells(2, i).Value
        End With

Si quelqu'un a une idée, je suis preneur...

[Arkham46]

slt,

Essaye :

Code :

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

Set objRange = Union(range1, range2)

Rnage1 et Range2 sont déjà des objets de type range.

[Petogaz]

slt,
je pense qu'il va falloir créer un forum Excel !

[sat478]

Merci Arkham46 de ta réponse.

en effet, range1 et range2 étant déjà deux objets de type Range ta syntaxe est correcte.

Par contre, il semblerait qu'il me reste toujours un problème justement dans la définition des objets range1 et range2

[Arkham46]

slt,

le range est un object, donc essaye d'utiliser set :

Code :

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

1
2
3
    SET range1 = Range(Worksheets("Données").Cells(5, 2), Worksheets("Données").Cells(derniereligne, 2)) 
 
    SET range2 = Range(Worksheets("Données").Cells(5, i), Worksheets("Données").Cells(derniereligne, i))