VBA Nuage de points
Fermé
clemente91
Messages postés
2
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
29 décembre 2014
-
Modifié par Whismeril le 29/12/2014 à 12:53
clemente91 Messages postés 2 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 29 décembre 2014 - 29 déc. 2014 à 13:39
clemente91 Messages postés 2 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 29 décembre 2014 - 29 déc. 2014 à 13:39
A voir également:
- VBA Nuage de points
- Mettre des points sur une carte - Guide
- Points de suite word - Guide
- Dans ce fichier, réalisez le graphique xy (nuage de points ou dispersion), avec les x en abscisse. dans le graphique, les points dessinent un nombre. lequel ? ✓ - Forum Programmation
- Score snap qui augmente de 3 points - Forum Snapchat
- Graphique abscisse ✓ - Forum Excel
2 réponses
Utilisateur anonyme
Modifié par Whismeril le 29/12/2014 à 13:03
Modifié par Whismeril le 29/12/2014 à 13:03
Bonjour, un moyen de savoir ou aller avec VBA est d'utiliser l'outil "Enregistrer Une Macra", tu fais "à la main" ce que tu veux faire par le code et Excel transcrit ça en VBA.
Voila ce que ça donne pour 3 séries:
Penser aux balises de coloration syntaxique: bouton <>, préciser le langage :<code csharp>.
Quand la solution est trouvée, mettre la discussion Résolue.
Voila ce que ça donne pour 3 séries:
Sub Macro1() ' ' Macro1 Macro ' ' ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatter ActiveChart.ChartStyle = 2 ActiveChart.ClearToMatchStyle ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=Feuil1!$A$1:$A$11" ActiveChart.SeriesCollection(1).Values = "=Feuil1!$B$1:$B$11" ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(2).XValues = "=Feuil1!$A$1:$A$11" ActiveChart.SeriesCollection(2).Values = "=Feuil1!$C$1:$C$11" ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(3).XValues = "=Feuil1!$D$1:$D$11" ActiveChart.SeriesCollection(3).Values = "=Feuil1!$D$1:$D$11" ActiveChart.SeriesCollection(3).XValues = "=Feuil1!$A$1:$A$11" End Sub
Penser aux balises de coloration syntaxique: bouton <>, préciser le langage :<code csharp>.
Quand la solution est trouvée, mettre la discussion Résolue.
clemente91
Messages postés
2
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
29 décembre 2014
Modifié par pijaku le 29/12/2014 à 14:52
Modifié par pijaku le 29/12/2014 à 14:52
Le souci est qu'il y a un nombre x de série.
Je teste ce code mais cela ne fonctionne pas :
Je teste ce code mais cela ne fonctionne pas :
ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(i - 5).XValues = ThisWorkbook.Worksheets("Tableaux").Cells(i, 1).Offset(0, 4) ActiveChart.SeriesCollection(i - 5).Values = ThisWorkbook.Worksheets("Tableaux").Cells(i, 1).Offset(0, 2)