SERIE GRAPHIQUE

[BOUBOU91]

Bonjour a tous

J'ai une macro qui permet de créer des series graphiques de deux types I,J

Le problème est que les series I efface automatiquement les series J

Avez vous une solution car je cherche mais je ne trouve pas

Ci-dessous la macro

Sub Macro50()

Application.DisplayAlerts = False

Dim Lignes As Integer, I As Integer, J As Integer

Lignes = 0

I = 2
J = 3

For Lignes = 30 To 37

'Macro I----------------------------------
'Macro J----------------------------------

End With

I = I + 1
J = J + 1

Next

Application.DisplayAlerts = True

End Sub

Merci bcp

Boubou

 

[Hieu]

Salut,

Essaie de joindre un fichier exemple, sans donnees sensibles.

Sub Macro50()
Application.DisplayAlerts = False
Dim Lignes As Integer, I As Integer, J As Integer

Lignes = 0    ' <== Inutile
I = 2
J = 3

For Lignes = 30 To 37
'Macro I----------------------------------
'Macro J----------------------------------
End With    ' <== il est où le with toto ?? A quoi sert-il ?
I = I + 1
J = J + 1
Next Lignes

Application.DisplayAlerts = True

End Sub