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

Signaler
Messages postés
37
Date d'inscription
mardi 12 avril 2011
Statut
Membre
Dernière intervention
18 janvier 2016
-
Messages postés
14780
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 avril 2021
-
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

Messages postés
14780
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 avril 2021
154
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
Messages postés
14780
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 avril 2021
154
Bonjour,

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

Ensuite, je te laisse adapter.

Mon site
Messages postés
37
Date d'inscription
mardi 12 avril 2011
Statut
Membre
Dernière intervention
18 janvier 2016

ç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