Erreur en voulant générer un graphe

Question

Bonjour à tous, 

Je sollicite aujourd'hui votre aide car je suis bloquée sur un code me permettant de générer un graphe en automatique. En effet, l'erreur 91 "variable objet ou variable de bloc with non définie" ne fait qu’apparaître à l'écran. J'ai tenté plein de manips mais rien n'y fait ! 

J'espère que vous pourrez m'aider, merci beaucoup par avance ! 

Mon code est le suivant : 

Private Sub CommandButton21_Click()

Dim ShTemp As Worksheet, ShGraphe As Worksheet
Dim fin_A As range, fin_B As range
Dim select_A As range, select_B As range

Windows("Outil_V1.xlsm").Activate
Workbooks("Outil_V1.xlsm").Activate

Set ShTemp = Workbooks("Outil_V1.xlsm").Sheets("dataTemp")
Set ShGraphe = Workbooks("Outil_V1.xlsm").Sheets("GRAPHE")

(l'erreur se localise ici)

fin_A = range("A65536").End(xlUp).Row
select_A = range("A2" & ":" & "A" & fin_A).Select

fin_B = range("B" & Rows.Count).End(xlUp).Row
select_B = range("B2" & ":" & "B" & fin_B).Select

ShTemp.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=dataTemp!select_B"
ActiveChart.SeriesCollection(1).XValues = "=dataTemp!select_A"

michel_m · Answer

Bonjour
fin_A = range("A65536").End(xlUp).Row select_A = range("A2" & ":" & "A" & fin_A).Select fin_B = range("B" & Rows.Count).End(xlUp).Row select_B = range("B2" & ":" & "B" & fin_B).Select  

Sur quelle(s) feuille(s):shtemp,shgraphe?

mimoz2 · Answer

En ratravaillant mon code j'ai pensée à faire ça : 

Private Sub CommandButton21_Click()

'Definition des variables utilisees dans le code
Dim ShTemp As Worksheet, ShGraphe As Worksheet
Dim select_A() As Integer, select_B() As Integer
Dim fin_col As Long
Dim maPlage As range

'Activation des feuilles à utiliser
Windows("Outil_V1.xlsm").Activate
Workbooks("Outil_V1.xlsm").Activate

'Definition des environnements de travail
Set ShTemp = Workbooks("Outil_V1.xlsm").Sheets("dataTemp")
Set ShGraphe = Workbooks("Outil_V1.xlsm").Sheets("GRAPHE")

'Activation de la feuille graphe et suppression des anciennes données présentes dans l'onglet Graphe
ShGraphe.Activate
For Each Legraph In ActiveSheet.ChartObjects
    Legraph.Delete
Next

'Selection de la derniere ligne utilisée
ShTemp.Activate
fin_col = ShGraphe.range("B2").End(xlDown).Row
'Set maPlage = range("B2" & fin_col)

'Création graphique
ShGraphe.Activate
Charts.Add
'Définit la localisation du graphique dans la feuille de calcul GRAPHE
ActiveChart.Location _
Where:=xlLocationAsObject, Name:="GRAPHE"

'Selection des colonnes à considerer
For i = 2 To fin_col
    select_A(i) = range("A" & i).Value
    select_B(i) = range("B" & i).Value
Next

'Ajoute une série dans le graphique
With ActiveChart
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = select_A() 'Abscisses
    .SeriesCollection(1).Values = select_B() 'Ordonnées
    'Définit le type (Courbe)
    .ChartType = xlLine
End With

Seulement, une erreur apparait me disant "l'indice n'appartient pas à la sélection"

Erreur en voulant générer un graphe

2 réponses

Discussions similaires

Newsletters