tableau dynamique de deux dimensions

Version imprimable

31/07/2008, 11h09
lecamer

tableau dynamique de deux dimensions
Bonjour ,
ma question est la suivante.
peut on déclarer un tableau à deux dimensions accessible dans toute l'application (donc en global),et si oui comment.
j'ai essayé tout ce qui me vient en tête :
Code:

1 2 3 global tableau ()() as string global tableau (6)() as string global tableau (6,) as string
et tjrs une erreur.
Sur le net je vois rien de bons.
Avez vs une solution??
Merci d'avance

Public, dans un module standart.

1er cas
syntaxe () pour un tableau à 1 ou plusieurs dimensions
Si le tableau est prédimensionné, il ne peut plus être redimensionné ultérieurement

2ème cas
Syntaxe ()() => il s'agit de tableaux imbriqués (peu maniables)

ex

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public tableau() As String  'ou
Public tableau1(6, 2) As String
 
Public tableau2()
 
Sub exemple1()
 
    ReDim tableau(6, 2) ' equivalent à tableau1 mais redimensionnable dynamiquement
End Sub
 
 
 
Sub exemple2()
    ' Tableaux imbriqués
    Dim incTableau() As String 
 
    ReDim tableau2(6)
    For x = 0 To 6
        ReDim incTableau(x)
        incTableau(x)=x
        tableau2(x) = incTableau
    Next
 
    Debug.Print tableau2(1)(1)
End Sub

31/07/2008, 12h12
Delbeke

Et pour le rendre global à ton application, il faut ajouter un module à ton application et y mettre les déclarations données par DarkVader

Citation:
Envoyé par DarkVader
Public, dans un module standart.

1er cas
syntaxe () pour un tableau à 1 ou plusieurs dimensions
Si le tableau est prédimensionné, il ne peut plus être redimensionné ultérieurement

2ème cas
Syntaxe ()() => il s'agit de tableaux imbriqués (peu maniables)

ex
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Public tableau() As String 'ou Public tableau1(6, 2) As String Public tableau2() Sub exemple1() ReDim tableau(6, 2) ' equivalent à tableau1 mais redimensionnable dynamiquement End Sub Sub exemple2() ' Tableaux imbriqués Dim incTableau() As String ReDim tableau2(6) For x = 0 To 6 ReDim incTableau(x) incTableau(x)=x tableau2(x) = incTableau Next Debug.Print tableau2(1)(1) End Sub
C'est ce que je fais,c'est à dire,je déclare un tableau

Code:

Public tableau() As String

ensuite dans ma fonction private sub calcul_click()
je fais

Code:

ReDim tableau(6, 2)

puis qd j'ai besoin de redimmensionner, j'utilise

Code:

ReDim preserve tableau(6, 2)

mais si j'appelle par exemple private sub assigneval() dans private sub calcul_click() , alors là je perds les données de "tableau "dans assigneval.
D'où ma demande:déclarer un tableau dynamique en global pour pouvoir conserver les données qui y sont entrées

31/07/2008, 13h35
DarkVader

Citation:

Envoyé par lecamer

C'est ce que je fais,c'est à dire,je déclare un tableau

Code:

Public tableau() As String

ensuite dans ma fonction private sub calcul_click()
je fais

Code:

ReDim tableau(6, 2)

.../...

.../...
mais si j'appelle par exemple private sub assigneval() dans private sub calcul_click() , alors là je perds les données de "tableau "dans assigneval.
.../...

Si tu fais un redim c('est normal
31/07/2008, 13h45
lecamer

Citation:

Envoyé par DarkVader

Si tu fais un redim c('est normal

:D c'est ce que j'ai fini par comprendre.
Mais que faire , là est la question:cry:
31/07/2008, 13h50
DarkVader

Encadre ton redim par une boucle conditionnelle testant le tableau
(Isempty ou typename ...)
31/07/2008, 13h59
lecamer

Ca ne changera rien au fait que lorsque le tableau ne sera pas vide,et que j'appelerai assigneval, je n'aurai plus les données dans le tableau.
Ou j'ai mal compris...,si c'est le cas peut tu etre plus explicite stp
31/07/2008, 14h07
DarkVader

Si c'est le redim qui réinitialise le tableau, en pratiquant comme décrit,
le redim ne sera plus effectué qu'à la première exécution.

Au cas où je n'aurais pas compris, tu ferais bien d'être plus explicite
quitte à exposer ton code.
31/07/2008, 14h30
lecamer

Ok ,tu n'a pas compris, je me suis donc mal exprimé et je vais essayer d'être plus clair.
Deja j'utilise redim plusieurs fois ie à chaque fois que je veux ajouter un élément dans le tableau.
Ensuite,ce n'est pas là que se trouve le problème, mais plutôt dans la fonction que j'appelle ie assigneval ici.Car c'est là que je voulais utiliser les données du tableau mais ils n'y sont plus.
Je vais modifier la signature de la fonction assigneval,en passant le tableau en paramètre et en Byrefc ie assigneval (byref tableau () as string),et j'espère que ca marchera.
Je ne voulais pas en arriver là car c'est une fonction utilisée bcp de fois dans le logiciel.
J'espère que je me suis mieux exprimé
31/07/2008, 15h36
lecamer

J'ai fais le passage en paramètre du tableau avec byref et cette solution marche,s'il n'y a pas une meilleure solution,je conserverai celle la.
Merci pour les posts et les propositions de solution