Discussion :

[usul3]

Bonjour,

Je voudrais savoir s'il est possible de selectionner avec la fonction range(), deux plages de données différentes.

Par exemple, si Plage1 est de Cells(2,1) à Cells(10,1) et Plage2 de Cells(2,3) à Cells(10,3)), est ce qu'on peut ecrire : Range(Plage1 & Plage2)

j'ai essayé mais je n'arrive pas !!!

Merci pour votre réponse !!!

[bastou93]

Bonjour,

J'espere que c'est bien ce que tu veux faire:

Code :

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

Range("A2:A10,C2:C10").Select

J'ai mis Select pour que tu voie la sélection mais met ce que tu fait comme action après

Bastien

[Philippe Tulliez]

Bonjour,
Petit exemple avec 3 plages nommées Table1, Table2, Table3

Code :

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

1
2
3
4
5
6
7
 Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil1")
 Dim rng(3) As Range
 Dim i As Byte
 Dim myCells As String
 For i = 1 To 3: Set rng(i) = Range("Table" & i): Next
 myCells = rng(1).Address & "," & rng(2).Address & "," & rng(3).Address
 Range(myCells).Select

[usul3]

Merci pour vos réponses. Mais je voudrais écrire la fonction Range () avec l'écriture 'Cells(1,1)' et non 'A1'.

Voici la ligne de code incrémentée dans ma boucle:

Code :

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

SetCourceData Source:=ThisWorkbook.Worksheets(2).Range(???), PlotBy:=xlColumns

sachant que ??? doit renvoyer à Plage1 et Plage2 (qui sont dynamiques).

Merci encore

[bastou93]

voila je pense que sa marche et colle avec ce que tu veux

Code :

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

1
2
3
4
5
6
7
dim r1 as range
dim r2 as range
 
set r1 = range(cells(2,1),cells(10,1))
set r2 = range(cells(2,3),cells(10,3))
 
range(r1.address & "," & r2.address).select

C'est quasi le meme code que corona

Bastien

[mercatog]

Bonjour

Exemple

Code :

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

1
2
3
4
5
6
7
Dim Plage As Range
 
With Sheets("Feuil2")
    Set Plage = Union(.Range(.Cells(2, 1), .Cells(10, 1)), .Range(.Cells(2, 3), .Cells(10, 3)))
End With
 
Charts(1).SetSourceData Source:=Plage, PlotBy:=xlColumns

[usul3]

Merci pour vos réponse. j'ai essayé d'intégrer vos 2 méthodes et ca a l'air de marcher, par contre il me genere deux courbes dans le graphe au lieu d'un seul. je ne comprends pas ??????

voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Worksheet (1) 
    Set Plage1 = .Range(.Cells(iX, jX), .Cells(DerniereLigne, jX))
    Set Plage2 = .Range(.Cells(iY, jY), .Cells(DerniereLigne, jY))
    Set Plage0 = Union( Plage1, Plage2)
End With
 
With graphe
    .ChartArea.Clear
    .SetSourceData Source:=Plage0, PlotBy:=xlColumns
    .ChartType = xlXYScatter
    .SeriesCollection(1).XValues = Plage1 
    .SeriesCollection(1).Values = Plage2
    .Location Where:=xlLocationAsNewSheet
 End With

[mercatog]

Code :

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

1
2
3
4
With graphe
    .SetSourceData Source:=Plage0, PlotBy:=xlColumns
    .ChartType = xlXYScatter
End With

[usul3]

Merci mercatog pour ta réponse. J'ai essayé tes lignes de codes mais ca m'a affiché toujours deux courbes sur un graphe; j'ai dû surement oublier quelque chose dans mon explication ...

Au final, j'ai essayé plusieurs combinaisons et ça marche.