Discussion :

[Kiwitosor]

Bonjour à tous,

après plusieurs recherche je ne trouve pas solution à mon problème, que voici :

Depuis une fonction, je lis des données dans un fichier texte que j'enregistre dans un tableau (DonneesFichier), j'enregistre ensuite ce tableau dans le nom de la fonction (Traitement_Fichier) pour pouvoir récupérer les données dans ma procédure principale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Function Traitement_Fichier(ByVal intFic As Integer, ByVal searChar As String) As Variant()
Dim DonneesFichier(24) As Variant
 
Traitement_Fichier = DonneesFichier()
End Function

Tout fonctionne parfaitement, sauf au moment de récupérer les valeurs de mon tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Ma_Procedure()
Dim DonneesRecuperer(24) As Variant
 
Set DonneesRecuperer(24) = Traitement_Fichier(IntFic, searchChar)()
 
End Sub

J'ai le message d'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Run-time error '9': Subscript out of range

J'ai pu voir sur cette page :
http://www.developpez.net/forums/d65...-out-of-range/

qu'en modifiant le tableau, nous obtenons toujours un tableau à deux dimensions. Est-ce ça mon problème ?

Merci de votre aide.

Mick.

[Marc-L]

Bonjour,

le problème est la ligne n°5 du second code étant une hérésie, Vade Retro Satanas ‼

Rien qu'en lisant l'aide VBA intégrée de l'instruction Set ‼ Donc à supprimer …

Il y a juste à affecter le nom du tableau par la fonction
comme pour la ligne n°5 du premier code, même pas obligé de le pré-dimensionner …

Un peu de lecture : Utiliser les variables tableaux en VBA Excel …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Kiwitosor]

Mon sauveur ! Sa fonctionne !

Si je comprends bien, le tableau non pré-dimensionner hérite automatiquement de la dimension du tableau qu'on lui affecte ?

C'est un projet pour mon travail sous MS Visio, celui-ci étant entièrement en Anglais, aide VBA comprise. Comme mon Anglais est un peu approximatif, il m'est parfois un peu difficile de tout comprendre !

J'ai d'ailleurs trouvé un cours pour débuter en VBA qui mettait le Set pour retourner la valeur d'une fonction, j'ai donc suivis bêtement l'exemple.

Merci pour le lien (je m'en vais le lire de ce pas !) et pour l'aide apporter.

Bonne journée,
Mickael.

[Marc-L]

Si je comprends bien, le tableau non pré-dimensionner hérite automatiquement de la dimension du tableau qu'on lui affecte ?

Oui. Il peut aussi être dimensionné identiquement au préalable mais ta ligne n° 5 affecte l'indice 24 du tableau
sans compter le Set réservé aux objets …

[Kiwitosor]

OK je comprends mieux mon erreur. Je pensais qu'en lui indiquant '24' c'est la totalité du tableau qui allé être pris en compte et non l'indice 24 du tableau.

Mais j'avoue que ce n'était pas logique et qu'un peu de réflexion m'aurait un peu aidé !!
Je me sert déjà du 'Set' pour instancier les objets MS Visio, cela aurait du m’interpeller aussi.
Enfin, il parait qu'il faut bien faire des erreurs pour s'améliorer ! Merci en tout cas, cela fait plusieurs points nettement plus clair pour moi.

- Déclaration et affectation des variables.
- Utilisation des fonctions.
- L'instruction Set.

Merci de ton aide,
Bonne journée.