Erreur dimension spécifié non valide

Bonjour à tous

J'ai une erreur 1004 dimension spécifié non valide pour le type de graphique en cours cela ne m'empêche d'avoir le bon graphique.

Voici le code ou il y a une erreur :

   Set Plage = Range("B2:B" & Range("A65536").End(xlUp).Row)

merci d'avance

Bonsoir,

Avec une ligne de code toute seule, qui doit normalement marcher vu le syntaxe, on ne peut rien dévisager. Il faut le fichier qui va avec pour trouver vraiment le bug.

Bonsoir,

Voici le code entier :

Sub CreateChart2()
    Dim Plage As Range
    Dim direction_mutation As Variant
    Dim periode_mutation As Variant
    Dim PossDirection As Variant, PossPeriode As Variant
    Dim i As Integer, j As Integer, nl As Integer
    Dim nligne As Integer
    Dim itrimestre As Integer
    Dim myexcelfile As String
    Dim chemin As String

  ActiveSheet.Range("A2").Select
    Charts.Add

    Set Plage = Range("B2:B" & Range("A65536").End(xlUp).Row)
    PossDirection = Application.Transpose(Plage.value)

    Set Plage = Range("A2:A" & Range("A65536").End(xlUp).Row)
    PossPeriode = Application.Transpose(Plage.value)

    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = PossPeriode  'Abscisses
        .SeriesCollection(1).Values = tableau 'Ordonnées
        'Définit le type (Courbe)
        If ligneOption Then
        .ChartType = xlLineClustered
        Else
        .ChartType = xlColumnClustered

    End If
    End With

 End Sub

et voici le fichier de données

Bonsoir,

Essaye de remplacer la ligne suivante :

choup2 a écrit :

Set Plage = Range("A2:A" & Range("A65536").End(xlUp).Row)

par :

Set Plage = Sheets("DonneeGraphiqueVendeurYT").Range("B2:B" & Sheets("DonneeGraphiqueVendeurYT").Range("A65536").End(xlUp).Row)

Car, quand on a plus d'une feuille (c'est le cas après la création de graphe dans une feuille différente), il faut préciser sur quelle feuille on opère.