Bonjour,

J'ai créé une petite macro qui me permet de sélectionner un range non vide :

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
Public Sub SelectCcy()
 
    Dim Counter
    Counter = 0
    Sheets("Currency").Select
    Range("G6").Select
 
    While Selection.Offset(1, 0).Value <> ""
       Selection.Offset(1, 0).Select
       Counter = Counter + 1
    Wend
    Range("G6").Select
    Range(Selection, Selection.Offset(Counter, 0)).Select
    Range(Selection, Selection.Offset(0, 1)).Select
 
End Sub
Bon je pense que c'est pas le plus optimal mais ça marche...

Ensuite je dois m'assurer que mes graphiques pointent bien sur toutes les bonnes données, qui sont basiquement toutes les données que j'ai sélectionné avec la macro SelectCcy (je dois faire cela car les datas sont liées à une database qui parfois retourne plus ou moins de lignes.).

Avec le macro recorder, j'ai ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub Macro2()
'
    ActiveChart.SetSourceData Source:=Sheets("Currency").Range("G6:H8"), PlotBy _:=xlColumns
End Sub
Comme je le disais, le Range(G6:H8) est bien ce que j'ai comme range sélectionné dans ma macro SelectCcy.

Comment donc faut-il s'y prendre pour combiner cela, pour en fait lui dire

ActiveChart.SetSourceData Source:=Sheets("Currency").MaSelectionDeLaMacroDAvant ???????

Encore une fois je pense que ça doit vous paraître bien simple mais quand on débute...


merci bcp d'avance !