Syntaxe VBA Sheets.Range avec Range variableRésolu/Fermé

Question

Salut,

J'ai une ptite macro excel pour faire des graphqiues mais je bug sur un point, et j'avoue qu'apres avoir tésté maintes et maintes choses, mes nerfs commencent a lacher, j explique:

Je determine mes coordonés de la maniére suivante:

Set Coord = Range(Cells(q, 15), Cells(q, 16))

pour avoir:

ActiveChart.SetSourceData Source:=Coord

Cependant, mon Coord, va chercher le range dans la feuille ou mon graphique est crée, mais je voudrais qu'il aille chercher ce range dans une autre feuille, alors j ai vu pas mal de chose sur le forum mais je trouve toujours pas...
J ai essayer par exemple un truc du style:

Set Coord = ThisWorkbook.Sheets("Calcul").Range(Cells(q, 15), Cells(q, 16))

ou

Set Coord = ThisWorkbook.Sheets("Calcul").Range(Cells(q, 15), Cells(q, 16)).value

ou même

Set Feuille = Sheets("Calcul")
Set Coord = Feuille.Range(Cells(q, 15), Cells(q, 16))

Voir

Set Feuille = Sheets("Calcul")
Set Coord = Range(Cells(q, 15), Cells(q, 16))
avec
ActiveChart.SetSourceData Source:=Feuille.Coord

Mais toujours pas de magie....

Si qqn a la solution, il sauverait mes nerfs ;)

Merci encore a vous amis développeur pour votre disponibilité.

Cordialement


Configuration: Windows XP / Firefox 3.6.13

lermite222 · Answer

Bonjour,   

ActiveChart.SetSourceData Source:= Sheets("Calcul").Range("A" & q & ":B" & q)

Pas tester mais essaye.  
A+  
L'expérience instruit plus sûrement que le conseil. (André Gide)     
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)   
NOTE : Je ne répond pas aux MP pour les questions techniques.   
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Nicoroth · Answer

Marche pas

Nicoroth · Answer

autant pour moi, ca marche nikel merci

lermite222 · Answer

Bon, si tu modifie la plage et que le graphique n'est pas actif ça marche pas bien évidement. 
Tu dois connaître le nom du graphique, pour ça, tu clic droit sur le graphique >> Affecter une macro, tu devrais avoir en première ligne "Graphique XX_QuandClic" ou XX est un numéro. 
Tu mémorise le N°. et... 
    ActiveSheet.ChartObjects("Graphique XX").Activate 
    ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("A" & q & ":B" & q)

Ça j'ai tester et ça fonctionne. 

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques. 
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Nicoroth · Answer

Salut lermitte,

Merci pour ton ptit post qui en outre m'as été bien utile, mais j ai une petite problematique sympathique:

Mon graph se fait de la maniére suivante:

J'ai creer un userform dans lequel on a des checkbox (15 au total...)
Pour le moment, si je coche 2 check box, ma macro me sort deux graphiques ( un par check box...)
ce que je cherche a faire, c'est lorsqu'on coche deux check box, les resultat arrivent dans le même graph.
Je te balance ma macro pour que tu comprenne mieux,

Dim q As Integer
q = 1
For n = 1 To 15
q = q + 1

If Me.Controls("CheckBox" & n).Value = True Then

    Dim Nom As Variant
    Nom = "=Calcul!$F$3"
    Dim TP As Variant
    TP = "=Calcul!$O$1"
    Dim TF As Variant
    TF = "=Calcul!$P$1"

    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
    ActiveChart.SeriesCollection(1).XValues = Nom
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphiques"
    ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
    ActiveChart.PlotBy = xlColumns
    ActiveChart.SeriesCollection(1).XValues = Nom
    ActiveChart.SeriesCollection(1).Name = TP
    'ActiveChart.SeriesCollection(2).Name = TF
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScaleIsAuto = False
    ActiveChart.Axes(xlValue).MinimumScale = 0
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = "Analyse du temps de travail:" & Sheets("calcul").Range("F" & q)
    ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
    ActiveChart.PlotBy = xlColumns
    ActiveChart.SeriesCollection(1).Name = TP
    ActiveChart.SeriesCollection(2).Name = TF
    ActiveChart.SeriesCollection(1).XValues = Sheets("Calcul").Range("F" & q)
    
    Else
End If

Comme tu voi, c'est bien le bordel, mais ca marche bien, je nettoyerais plus tard les lignes répétés...


Ma base de données est comme cela:

En colone F, j'ai le nom de la personne, en O, son temps de travail, et en P, le temps de travail  qu'il doit efféctué... Mhmhmhmh du bon controle de gestion tu vas me dire ;)
Chaque checkbox represente un employé.


Effectivement, il va me Charts.add a chaque boucle... normal, mais je vois pas comment je pourrait eviter ca.

J'espere que je suis clair,

Si tu as une idée...

Merci

lermite222 · Answer

Non seulement j'ai une idée mais je t'ai déjà donner la réponse ici

Nicoroth · Answer

Ouais c bien ce qui me semblait.... faut que je mette ca en place et je te tien au courant merci beaucoup

lermite222 · Answer

Mais non, c'est facile.. 
1°) Mettre une variable publique, par exemple NomGraph as String. 
2°) Tester :  
    If NomGraph = "" then 
        Charts.Add  
        NomGraph = ActiveChart.Name 
    End If 
    With ChartObjects(NomGraph ) 
       .ChartType = xlColumnClustered 
        .SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)  
        '......... la suite 
    End WithPossible qu'il faudra activer la feuille ou le graph, j'ai pas tester. 
PS: Pas oublier de vider la variable NomGraph si tu delete le Graph.
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques. 
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

lermite222 · Answer

1°) pourquoi mettre cette ligne 3 x ???
.SetSourceData Source:=Sheets("Calcul").Range("O" & q & ":P" & q)
2°) A chaque passage de ta boucle tu modifie le SetSourceData  ??
Dis-toi bien qu'il n'y aura que la dernière valeur qui sera activée.
3°) Met ton classeur sur CiJoint.fr, (éventuellement avec des données modifiées), je verrais comment tu veux faire ça.

Nicoroth · Answer

Je te passe le fichier, ca se passe dans l onglet Graphiques, quand tu clique sur modifier parametres, tu peux choisir les employees que tu veux analyser...
J'ai nettoyer le code ;)
Mais tu va voir c pas encore fini...

http://www.cijoint.fr/cjlink.php?file=cj201102/cijUXDGneu.xlsm

lermite222 · Answer

Tu ne crois pas que tu complique un tout petit peu ?
Voir un exemple à ma façon.
A+

Syntaxe VBA Sheets.Range avec Range variable

11 réponses

Discussions similaires

Newsletters