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 
