Bizarre, la formule semble bonne, mais ca me selectionne nimporte quoi sur mon graph (ca selectionne tout jusque H58 environ)
En fait je pose genre 3 ligne de A1 à A3.
J'ai mis dans la case H58 la fonction NBVAL(A1;A3) pour que ca indique 3
et je voudrais que ma variable utilise ce "3" pour definir la longueur de plage a selectionner pour mon tableau...
mais ca fait n'importe quoi :/
Sub Graph_2lignes()
'
' Macro7 Macro
'
Dim var1 as String
Dim var2 as String
var1 = Range("H58").Value
var2 = Range("H59").Value
Range("A1:C15").Select
Selection.ClearContents
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range( _
"'Graphiques Simples'!$A$1:" & var1 & ",'Graphiques Simples'!$C$1:" & var2)
Application.Run "Graphiques_V2.xlsm!ETIQUETTES"
Application.Run "Graphiques_V2.xlsm!MEF_Taille_12"
Application.Run "Graphiques_V2.xlsm!Choix_de_la_question_suivante"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Copy
End Sub
J'en suis toujours la... :/