Erreur d'exécution 9, l'indice n'appartient pas à la selection

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Erreur d'exécution 9, l'indice n'appartient pas à la selection

king520

Rigamortus

Bonjour,

Je suis entrain d’écrire une fonction qui me permet d'initialiser des vecteurs en interagissant avec l'utilisateur en lui demandant:

nom As String 'nom du vecteur
NbrElt As Long 'nombre de composantes
Comp() As Double 'composantes des vecteurs

La fonction est la suivante:

Function udtInitVect() As udtVecteur

udtInitVect.nom = Application.InputBox("Donner le nom du vecteur", Type:=2)

udtInitVect.NbrElt = Application.InputBox("Donner le nombre de composantes", Type:=1)

ReDim Comp(udtInitVect.NbrElt)

Dim i As Long

Do

udtInitVect.Comp(i) = Application.InputBox("Entrez la valeur de la composante " + CStr(i) + " de " + udtInitVect.nom, Type:=1)

Loop While i <= udtInitVect.NbrElt

End Function

Mon problème est qu'au moment d'entrer la valeur des composantes, il y a affiché:
"Erreur d’exécution 9, l'indice n'appartient pas à la sélection"

Quelqu'un aurait il une idée d’où se situe le problème?

Merci d'avance.

Publicité

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Peut-être comme ceci :

Code :

Option Explicit
Type udtVecteur
nom As String 'nom du vecteur
NbrElt As Long 'nombre de composantes
Comp() As Double 'composantes des vecteurs
End Type
Function udtInitVect() As udtVecteur
Dim r As Variant
Dim i As Long
r = Application.InputBox("Donner le nom du vecteur", Type:=2)
If r <> False Then udtInitVect.nom = r Else Exit Function
r = Application.InputBox("Donner le nombre de composantes", Type:=1)
If r <> False Then
udtInitVect.NbrElt = r
Else
udtInitVect.nom = ""
Exit Function
End If
ReDim udtInitVect.Comp(1 To udtInitVect.NbrElt)
Do
r = Application.InputBox("Entrez la valeur de la composante " + CStr(i + 1) + " de " + udtInitVect.nom, Type:=1)
If r <> False Then
i = i + 1
udtInitVect.Comp(i) = r
Else
udtInitVect.nom = ""
udtInitVect.NbrElt = 0
Erase udtInitVect.Comp
End If
Loop While i < udtInitVect.NbrElt
End Function

---------------
Cordialement, Patrice

rat de combat

attention rongeur méchant!

(code initial)
Faudrait pas initialiser i quelque part avant la boucle?

Message édité par rat de combat le 08-03-2017 à 23:03:54

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Erreur d'exécution 9, l'indice n'appartient pas à la selection

Sujets relatifs
Macro VBA ListBox : erreur si une seule entrée	Page personnalisée pour erreur 500
execution du code c sous linux	Erreur java avec TextureLoader.getTexture OpenGl
Dupral erreur internal server error 500 après installation?	Erreur XAML - InvalidOperationException???
Sélection des cellules via une boîte de dialogue	Problème ordre d'exécution - Processing
Execution Commande Dos en VBS	Erreur d'execution '9' : L'indice n'appartient pas à la sélection
Plus de sujets relatifs à : Erreur d'exécution 9, l'indice n'appartient pas à la selection

Page générée en 0.044 secondes