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é.
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.
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...
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.
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"
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.
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 With
Possible 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.
Le problème maintenant c'est que comme je le pensait, la boucle ne garde que la dernière valeur de q, alors que j'aimerais qu'elle garde toutes les valeur en les mettant les une après les autres.
en gros me faudrait une source du style: Range("O2:P2,O4:P4,O7:P7")
dois-je utiliser une boucle? ou y a t'il un autre moyen de faire ca.
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.
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...
