Discussion :

[jejeaunet75]

Bonjour à tous,

Je me permets de poster car je suis en galère sur une macro que je constitue.

Je dois constituer des graphiques pour 17 onglets. Je fais donc une boucle (jusque la, aucun problème puisque les deux premiers passent très bien).

Le 3ème va chercher les données dans les colonnes et O et M (pour chaque feuille) et dans la dernière ligne du tableau (qui comporte les sous totaux). Par conséquent, la création du graphique est pas mal automatisée...

Ca fait maintenant 3 heures que j'y suis et je ne comprends pas...

En non automatisé pour aller chercher les plages des cellules ça donne ca :

Code :

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

1
2
    ActiveChart.SetSourceData Source:=Range( _
        "Janvier!$M$7;Janvier!$O$7;Janvier!$M$3;Janvier!$O$3")

Et avec l'automatisation (variable pour l'onglet et pour la dernière ligne ça donne ca :

Code :

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

1
2
3
4
 
 
ActiveChart.SetSourceData Source:=Range( _
        FEUILLE & "!$M$" & DERNIERELIGNE & ";" & FEUILLE & "!$O$" & DERNIERELIGNE & ";" & FEUILLE & "!$M$3;" & FEUILLE & "!$O$3")

Ca ne fonctionne pas... j'ai plusieurs graphiques à faire sous ce format la et je n'y parviens pas...

Si quelqu'un à une idée je suis preneur...

Je mets mon fichier en PJ (la macro est dans le module 5).

D'avance je vous remercie de l'aide que vous pourrez m'apporter...

Bonne fin d'après-midi

[beta007]

essaie cela , j'avais le même souci avec un "Range" contenant des "Cells" (des , au lieu ;)

Code :

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

1
2
ActiveChart.SetSourceData Source:=Range( _
        FEUILLE & "!$M$7," & FEUILLE & "!$O$7," & FEUILLE & "!$M$3," & FEUILLE & "!$O$3")

[SfJ5Rpw8]

Bonsoir,

et comment renseigne tu tes variables Feuille et derniereligne ?

[jejeaunet75]

Bonjour,

Beta 007 je vais regarder. Je vous tiens au jus.

Bbil : voici comment je renseigner mes variables FEUILLE et DERNIERELIGNE

Code :

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

1
2
3
4
5
6
7
8
 
 
 
DERNIERELIGNE = Range("A1").CurrentRegion.Rows.Count
 
'Nom de la feuille
 
FEUILLE = Sheets(I).Name

J'ai posé des espions pour vérifier que les variables prenaient bien les noms que je voulais :

FEUILLE pour l'onglet 1 : "Janvier" (Comme souhaité)
DERNIERELIGNE= 7 (Comme souhaité).

Ces informations permettent elles de répondre à vos interrogations ?

[jejeaunet75]

Beta 007, je confirme que votre proposition marche très bien !
Je ne cache pas que j'aurais jamais pensé que le ";" soit la source du problème...

Merci de votre aide dans ce dossier !

[beta007]

de rien tous le plaisir est pour moi
j'avais pas mal galéré à l'époque pour trouver que "range(cells(1,1);cells(1.3))" ne fonctionnait pas et qu'il fallait mettre une ","...