Erreur d'exécution '9'

[auret]

Bonjour à tous,

Je vous sollicite au sujet d'une erreur d'exécution '9' : "L'indice n'appartient pas à la sélection". J'ai tout essayé, fixer la taille du tableau, changer l'indice...rien à faire l'erreur apparait au premier passage de ma boucle quand j'affecte une valeur au tableau Ordonnee.

Sub Graphe()

    Dim Abscisse() As Variant, Ordonnee() As Variant
    Dim i As Integer
    
    'Création du tableau pour les Abscisses et Ordonnées
 
    For i = 1 To Worksheets("Feuil2").Cells(22, 3)
        ReDim Preserve Abscisse(1 To i)
        ReDim Preserve Ordonnee(1 To i)
       
        Ordonnee(i) = Worksheets("Feuil3").Cells(7, 3 * i + 1)
        Abscisse(i) = Worksheets("Feuil3").Cells(3, 3 * i - 1)
    
    Next i
    
       
    'Création graphique
    Charts.Add
    'Définit la localisation du graphique:
    'dans la feuille de calcul Feuil1 pour cet exemple
    ActiveChart.Location _
    Where:=xlLocationAsObject, Name:="Feuil3"
    
    'Ajoute une série dans le graphique
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = Abscisse() 'Abscisses
        .SeriesCollection(1).Values = Ordonnee() 'Ordonnées
        'Définit le type (Courbe)
        .ChartType = xlLine
    End With
End Sub

 

[job75]

Re : Erreur d'exécution '9'

Bonjour auret,

Chez moi pas de bug.

Vérifiez qu'il y a bien 2 onglets nommés Feuil2 et Feuil3...

A+