VBA selection de plusieurs cellules

Oui en effet, j'ai lu une discussion à ce propos. Tu déclares ta variable Range, mais après il faut la "créer" . regarde un peu ce test :

Sub test()
Dim Plage1 As Range
'Plage1 = Range(ActiveCell, ActiveCell.Offset(4, 0)) 'ne fonctionne pas
Set Plage1 = Range(ActiveCell, ActiveCell.Offset(4, 0))
MsgBox Plage1.Address
End Sub

pour vérifier j'ai unversé plage1 et plage2. Quand je fais cela, seule la plage2 est prise en compte!

Je pense que le problème ne vient pas du code que tu as mis ci-dessus, mais de la suite, lorsque tu créées le graph.
En effet, fais ce test : Ajouter dans ton code un MsgBox indiquant l'adresse du Range "serie"

Sheets(feuille).Range(base_serie2_axeX).Activate 
Set Plage7 = Range(ActiveCell, ActiveCell.Offset(2, 0)) 
Sheets(feuille).Range(base_serie2L_axeX).Activate 
Set Plage8 = Range(ActiveCell, ActiveCell.Offset(12, 0)) 
Set serie = Union(Plage7, Plage8) 
MsgBox serie.Address

il te donne bien l'adresse de l'union des 2 plages...

effectivement, l'adresse renvoyée à l'air bonne, c'est juste moi qui ne sais pas me servir des espions, je n'arrive pas a voir toutes les valeurs... et dant count, il y a le nombre d'élément de la première plage...

je ne peux pas encore vérifier sur le graph puisque la sub suivante ne fonctionne pas :

Sub Graph_comparaison(maquette, feuille, titre_graph, Serie1, serie1_axeX, serie1_titre, serie2, serie2_axeX, serie2_titre, Position_Graph, mini, max, nomgraph, nomgraph1)

Application.ScreenUpdating = False

ActiveWindow.Visible = False
Windows(maquette).Activate
Charts.Add
nomgraph1 = ActiveChart.Name
ActiveChart.Visible = False

Charts(nomgraph1).ApplyCustomType ChartType:=xlUserDefined, TypeName:="comparaison"
Charts(nomgraph1).SetSourceData source:=Sheets(feuille).Range("AG11:AG20"), PlotBy _
:=xlColumns

Charts(nomgraph1).SeriesCollection.NewSeries
Charts(nomgraph1).SeriesCollection.NewSeries
Charts(nomgraph1).SeriesCollection(1).XValues = serie1_axeX
Charts(nomgraph1).SeriesCollection(1).Values = Serie1
Charts(nomgraph1).SeriesCollection(1).Name = serie1_titre
Charts(nomgraph1).SeriesCollection(2).XValues = serie2_axeX
Charts(nomgraph1).SeriesCollection(2).Values = serie2
Charts(nomgraph1).SeriesCollection(2).Name = serie2_titre
Charts(nomgraph1).SeriesCollection(3).Delete

With Charts(nomgraph1)
.HasTitle = True
.ChartTitle.Characters.Text = titre_graph
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlValue).TickLabels.NumberFormat = "General"
End With

Application.ScreenUpdating = False

Charts(nomgraph1).Location Where:=xlLocationAsNewSheet
'nomgraph = Right(Charts(nomgraph1).Name, Len(Charts(nomgraph1).Name) - Len(Charts(nomgraph1).Name) - 1)

'NbGraph = Feuil1.ChartObjects.Count 'compte le nombre de graphiques dans la feuille
'le nouveau graphique correspond à l'index le plus élevé

Sheets(nomgraph1).Visible = True
Sheets(nomgraph1).Activate
Call Creer_bouton


Sheets(nomgraph1).Select

ActiveChart.ChartTitle.Select


Selection.AutoScaleFont = False
With Selection.Font
.Name = "Verdana"
.FontStyle = "Gras"
.Size = 8
End With

Sheets(nomgraph1).Legend.Select
Selection.AutoScaleFont = False


With Selection.Font
.Name = "Verdana"
.FontStyle = "Normal"
.Size = 8
End With

End Sub


j'ai l'erreure "impossible de definir la propriété XValues de la classe series"

pourtant, c'est exactement la meme sub que j'utilise pour mes autres graph (ceux pour les quels je n'ai pas besoin d'aditionner deux plages) et elle fonctionne très bien...

Sans avoir testé, essaye un truc du genre :

Charts(nomgraph1).SeriesCollection(1).XValues = serie1_axeX .Address

EDIT : Va voir ce lien à partir de la page 39

merci, ca fonctionne pour cette ligne, enfin je n'ai plus l'erreur en tout cas, mais ca ne fonctionne pas pour la ligne suivante!! jai de nouveau la meme erreur...

j'ai un peu de mal avec la logique du VBA!

ma sub fonctionnait sans le .Address quand javais des plages de données simples...
et maintenant ca fonctionne un coup sur deux!

en tout cas merci de ta patience!