Discussion :

[Sophou]

Bonjour à tous!

C'est la toute première fois que je code en VBA et voilà maintenant 2 jours que je m'arrahce les cheveux sur un problème :
Je souhaiterais créer un graphique nuage de point à partir d'un tableu de donnés qui peux varier

Lorsque je crée mon graphique les données des abcisses sont choisi par défaut par excel alors que je souhaiterais définir une de mes colonnes (dans mon cas la première colonne) comme données des abcisses.

Voici mon code pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro()
Range("b1", Range("b1").End(xlDown).End(xlToRight)).Select
 ActiveSheet.Shapes.AddChart.Select
 ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
 ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub

Merci d'avance pour votre aide !

[ARTURO83]

Bonjour,

Sans avoir un aperçu de la disposition de vos données, difficile de répondre.

Pouvez-vous déposer un extrait de votre tableau pour que nous puissions trouver une solution?

Cdlt

[Sophou]

Bonjour,

Sans avoir un aperçu de la disposition de vos données, difficile de répondre.

Pouvez-vous déposer un extrait de votre tableau pour que nous puissions trouver une solution?

Cdlt

Voici un extrait de mon tableau. Le nombre de lignet de colonne peut varier. Je souhaiterais réaliser une macro qui puisse s'adapter à cela.

Classeur1_exemple.xlsx

[ARTURO83]

Bonjour,

Si j'ai bien compris, votre macro pour insérer un nouveau graphique (pour un nuage de points, ne pas prendre la ligne d'entête)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Graphique()
    Sheets("Feuil1").Select
    Range("b2", Range("b2").End(xlDown).End(xlToRight)).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub

Pour permuter les axes ordonnées abscisses, clic droit sur le graphique, "Sélectionner les données", Cliquer sur "Changer de ligne ou de colonne"

Cdlt

[Sophou]

Au temps pour moi je souhaite bien prendre en compte la ligne d'entête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Graphique()
    Sheets("Feuil1").Select
    Range("a1", Range("a1").End(xlDown).End(xlToRight)).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub

Lorsque j'exécute cette macro sur mon fichier excel, j'arrive bien à crée un nouveau graphique, sauf que j'aimerais que la première colonne soir considéré comme les données des abscisses mais ce n'est pas le cas. Excel attribue de facon arbitraire des données d'abscisses numéroté "1,2,3....." alors que je souhaiterais appliquer l'abscisse de la colonne A numéroté "0; 0,5; 1; 1,5...."

[ARTURO83]

Bonjour,

Voici avec graphique en ligne à la place de nuage de points (le rendu est le même)
Je n'arrive pas à orienter le texte de l'axe des abscisses pour le rendre plus lisible, si vous avez une version d'excel plus récente que la mienne, essayez de le faire avec l'aide de l'enregistreur de macros et copiez le résultat à la suite du code.
Pour une question de lisibilité, en fin de code, je modifie les échelles de l'axe des ordonnées, vous pouvez mettre ces lignes en remarques si cela ne vous convient pas.

Le fichier
Pièce jointe 583514

Le 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
Sub Graphique()
    Dim DerLig As Long, DerCol As Long
    Dim Valeur_Min As Double, Valeur_Max As Double
    Application.ScreenUpdating = False
    Sheets("Feuil1").Select
    Range("C1") = ""
    Range("C1", Range("A1").End(xlDown).End(xlToRight)).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.Location Where:=xlLocationAsNewSheet
 
    'Ajout de la série "Temps"
    DerLig = Sheets("Feuil1").Range("A1").End(xlDown).Row
    DerCol = Sheets("Feuil1").Range("A1").End(xlToRight).Column
    Sheets("Feuil1").Range("C1") = "Temps"
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(22).Name = "=""Temps"""
    ActiveChart.SeriesCollection(22).Values = "=Feuil1!C2:C" & Sheets("Feuil1").Range("A1").End(xlDown).Row
 
    'Réduction des axes pour une meilleure lisibilité (facultatif)
    Valeur_Min = Application.Min(Sheets("Feuil1").Cells(2, "D"), Sheets("Feuil1").Cells(DerLig, DerCol))
    Valeur_Max = Application.Max(Sheets("Feuil1").Cells(2, "D"), Sheets("Feuil1").Cells(DerLig, DerCol))
    ActiveChart.Axes(xlValue).MinimumScale = Round(Valeur_Min - 15, 0)
    ActiveChart.Axes(xlValue).MaximumScale = Round(Valeur_Max + 15, 0)
End Sub

Cdlt