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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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

cherchez pas, nbgraph n'est pas utilisé ici