Sélection Lignes Multiple

bonjour'

je dois créer plusieurs graphique avec une macro (je ne sais pas combien j'aurais de ligne, ni de colonne)

j'ai réussi a boucler pour creér des graphique pour chaque ligne mais comment faire pour créer un graphique avec la premiere ligne et la deuxieme (definir aussi les absisses), puis la premiere et la troisième (garder les meme absisses changer les ordonnées) la 1 et la 4 .. etc.

Code:

---

1 2 3

Range("E2:EE2,E4:EE4").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmooth

---

cela me permet de grapher 2 lignes

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets(3).Activate Range("E2", Range("E2").End(xlToRight)).Select   While Range("E2", Range("E2").End(xlToRight)).Columns("A:A").Offset(i, 0).Value <> ""   ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmooth i = i + 1 Range("E2", Range("E2").End(xlToRight)).Offset(i, 0).Select   Wend

---

et ce code me permet de grapher toutes mes lignes mais je n'ai pas d'absisses pouvez vous m'aider ?

un exemple

Code:

---

1 2 3 4 5 6 7

Dim i As Integer For i = 2 To 3 Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Union(Range("A1:E1"), Range("A" & i & ":E" & i)), PlotBy:=xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil4" Next i

---

Je n'arrive pas a le faire compiler =/
j'ai tapé ces lignes, elles me semblent correctes mais elles ne compilent pas !

Code:

---

1 2 3

Union(Range("E2:M2"), Range("E4:M4")).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmooth

---

j'ai alors enregistré une macro :

Code:

---

1 2 3 4 5 6

Range("E2:M2,E4:M4").Select Range("E4").Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range( _ "'Data Graph'!$E$2:$M$2;'Data Graph'!$E$4:$M$4") ActiveChart.ChartType = xlXYScatterLines

---

Mais elle ne s'execute pas non plus !

merci pour votre aide

au lieu des Up contraire à la charte du forum, as-tu essayé le code fourni précédemment?

ci-joint, teste pour ton type de graphique

Code:

---

1 2 3 4 5 6 7

Dim i As Integer For i = 2 To 3 Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Union(Range("A1:E1"), Range("A" & i & ":E" & i)), PlotBy:=xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" 'Feuil1 nom de ta feuille où les graphes s'insèrent, attention, seul le dernier est visible, les autres en dessous Next i

---

j'ai pas mis de Select, pas besoin (pour l'instant)

Je sais bien que les "up" ne sont pas réglo, mais je venais d'editer mon post.. désolé

je n'arrive pas a faire compiler ton code, ni le miens, ni celui généré par l'enregistreur..

Tu mets un commandbutton dans ta feuille Data Graph
tu lui affecte la macro suivante

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() Dim i As Integer For i = 2 To 3 Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Union(Range("A1:E1"), Range("A" & i & ":E" & i)), PlotBy:=xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:="Data Graph" Next i End Sub

---

Attention quand même, tu dois adapter les Range Source de données des graphes.
le résultat final, tes graphes (mais superposés)
si tu désire que le résultat sera u graphe par feuille, tu supprimer la dernière ligne .Location

j'ai pas besoin d'un command button ni de créer de nouvelle pages... je te remercie mais ça fais 3 fois que tu me colle le meme code que je n'arrive pas a faire compiler, je ne connais pas encore bien les fonctions pour créer des graphs

je veux juste arriver a compiler ces 3 lignes !

Code:

---

1 2 3

Union(Range("E2:M2"), Range("E4:M4")).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmooth

---

Je n'étais pas dans l'obligation de "coller" 3 fois le même code, si au moins tu testais et tu reportais ce que ne fonctionne pas explicitement.
je te laisse le soin de chercher la manière qui te convient pour lancer ta macro.
un commandbutton en était une suggestion.
pour la 4ème fois, je "colle" le même code adapté à ta dernière question.

Code:

---

1 2 3

Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Union(Range("E2:M2"), Range("E4:M4")), PlotBy:=xlRows

---

je viens de comprendre pourquoi le code que tu m'ecrivais ne fonctionnait pas =)

ta fonction me changeait de feuille du coup il ne pouvait pas trouver les valeurs

Code:

---

1 2 3

Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Union(Sheets("Data Graph").Range("F2:M2"), Sheets("Data Graph").Range("F4:M4")), PlotBy:=xlRows

---

j'ai réussi a deplacé le graph merci pour ça aussi, et avec ta boucle je pourrais faire toutes mes lignes merci beaucoup mercatog