Discussion :

[Eric93]

Bonjour,

Je dois initialiser un tableau à 2 dimensions de la facon suivante :

Code :

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

t = Array(Array(1, xlTextFormat), Array(2, xlTextFormat), ... , Array(n, xlTextFormat)

Sachant que n est une variable

Existe t-il une syntaxe simple qui tiendrais dans une seule instruction ou est-on obligé de faire une boucle ?

Je dois passer ce tableau en argument d'une fonction, c'est pourquoi je voulais éviter de faire une boucle et le passer direct.

Merci

Même avec une boucle je trouve pas la syntaxe

[Eric93]

En recherchant dans le forum j'ai trouve ce post ou AlainTech donne une solution mais pour moi, ca ne marche, j'ai une erreur d'excution 13 (imcompatibilité de type) au moment de l'affectation

J'ai fait

Code :

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

1
2
3
4
Dim t As Variant
For c = 1 To col
  t(c) = Array(c, xlTextFormat)
Next c

[tirex28]

Bonjour,

Si tu veux un tableau de tableaux:

Code :

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

1
2
3
4
5
6
7
Dim t()
col = 5
Redim t(1 To col)
For c = 1 To col
  t(c) = Array(c, xlTextFormat)
Next c
MsgBox t(1)(0) '0 car Array renvoie un tableau indice a partir de 0

Si tu veux un tableau a deux dimensions:

Code :

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

1
2
3
4
5
6
7
8
Dim t()
col = 5
Redim t(1 to 2, 1 to col)
For c = 1 To col
  t(1,c) = c
  t(2,c) = xlTextFormat
Next c
MsgBox t(1, 1)

Personellement, je préfere la deuxieme option.

Cordialement,

Tirex28/

[Eric93]

Merci pour ces infos

Apparemment on peux aussi écrire

Code :

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

Redim t(col)

pour le tableau de tableau et

Code :

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

Redim t(2,col)

pour le tableau à 2 dimensions.

Je préfère aussi la 2ème option, mais dans ce cas je n'ai pas le choix car c'est pour passer l'argument FieldInfo de la méthode TextToColumns qui demande ce format la.

Merci encore

[Singular]

Le problème est-il résolu???

[Eric93]

Après différent essais j'ai compris la différence

Redim (1 to col) --> l'indice commence à 1
Redim (col) --> l'indice commence à 0

Dans mon cas je dois faire Redim (col-1)

Merci encore

[Eric93]

oui merci Singular