Discussion :

[GooseGosh]

Bonjour,

En VBA, lorsque je crée mon tableau, j'aimerais pouvoir choisir les cases de AJ4 à la fin de la colonne AJ.
Actuellement, je n'arrive qu'à sélectionner la colonne AJ entière.

Auriez-vous une idée à me proposer ?

Merci d'avance !

ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Sheet1!$AJ$1"
ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$AJ:$AJ"
ActiveChart.FullSeriesCollection(1).XValues = "=Sheet1!$A:$D"

[mat955]

Bonjour,

Essaye cela :

Code :

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

ActiveChart.FullSeriesCollection(1).Values = Range("AJ2:AJ" & Range("AJ2").End(xlDown).Row)

[GooseGosh]

Bonjour,

Malheureusement, cela ne fonctionne pas car dès que j'ai une case vide dans la colonne, cela s'arrête.
Or, je veux que ce soit de la case AJ2 à la fin de la colonne AJ, peu importe que les cases soient vides ou non.

Merci pour votre réponse

Bonjour,

Essaye cela :

Code :

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

ActiveChart.FullSeriesCollection(1).Values = Range("AJ2:AJ" & Range("AJ2").End(xlDown).Row)

[mat955]

Ok, ce n'était pas précisé.
Dans ce cas, je peux te proposer cela :

Code :

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

ActiveChart.FullSeriesCollection(1).Values = Range("AJ2:AJ" & Range("AJ:AJ").SpecialCells(xlCellTypeLastCell).Row)

[GooseGosh]

Cela fonctionne très bien !

Merci beaucoup !!

Bonne soirée

Ok, ce n'était pas précisé.
Dans ce cas, je peux te proposer cela :

Code :

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

ActiveChart.FullSeriesCollection(1).Values = Range("AJ2:AJ" & Range("AJ:AJ").SpecialCells(xlCellTypeLastCell).Row)