Adaptation formule macro

[Sang1]

Re bonjour a tous !!!

Je souhaite adapter cette formule de macro car elle est faite pour s'adapter a un certain nombre de lignes et je veux qu'elle s'adapte au nombre de colonnes.

ActiveChart.SeriesCollection(1).XValues = Sheets("traitement").Range("A3:A" & Sheets("traitement").Range("A65536").End(xlUp).Row - 1)

ActiveChart.SeriesCollection(1).Values = Sheets("traitement").Range("B3:B" & Sheets("traitement").Range("B65536").End(xlUp).Row - 1)

Dans mon cas, les valeurs de x et de y sont en ligne et non en colonne.

Merci d'avance pour votre aide.

Crdlt,


Sang1

 

[youky(BJ)]

Re : Adaptation formule macro

Bonjour Sang1,
1ere ligne on trouve la lettre derniere colonne utilisée en ligne 3
col = Split([traitement!IV3].End(1).Address, "$")(1)
ActiveChart.SeriesCollection(1).Value = _
Sheets("traitement").Range("A3:" & col & "3").value

voir value ou values? ou Xvalues