selectionez plusieurs case en mm tp

[xaviier]

salut qq1 sauré til comment fair pour selectionez plusieurs cases en mm tp en vba.?
voila mon code jMré réaliser un graphique en barre empillé. Il y a tt sortes d' erreurs dedans mais je rame pourles trouV ..
Sub Color()
Dim graphique As Chart
Debug.Print h
Debug.Print occupant

Set graphique = Charts.Add
With graphique
.Name = "Planning pop"
.ChartType = xlBarStacked
.SetSourceData Source:=Sheets("calculs")("A5;C5;E5;G5;I5;K5;M5;O5;Q5;S5").Select, PlotBy:=xlRows
.HasTitle = True
End With



Sheets("planning").Select
ActiveSheet.DrawingObjects("Graphique").Select
ActiveSheet.ChartObjects("Graphique").Activate


End Sub

merci davance

 

[Dan]

Pourquoi ne nomerais tu pas ton champ de case ?
selectionne toutes les cases puis donne un nom de champ.