Discussion :

[snoopy69]

Bonjour à tous ...

Depuis ce matin je me bats contre un tableau ... ... voici mon code :

Déclaration du tableau :

Code :

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

Dim tabFichierCritere() As String

Replissage de la première "case" du tableau :

Code :

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

tabFichierCritere(0) = ""

Voici mon message d'erreur :

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

Je suppose que c'est parce que mon tableau n'a pas de valeur fixe au niveau de sa déclaration... ...

Mais ce qui me rend perplexe c'est que ceci :

Code :

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

1
2
Dim tabNomElementFichier() As String
tabNomElementFichier = Split(strNomFichier, "~")

fonctionne très bien.

Est-ce que vous avez une petite idée pour me débloquer ? ...

Je ne comprends vraiment pas ce qui cloche et j'ai vraiment besoin d'un tableau dynamique car je ne sais pas à l'avance combien de case seront utilisées dans ce tableau ...

Merci beaucoup pour votre aide ...

@ bientôt ...

[littledoudou]

bonjour,

avant d'utiliser

Code :

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

tabFichierCritere(0) = ""

il faut déterminer les dimensions de ton tableau

Code :

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

Redim tabFichierCritere(0)

car ta déclaration

Code :

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

Dim tabFichierCritere() As String

créé un tableau vierge de dimensions indéterminées

cdlt,

[littledoudou]

re

MSDN décrit bien la fonction split:

Renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes

donc elle dimensionne ton tableau

cdlt,

[snoopy69]

Ah ouais je vois ....

J'ai compris maintenant ...

Et cela fonctionne mieux ... ... en fait cela fonctionne tout court contrairement à avant ...

Merci de votre aide ...

@ bientôt ...