[Catégorie modifiée VB6 -> VBA] plage d'un graphique à faire varier

Résolu
jbbaudouin
Messages postés
37
Date d'inscription
mardi 12 avril 2011
Statut
Membre
Dernière intervention
18 janvier 2016
- 19 mai 2011 à 12:01
NHenry
Messages postés
14930
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
26 mai 2022
- 19 mai 2011 à 19:10
Bonjour à tous,

j'ai plusieurs plages de données sur ma feuille excel pour tracer différents graph.

Le problème c'est que j'aimerai faire varier ma plage de cellule dans une boucle tel que :

for ...
ActiveChart.SetSourceData Source:=Sheets("param.alloy.ni").range(cells(i,j),cells(k,l)), _
PlotBy:=xlColumns ...
next ...

le problème c'est que la plage range(cells(i,j),cells(k,l)) n'est pas acceptée et je ne vois d'autres manières pour faire varier les colonnes et lignes.

Dans ces conditions, quelle est la commande à utiliser?

Je vous remercie pour vos réponses,

jbbaudouin

3 réponses

NHenry
Messages postés
14930
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
26 mai 2022
161
19 mai 2011 à 19:10
Bonjour,

Public Function GetCarsColonnes(ByVal pIndexColonne As Long) As String
    Dim lStr as string
    lStr=Chr$(Asc("A")-1+(pIndexColonne Mod 26))
    If pIndexColonne>26 Then
        lStr=Chr$(Asc("A")-1+(pIndexColonne \ 26)) & lStr
    End If
    GetCarsColonnes=lStr
End Function


Je pense que ça devrait passer (code tapé directement dans la zone de saisie, donc quelques erreurs possible).

Mon site
3
NHenry
Messages postés
14930
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
26 mai 2022
161
19 mai 2011 à 13:03
Bonjour,

Si tes colonnes sont toujours < à AA :
Range(chr$(&h40+Col1) & Row1 & ":" & chr$(&h40+Col2) & Row2)

Ensuite, je te laisse adapter.

Mon site
0
jbbaudouin
Messages postés
37
Date d'inscription
mardi 12 avril 2011
Statut
Membre
Dernière intervention
18 janvier 2016
2
19 mai 2011 à 15:08
ça pourrait marcher, mais le problème c'est que mes colonnes dépasse la colonne AA.
Quelqu'un à une autre proposition?
en tout cas merci pour ta réponse NHenry.

jbbaudoouin
0