macro pour excel, parametrage auto de graphique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : macro pour excel, parametrage auto de graphique

kast

salut

je suis en train de programmer une macro en VB sous excel et j'ai besoin de parametrer un graphique!

en fait voila le probleme, je genere auomatiquement des tableaux et je souhaite generer des graphiques à partir de ces tableaux. Or le probleme c'est que ces tableaux ne faont jaais la même taille donc comment faire pour rentrer un parametre dans la zone de saisie ds donneés?

par un algo j'arrive à connaitre la taiil du tableau, mais impossible de rentrer ce parametre dans la programmation

exemple:
Range("B1:C5" ).select

mon tableau ne faisant pas toujours 5 lignes je souhaiterais lui programmer qualque chose dans le style:

Nbl= nombre de lignes

Range("B1:C+Nbl" ).select mais ça ne marche pas, connaissez vous le bon parametrage

d'avance merci

Publicité

boulax

Inserer phrase hype en anglais

Range("B1:C"+Nbl).select :??:

boulax

Inserer phrase hype en anglais

avec une conversion peut-etre

kast

Range("B1:C"+Nbl).select ça ne marche pas non plus

une conversion? qu'est-ce que tu veux dire ?

boulax

Inserer phrase hype en anglais

Sois un peu plus explicite que "ca ne marche pas", d'ailleurs en te posant ce genre de questions tu pourrais surement régler ton problème.

Nbl est un entier, probable donc que la concaténation avec une chaine de caractère soit foireuse, convertit d'abord ton entier en chaine puis concatène-le.

Manu la Science

...la science ... pas toujours

Voici comment j'ai résolu ce problème dans l'appli que je suis en train de réaliser. J'ai fait une macro qui permet de réaliser des graphiques automatiquement quelque soit le nombre de lignes et de colonnes.

D'abord, tu cherches à connaître le nombre max de lignes et de colonnes sur ta feuille:

Tu sélectionnes ta feuille

tu définis la ligne de début de ton tableau

Code :

dim finLigne as Integer
finLigne = 1
Do While VarType(ActiveCell.Value) <> 0
finLigne = finLigne + 1
Cells(finLigne, 1).Select
Loop

La même chose pour les colonnes

Code :

Dim nbLigne As Integer
finColonne = 1
Do While VarType(ActiveCell.Value) <> 0
finColonne = finColonne + 1
Cells(1, finColonne).Select
Loop

Tu définis tes variables pour la construction du graphe

Code :

'Variable stockant le graphique
Dim objChart As Chart
'Variable stockant la plage de cellules du graphique
Dim objRange As Range

Tu récupère la plage du graphe à réaliser avec ceci:

Code :

Set objRange = Worksheets(monfichier).Range(Worksheets(mafeuille).Cells(1, 1), Worksheets(mafeuille).Cells(finLigne - 1, finColonne))

Ajout d'une page de graphique

Code :

Set objChart = ThisWorkbook.Charts.Add

Mise en forme du graphique

Code :

With ActiveChart
...
End With

Il doit y avoir mieux, mais cela marche dans mon cas. :sol:

Message édité par Manu la Science le 13-12-2004 à 11:16:57

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

kast

merci manu, je n'ai pas utilisé directement ton algo mais j'ai réussi à générer mon graphique!
je restai borné à vouloir rentrer un parametre dans une formule du type Range("B1:C5" ).select alors que je dois utiliser la forme: objrange = Range(Cells(1, 2), Cells(5, 3))

merci de ton aide @++

Manu la Science

...la science ... pas toujours

Je suis ravi d'avoir pu t'aider.

N'oublies pas de changer le titre de ton premier post pour marquer [résolu].

:hello:

Message édité par Manu la Science le 13-12-2004 à 13:09:04

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

FisherX69

Range("B1:C"& Nbl"" ).select

Tu peux utiliser l'expression ci dessus également.

scuny

manu que ce passe t'il si les valeurs que tu tests ne sont pas des chiffres?

Publicité

Biroute

j'aime les andouillettes !:op

desole si je remonte ce topic, mais c exactement ce que je cherche, je laisse donc un petit drapeau...

Biroute

j'aime les andouillettes !:op

bon ben finalement g fini par trouver, voici ma solution:
avec une petite regression a la fin, si ca peut aider quelqu'un dans le futur...

Code :

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Worksheets(mes(J)).Range("p2:p184" )
ActiveChart.SeriesCollection(1).Values = Worksheets(mes(J)).Range("o2:o184" )
ActiveChart.Location Where:=xlLocationAsObject, Name:=mes(J)
ActiveChart.HasLegend = False
ActiveChart.PlotArea.Select
Worksheets(mes(J)).ChartObjects(1).Chart.SeriesCollection(1).Trendlines.Add Type:=xlPolynomial, DisplayEquation:=True, DisplayRSquared:=True

---------------
Ma vie en Polonie: http://ketchupnchantilly.blogspot.com/

uptoyu

Salut à toutes et à tous,

j'ai lu les posts, mais je suis un débutant dans les macro excel et je ne sais pas comment l'implémenter ...

"parametrage auto de graphique"

comment avez-vous fait finalement ?

PS: je bloque sur la réponse de Manu la Science:

Code :

Set objRange = Worksheets(monfichier).Range(Worksheets(mafeuille).Cells(1, 1), Worksheets(mafeuille).Cells(finLigne - 1, finColonne))

Merci. Théo

FORUM HardWare.fr

Programmation

VB/VBA/VBS

macro pour excel, parametrage auto de graphique

Sujets relatifs
[VBA Excel] Trouver la derniere ligne de la derniere page imprimée	Ouvrir une feuille excel en VBA
Aide Excel et Outlook	Faire un bouton sur excel
[VBA Excel] [Résolu] Pb d'import de données txt dans excel avec VBA.	[VBA Excel] Remplir 50 labels en une seule commande ? [résolu]
Ecrire dans un fichier excel	Automatiser un solveur sur excel en VBA
[Merise] besoin d'aide MCD Excel	Afficher à partir d'un userform une feuille excel
Plus de sujets relatifs à : macro pour excel, parametrage auto de graphique

Page générée en 0.045 secondes