Sélectionner des cellules non contigues sur une ligne

Bonjour à tous!

afin de générer un graph de suivi livraison mensuel j'ai besoin de la syntaxe correcte...

je galère de forums en forums et tjs dans le flou depuis 8 jours...

trop d’erreurs et de bugs!!!

y aurai t il qqun pour aider le béotien que je suis?

il me faut une macro qui à partir de la ligne de l'activecell va se charger de récolter les données des colonnes non contigues L,O, R, U,X,AA,AD,AG,AJ,AM,AP,AS

voilà où j'en suis....on ne rit pas svp!!! cela marche avec un numéro de ligne donné mais comment faire pour intégrer la variable "lig"?

Merci d'avance à tous ceux qui me répondront

Sheets("Feuil2").Select

Dim graph As Object

Dim lig As Integer

Dim myrange As Object

For Each graph In ActiveSheet.ChartObjects

graph.Delete

Next

ActiveCell.Select

lig = ActiveCell.Row

Charts.Add

ActiveChart.ChartType = xl3DColumn

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("K34:AT34"), PlotBy _

:=xlRows

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).Values = _

"=(Feuil1!R8C11,Feuil1!R8C14,Feuil1!R8C17,Feuil1!R8C20,Feuil1!R8C23,Feuil1!R8C26,Feuil1!R8C29,Feuil1!R8C32,Feuil1!R8C35,Feuil1!R8C38,Feuil1!R8C41,Feuil1!R8C44)"

ActiveChart.SeriesCollection(1).Name = "=""tonnages A"""

ActiveChart.SeriesCollection(2).Values = _

"=(Feuil1!R8C12,Feuil1!R8C15,Feuil1!R8C18,Feuil1!R8C21,Feuil1!R8C24,Feuil1!R8C27,Feuil1!R8C30,Feuil1!R8C33,Feuil1!R8C36,Feuil1!R8C39,Feuil1!R8C42,Feuil1!R8C45)"

ActiveChart.SeriesCollection(2).Name = "=""tonnages B"""

ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"

Bonsoir,

Un fichier?

Cdlt.

bonjour,

il m'est difficile de faire partager ce fichier....

les éléments de ma macro ne vous suffisent ils pas?

si non, il me faudra d'abord enlever ttes les données du tableau si vraiment cela vs est nécessaire.

merci bcp de suivre ma question

Bonjour

Vérifies si j'ai bien compris

Je n'ai juste modifie que cette partie

Si c'est bon inspires t'en pour modifier la 2ème partie

ActiveChart.SeriesCollection(1).Values = _
          "=(Feuil1!R" & lig & "C11,Feuil1!R" & lig & "C14,Feuil1!R" & lig & _
          "C17,Feuil1!R" & lig & "C20,Feuil1!R" & lig & "C23,Feuil1!R" & lig & _
          "C26,Feuil1!R" & lig & "C29,Feuil1!R" & lig & "C32,Feuil1!R" & lig & _
          "C35,Feuil1!R" & lig & "C38,Feuil1!R" & lig & "C41,Feuil1!R" & lig & "C44)"

bonjour

oui!!!super!!! ça fonctionne...

sauf que il faut que je trouve pourquoi l'exécution ne prend pas en compte la ligna active...

je pense que je dois réinitialisé mon "lig" en début de macro?

en tout cas MERCI bcp.

AYE tout fonctionne correctement

merci bcp pour votre aide.