Discussion :

[Elstak]

coucou,

Je voudrais creer un tableau mais dont la taille peut etre modifiée.
Je pensais que la syntaxe etait : Dim TabNom() As String

mais lorsque je veux y mettre une valeur :
TabNom(1) = "blabla"

erreur : l'indice n'appartient pas à la selection


Autre question, si je veux boucler sur tous les elements du tableau le code est bien : For Each i In TabNom()
(je ne peux pas trop regarder à cause du souci precedent )

Merci de vos réponses

[Elstak]

Yop, (j'adore les monologues )

Non mais tant que j'y suis, j'ai une autre question pratique à demander aux pros

Je remplis 1 tableau comme je l'ai dit, mais j'aurais besoin de l'utiliser dans plusieurs Sub.

Je voudrais biensur eviter de le declarer et de le remplir 2 fois...

Je pensais faire une fonction du type :

Code :

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

1
2
 
Function tableau (byval num as integer) as string

dans laquelle je declare mon talbeau et le remplis. puis je retourne NomTab(num).

Est ce que ca semble une bonne idée? Y'a t'il une meilleur solution pour ce cas?

j'attends vos propositions

[Theocourant]

coucou,

Je voudrais creer un tableau mais dont la taille peut etre modifiée.
Je pensais que la syntaxe etait : Dim TabNom() As String

mais lorsque je veux y mettre une valeur :
TabNom(1) = "blabla"

erreur : l'indice n'appartient pas à la selection


Autre question, si je veux boucler sur tous les elements du tableau le code est bien : For Each i In TabNom()
(je ne peux pas trop regarder à cause du souci precedent )

Merci de vos réponses

Salut,

Alors pour les tableaux dynamiques, il faut leur donner qu'en même un dimension au début de ton appli mais pas dans la partie déclaration...

Un exemple sera plus parlant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim monTab() as Integer
Dim maMat() as Double
 
  ReDim monTab(2)
 
  'Et donc me voilà avec monTab avec une dimension de 2 valeurs
 
  monTab(1)=5
 
  ReDim Preserve monTab(6)
  'Et maintenant monTab à 6 valeurs mais j'ai gardé la valeur que je lui avait affecté ("Preserve")
 
  ReDim maMat(5,3)
  'Et voilà maMat à 2 dimensions de 5*3 valeurs... etc

Enfin si tu as d'autres question, regarde l'aide en ligne de VB...

+

Théo

[Elstak]

Ok,
j'avais deja vu le redim mais je pensais qu'il existait une autre maniere pour qu'il trouve sa taille en fonction du nom d'elements qu'il contient.

en fait là le redim me sert à rien car j'ai juste à definir la taille au debut...

domage.

Je suis toujours preneur pour des réponses à mon second post

[Theocourant]

Ok,
j'avais deja vu le redim mais je pensais qu'il existait une autre maniere pour qu'il trouve sa taille en fonction du nom d'elements qu'il contient.

en fait là le redim me sert à rien car j'ai juste à definir la taille au debut...

domage.

Je suis toujours preneur pour des réponses à mon second post

Je comprends pas ce que tu veux dire ????
Je crois que tu n'as pas compris ce que sont les tableaux dynamiques.

La taille d'un tableau dynamique est définie lors de l'exécution du programme.

Sinon pour avoir la taille si tu ne la connais pas, tu utilises Ubound et Lbound et là je te renvoie à l'aide en ligne.

+

Théo

[ouskel'n'or]

Hello Théo,

Je crois qu'en fait Erzats a besoin de savoir que la dimension fixée par Redim preserve peut être une variable

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub RedimPreserve()
Dim MonTab(), i, dimension
    For i = 1 To 8 'Val(Quelquechose)
      ReDim Preserve MonTab(i)
      MonTab(i) = "tintin" & Str(i)
    Next
    dimension = UBound(MonTab)
    MsgBox dimension
End Sub

A tout hasard

A+

[AlainTech]

en fait là le redim me sert à rien car j'ai juste à definir la taille au debut...

Code :

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

Dim TabNom(1) As String

Te crée un tableau à 2 éléments ayant pour indices 0 et 1.

Si tu préfères que tous tes tableaux commencent à l'indice 1, il faudra écrire

Code :

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

Option Base 1

dans la partie déclarations.

Si tu veux avoir plus de souplesse concernant la limite inférieure, tu peux aussi déclarer comme ceci:

Code :

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

Dim TabNom(1 To 2) As String

[ouskel'n'or]

L'union fait la force ! Aussi, grâce à jmfmarques qui a pensé à utiliser Let, voici la solution avé la founectiônne...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Tableau() 
Dim NbIndices, i, LeTab
NbIndices = 5
Let LeTab = FabriquerTableau(NbIndices)
    For i = 1 To NbIndices
        MsgBox LeTab(i)
    Next
End Sub
 
Function FabriquerTableau(Num)
Dim LeTab
ReDim LeTab(Num)
For i = 1 To Num
   LeTab(i) = i
Next
FabriquerTableau = LeTab
End Function

N'oublie pas de nous dire...

A+

[Elstak]

Oulala, je vois à peu pres ce que tu veux dire mais je vais mieux reexpliquer ce que je veux car j'ai un peu avancé (jai meme reussi à faire ce que je voulais mais c'est pas génial...)

Peut etre que ce n'est pas la meilleur maniere pour faire ca mais à part avec des tableaux je ne vois pas comment faire..

J'ai 2 types de fichiers textes. J'ai un traitement particulier pour chaque type donc j'ai créé 2 tableaux. Je souhaite les convertirs en fichiers excel donc j'ai recréé 2 tableaux avec les noms de sortie. (Pour chaque tableau j'ai une fonction qui me renvoit le nom du fichier, je fourni l'indice pour appeler la fonction).

Le petit probleme est que le nombre de fichiers peut augmenter (ou diminuer) donc je trouve ma solution un peu "rigide". voici ce que j'ai pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function RetourneNomOrig(ByRef Num As Integer) As String
 
Dim TabNom(1 To 100) As String
 
    TabNom(1) = "Nom1.txt"
    TabNom(2) = "Nom2.txt"        
 
RetourneNomOrig = TabNom(Num)
 
End Function

j'ai mis 100 au maximum pour ne pas avoir à rajouter 1 à chaque ajout de fichier.

j'ai aussi une seconde fonction comme ca pour le second type de fichier texte et 2 du meme genre pour le nom de fichier excel qui correspond (par exemple dans ma fonction retournenomsortie, Tabsortie(1) correspond au nom du fichier excel qu'a Nom1.txt apres convertion). Si j'ai choisi de faire une fonction c'est parceque j'ai besoin de ces noms dans plusieurs procédures indépendantes donc ca m'evite de tout avoir à redeclarer...

Aussi, grâce à jmfmarques qui a pensé à utiliser Let

Je dors encore ou jmf n'a pas posté de message ??

Voilà j'ai essayé de voir le Ubound que theo m'a conseillé mais je comprend pas trop en quoi il peut m'aider.