Erreur d'exécution '9'

  • Initiateur de la discussion Initiateur de la discussion auret
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

auret

XLDnaute Nouveau
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.

Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
459
Réponses
1
Affichages
520
Réponses
9
Affichages
580
Retour