Discussion :

[lecamer]

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 :

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

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

[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 :

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
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

[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

[lecamer]

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 :

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
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 :

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

Public tableau() As String

ensuite dans ma fonction private sub calcul_click()
je fais

Code :

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

ReDim tableau(6, 2)

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

Code :

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

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

[DarkVader]

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

Code :

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

Public tableau() As String

ensuite dans ma fonction private sub calcul_click()
je fais

Code :

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

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

[lecamer]

Si tu fais un redim c('est normal

c'est ce que j'ai fini par comprendre.
Mais que faire , là est la question

[DarkVader]

Encadre ton redim par une boucle conditionnelle testant le tableau
(Isempty ou typename ...)

[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

[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.

[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é

[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