[VBA Excel] Separation Variables de Graphiques

Marsh Posté le 02-06-2008 à 12:36:21

Salut à tous
Tout d'abord un grand merci à tous les contributeurs de ce forum, qui m'ont été d'une aide précieuse lors de la réalisation de mes macros. Je m'y suis collé en état de débutant total, et ça commence à rentrer

Mais là je coince un peu. J'ai fait une macro qui me sort des graphiques en fonction d'une colonne date et d'un paramètre. Il peut y avoir une multitude de paramètres donc comptage des colonnes et boucles.
En fait j'ai bien le bon nombre de graphiques, le premier est bon, mais le second affiche le premier graphe également, le troisième affiche le second...

voici mon code :

Code :

Sub graf()
'
' graf Macro
'
Dim nbparam As Integer
Dim nbgraph As Integer
Dim i As Integer
Dim haut As Integer
Dim haut2 As Integer
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
'compter paramètres
nbparam = Sheets("Feuil2" ).UsedRange.Columns.Count
'boucle de traitement
haut = 2
For i = 1 To nbparam - 1 'car premiere colonne =date
Sheets("Feuil2" ).Activate
Range(Columns(1), Columns(i + 1)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Columns(1), Columns(i + 1))
ActiveChart.ChartType = xlLine
'positionnement des graphes
With ActiveChart
ActiveSheet.ChartObjects(i).Left = Range("I2" ).Left
ActiveSheet.ChartObjects(i).Top = Range("I" & haut).Top
ActiveSheet.ChartObjects(i).Width = 640
ActiveSheet.ChartObjects(i).Height = 270
End With
haut = haut + 20
Sheets("Feuil2" ).Select
Next i
End Sub

Premier graphe: OK

2nd graphe : ça coince

Et le dernier, c'est carrément illisible

les quelques valeurs aberrantes qui apparaissent sont simplement dues à un disfonctionnement des capteurs

Ma question est toute simple : Comment faire en sorte que mes graphes ne soient en fonction d'un et d'un seul paramètre ? (airtemp, pressure, ou autre...)

Merci d'avance :sol: