Discussion :

[wrm8787]

Bonjour, j'ai un programme qui doit sélectionner X données dans une colonne qui est déterminé par mon programme en fonction de son nom. Je dois ensuite sélectionner ces données pour en faire un graphique. Je connais la commande

Code :

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

workbooks(wb).ActiveChart.SetSourceData source:=(nomfeuille).range("L6:L34")

.

Le problème est que pour mon programme, je devrais d'abord utiliser le numéro de la colonne pour le convertir en lettre et insérer cette lettre dans ma commande Range, ce qui n'est pas pratique et qui implique une lourdeur supplémentaire du code.

Y-a t-il une alternative qui permet de travailler avec le numéro de colonne et non avec sa lettre?

[Didier Gonard]

Bonjour,
Utilises Cells(Row,column)
Cells(1,2) équivaut à Range ("B1")

les 2 peuvent s'imbriquer...
cf l'aide vba etc...

cordialement,

Didier

[wrm8787]

Bonjour ormonth,

cells(1,2) équivaut à Range ("B1"),
mais quoi équivaut à Range("B1:B9") ?

merci

[Didier Gonard]

bonjour,

Code :

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

1
2
3
4
5
6
 
Sub toto()
 
Range(Cells(1, 2), Cells(9, 2)).Select
 
End Sub

sinon, un petit effort ne fait pas de mal
je t'avais conseillé de voir l'aide vba

Range, propriété
Exemple
Telle qu'elle s'applique aux objets Application, Range et Worksheet.

Cet exemple montre comment affecter le style italique à la police des cellules A1:C5 de la feuille « Sheet1 ». L'exemple utilise la Syntaxe 2 de la propriété Range.

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
Font.Italic = True

cordialement,

Didier

[wrm8787]

merci de la réponse, mais ça ne fonctionne pas, ça bloque

Code :

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

Workbooks(WB).ActiveChart.SetSourceData Source:=Sheets("Sheet1").range(Cells(7, 9), Cells(17, 9)), PlotBy:=xlColumns

[SilkyRoad]

bonsoir

mais ça ne fonctionne pas, ça bloque

difficile de répondre sans plus de détails.


remplace

Code :

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

Sheets("Sheet1").range(Cells(7, 9), Cells(17, 9))

par

Code :

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

Worksheets("Sheet1").range(Worksheets("Sheet1").Cells(7, 9), Worksheets("Sheet1").Cells(17, 9))

bonne soirée
michel

[wrm8787]

ça ne marche pas non plus
erreur 1004

[SilkyRoad]

Bonsoir,

Code :

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

Workbooks("classeur1").ActiveChart

Lorsque tu utilises cette syntaxe, la feuille contenant le graphique doit être préalablement active, et le graphique doit être sélectionné,
est ce le cas lors de tes essais ?


bonne soirée
michel

[wrm8787]

c'est préalablement sélectionner, mais ça ne marche pas, j'ai donc abandonné et converti le numéro de la colonne en lettre.