graphes en boucle

[albert]

Bonjour à tous, bonjour forumiens, forumiennes,

Je cherche à créer des graphes en boucle dans la feuille « a »
Dans le code, la plage suivante fonctionne à merveille (deux colonnes) :
Set Plage = .Range("J13:K13", .Range("J13:K13").End(xlDown))

Mais si je sélectionne 1 seule colonne, le graphique reste désespérément blanc

Set Plage = .Range("J13", .Range("J13").End(xlDown))

J’ai essayé, sans plus de succès
Set Plage = Range(Cells(13, 10), Cells(13, 10).End(xlDown)

Quelqu’un a-t-il une idée d’une solution ?

pièce jointe : tester.zip 14 Ko
Merci d’avance

albert

le code :

Sub TesterGraph2()

Dim Graphe As ChartObject, Plage As Range
Dim Ws As Worksheet, Decalage As Integer

For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "a" Then
If Ws.Name <> "b" Then
If Ws.Name <> "c" Then
With Ws
Sheets(4).Select
Set Plage = Range(Cells(13, 10), Cells(13, 10).End(xlDown))
'Set Plage = .Range("J13", .Range("J13").End(xlDown))
End With
Set Graphe = Worksheets("a").ChartObjects.Add(350 + Decalage, 50 + Decalage, 400, 220)
With Graphe.Chart
.ChartType = xlXYScatter
.SeriesCollection.Add Plage, xlColumns, True, True
End With
Decalage = Decalage + 20
End If
End If
End If

Next Ws
Sheets("a").Select
End Sub

 

[albert]

eurêka! j'ai trouvé
je vous fais profiter de ma joie....

 

[Celeda]

Bonjour,

Merci beaucoup Albert de ta réponse.

Mais pardonne moi, j'ai pas tout compris avec les deux feuilles.

Celeda

 

[albert]

bonjour Celeda,
je ne suis pas informaticien (autodidacte) donc pour m'expliquer ce n'est pas très évident

je lis les posts pour essayer d'y répondre dans la mesure de mes compétences (limitées), mais il est vrai qu'il n'est pas toujours aisé de comprendre les questions.

En tous cas, au passage, j'en profite pour saluer toute l'équipe des habitués (dont tu fais partie, je crois bien)
et pour remercier tous ceux qui prennent le temps de répondre pour nous aider (j'ai fait quelques progrès depuis que je viens sur

excel-downloads

cordialement

albert