Discussion :

[paul1004]

Bonjour ,

Je dispose d'un tableau Excel avec trois colonnes et désire programmer une macro qui me demande d'entrer les numéros de lignes (deux numéros pour faire une plage de données) puis qui trace le graphique.

Cela dans le but de tracer plusieurs graphiques pour plusieurs plages de données.

Pouriez vous m'aider ? test.xls

[Invité]

Bonjour,

Je te déconseille de mettre une pièce jointe dès ton premier post, peu de personnes l'ouvriront. Il est préférable que tu expliques plus le contexte de ton problème. Sinon, l'enregistreur de macro pourrait t'aider : http://fauconnier.developpez.com/tut...istreur-macro/

[Roiser]

Bonjour,

J'ai besoin de quelques précision avant de pouvoir t'aider pour savoir si j'ai bien compris :

- L'axe des abscisses commence toujours à "1" jusqu'au nombre de ligne selectionné ?
- le nom du graphe peut-être généralisé ? ou il ne doit pas en avoir ?
- même chose pour les series

[paul1004]

Bonjour
Pour l'axe des abscisses cela n'a pas d’importance.

Le nom du graphe peut être en effet généralisé; Si besoin je les renommerai après.

merci de votre réponse

[Roiser]

Re

voici un petit code vite fait ...
Il permet de créé le graphique sur une autre feuille et le programme boucle tant que le numéro de début de ligne n'est pas -1, par contre je pense que l'on peut encore l'améliorer... (manque la gestion d'erreur par exemple)

Tu dois le lancer sur la page où se trouve tes données, si tu as des questions n'hésite pas !

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
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub CreerGraph()
 
Dim LigneDebut As Long
Dim LigneFin As Long
'Feuille ou se trouve les données
Dim FeuilleDonnees As Worksheet
'Feuille ou sera le graph
Dim FeuilleGraph As Worksheet
Set FeuilleDonnees = ActiveSheet
'demande de la ligne de debut
LigneDebut = InputBox("Saisir le début de la plage")
'tant que la saisie n'est pas -1 le programe boucle
While LigneDebut <> -1
    'demande de la ligne de fin
    LigneFin = InputBox("Saisir la fin de la plage")
    'si la feuille où va etre le graphe existe la prend comme repère la créé sinon
    If Feuille_Existe("Graphique de " & FeuilleDonnees.Name) Then
        Set FeuilleGraph = Worksheets("Graphique de " & FeuilleDonnees.Name)
    Else
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = "Graphique de " & FeuilleDonnees.Name
        Set FeuilleGraph = Worksheets("Graphique de " & FeuilleDonnees.Name)
    End If
 
    'création du graph
    FeuilleGraph.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range(FeuilleDonnees.Cells(LigneDebut, 3), FeuilleDonnees.Cells(LigneFin, 5))
 
    'demande de la ligne de debut pour le prochain graph
    LigneDebut = InputBox("Saisir le début de la plage")
 
Wend
 
End Sub
 
Function Feuille_Existe(ByVal Nom_Feuille As String) As Boolean
Dim Feuille As Excel.Worksheet
  On Error GoTo Feuille_Absente_Error
    Set Feuille = ActiveWorkbook.Worksheets(Nom_Feuille)
  On Error GoTo 0
  Feuille_Existe = True
Exit Function
 
Feuille_Absente_Error:
  Feuille_Existe = False
End Function

[paul1004]

Merci beaucoup je vais y travailler dessus en l'améliorant