Macro sélection de données pour graphique

  • Initiateur de la discussion Initiateur de la discussion norip
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

norip

XLDnaute Junior
Bonsoir,
je souhaite crée une macro qui me permettra de créer un graphique de type "courbe avec marques" en ayant sélectionner 2 plages de données. La première correspondra à axe horizontal et l'autre aux valeurs correspondantes.

J'ai enregistrer cette macro:
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Range("N5:N12")
ActiveChart.SeriesCollection(1).XValues = "='Feuil2'!$M$5:$M$12"
ActiveChart.Legend.Select
Selection.Delete

En gros je voudrais que:
ActiveChart.SetSourceData Source:=Range("N5:N12")
range("N5:N12") soit variable ainsi que
ActiveChart.SeriesCollection(1).XValues = "='Feuil2'!$M$5:$M$12"


J'ai également une autre question:

Je souhaite effacer toute les données ainsi que la mise en page de plusieurs lignes sachant que la première ligne et effacer sera variable.
En fonction du nombre de valeurs dans mon tableau je souhaite effacer les formules et la mise pour les dernières lignes et ainsi aaficher le graphique.

J'ai enregistrer ceci:

Rows("14:19").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Rows("14:19").Select
Selection.ClearContents

Il faudrai qu'une cellule affiche le nombre de valeur (à l'aide de nbval je pense)
et que la valeurs affiché soit réutiliser dans la macro précédente dans les lignes:

Rows("14:19").Select

merci d'avance de votre aide
Cordialement
Norip
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
525
Réponses
0
Affichages
465
Réponses
10
Affichages
1 K
Réponses
2
Affichages
1 K
Retour