Problème Excel VBA: "l'indice n'appartient pas à la sélection"

Question

Bonjour à tous,

J'ai créé ce petit code ce matin:
Sub test()
Dim i As Integer
For i = 3 To 5
Dim X() As Single
If Cells(i, 3).Value >= Cells(10, 2).Value And Cells(i, 4).Value >= Cells(11, 2).Value And Cells(i, 5).Value <= Cells(12, 2).Value And Cells(i, 6).Value >= Cells(13, 2).Value Then
X(i) = 0.6 * (Cells(i, 3).Value / Cells(10, 2).Value) + 0.2 * (Cells(i, 4).Value / Cells(11, 2).Value) + 0.1 * (Cells(12, 2).Value / Cells(i, 5).Value) + 0.1 * (Cells(i, 6).Value / Cells(13, 2).Value)
Else: X(i) = 100
End If
Next i

MsgBox "X(4)"

Application.Run "'database AS.xls'!test"
End Sub

En gros, c'est assez simple, j'ai 3 lignes (L3 à L5 ici) et pour chaque ligne je voudrais calculer un X(i) à partir des données de cette ligne. Mais quand j'exécute mon programme, j'obtiens: "Erreur d'exécution '9' L'indice n'appartient pas à la selection."

Pourriez-vous me débloquer svp ?
Merci d'avance
Bichon

michel_m · Answer

Bonjour
Et sur qielle ligne (surlignée en jaune) se produit l'erreur ?

pijaku · Answer

Bonjour Bichon,

Salut Michel,

Tu déclares ton tableau dans une boucle???
For i = 3 To 5
    Dim X() As Single
Hum hum...

Et tu ne le dimensionnes jamais...

Et "X(4)" ne risque pas de t'afficher la valeur de l'indice 5 de ton tableau.
MsgBox "(X4)" va afficher : (X4)
et MsgBox X4 va provoquer la même erreur 9...

Essaye déjà, tout simplement :
Sub test()
Dim i As Integer
Dim X(5) As Single

For i = 0 To 5
    X(i) = 0.6 * i
Next i

MsgBox X(4)
End Sub

Une fois compris ce principe, tu pourras ajouter tes tests...

Problème Excel VBA: "l'indice n'appartient pas à la sélection"

2 réponses

Votre réponse

Discussions similaires

Newsletters