unglued
Messages postés24Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention28 mars 2008
-
9 janv. 2008 à 17:41
unglued
Messages postés24Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention28 mars 2008
-
12 janv. 2008 à 11:22
Bonjour a tous
soyez un peu indulgents avec moi ca fait 3 jours ke je touche a VB sur Excel donc ils doit p-e y avoir des erreurs (au passage jai un clavier anglais donc pas daccent donc je vais mettre bcp de "er" a la place des accent aigue :D)
voila mon probleme:
J'ai un tableau sur excel dans lekel de nouvelle lignes sont creer environ toutes les 2 semaines
depuis ce tableau, jai creer un graph en XY
et jaimerai ke ce graph se mette automatiquement a jour qd les nouvelles lignes de mon tableau sont la...
jai commencer a ecrire un code mais bien evidement ya une erreur que jairrive pas a corriger (sinon je serais pas la)
jai cru comprendre qu'il manquais un 'with' mais impossible de recupere des information sur ce with meme dans laide il existe pas...
Bon voila le code...
Private Sub Chart_Activate()
Dim axe_X_date As Object
Dim axe_Y_Isc As Object
Sheets("time stability test").Select
Range("A5").Select
axe_X_date = Range(Selection, Selection.End(xlDown)).Select 'select la colonne juska la fin du tablo (de A5 a la fin)
Range("L5").Select
axe_Y_Isc = Range(Selection, Selection.End(xlDown)).Select 'select la colonne juska la fin du tablo (de A5 a la fin)
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 10 janv. 2008 à 09:05
Salut,
pour commencer declare test variable en range et pas en objet :
Dim axe_X_date As Range
Dim axe_Y_Isc As Range
Dim PremiereCelule as Range
en suite pour atribuer une celule ou une plage de celule a une variable range tu dois utiliser set :
Range("A5").Select
set axe_X_date = Range(Selection, Selection.End(xlDown))Range("L5").Select
set axe_Y_Isc = Range(Selection, Selection.End(xlDown))
Pour info, tu peux te referer a une celule sans la selectioner :
set PremiereCelule = [A5]
set axe_X_date = Range(PremiereCelule,PremiereCelule.End(xlDown)) 'le select ne sert a rien ici aussi
cela evite d'avoir un ecran qui clignote lors de l'execution de ta macro et cela accelere le code
Enfin, pas besoin de t'embeter avec les & comme tu dis :
unglued
Messages postés24Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention28 mars 2008 10 janv. 2008 à 10:19
Merci pour ta reponse Bigfish, mais il y a toujours un probleme:
deja 1ere chose a mon avis il est bien possible de creer un graphe a partir de donnees d'une autre feuile:
ex: qd tu creer un graph la derniere question que lassistant te demande est : ou placer le graph (dans mon cas il est sur une feuille a part).
ensuite jai toujours une erreur qui apparais sur cette ligne la :
Set axe_X_date = Range(Selection, Selection.End(xlDown)).Select 'select la colonne juska la fin du tablo (de A5 a la fin)
il me dit "Object Required", si je jette un oeil sur excel il selectionne bien la plage souhaiter, mais a mon avis il arrive pas a mettre la plage dans la variable...
si je met pas le set il me dit "Object variable or With block variable not set", idem sur excel
et javais oublier de preciser qqchose, a mon avis ca change rien mais bon autant tout expliker je travaille sur la feuille contenant le graph
donc ma fonction commence comme ca :
Private Sub Chart_Activate()
si jamais vous vous voyez le hic, faites moi signe :P