Variable tableau constante

Version imprimable

28/08/2018, 23h49
Dédé6621

Variable tableau constante
Bonjour à toutes et à tous,

Je cherche avec beaucoup de ferveur un moyen de disposer en tout point de mon code de chaînes de caractères composés de deux blocs, l’un étant au nombre de 6, l’autre au nombre de 20, soit combinés 120 chaînes. L’idéal serait de pouvoir appeler ces chaînes au moyen de deux numéros d’index, comme dans une variable tableau à deux dimensions, mais sans avoir à attribuer toujours les mêmes valeurs dans chaque procédure. D’où le nom de la discussion.

Sauf que je ne pense pas que ce genre d’écriture soit possible:
Code:

1 2 3 4 Public Const TblChaîne(1,1) as String = ”00AA” Public Const TblChaîne(2,1) as String = ”01AA” Public Const TblChaîne(1,2) as String = ”00BB” etc.
J’ai cherché du côté des énumérations, mais ça ne convient pas.

Est-ce que vous auriez d’autres pistes? Type utilisateur? Module de classe?

Merci d’avance

Bonjour,

Pas sûr de bien comprendre mais peut être avec des constantes matricielles ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Test()
 
    Dim T
 
    'constantes matricielles
    T = [{"00AA","01AA","00BB";1,2,3}]
 
    'T(Numéro ordinal de la Matrice, numéro ordinal de l'élément de la matrice) en base 1
    MsgBox T(1, 2) '01AA
    MsgBox T(2, 2) '2
 
End Sub

Bonjour,

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
Public dicReg as object
Property Get TblChaîne(L As Integer,C as integer) As Variant
If TypeName(dicReg) = "Nothing" Then 
    Set dicReg = CreateObject("Scripting.Dictionary")
    initialisation
End if
TblChaîne = dicReg(L & "_" & C)
End Property
Property Let TblChaîne(L As Integer,C as integer, Value As Variant)
If TypeName(dicReg) = "Nothing" Then
     Set dicReg = CreateObject("Scripting.Dictionary")
     initialisation
End if
dicReg(L & "_" & C) = Value
End Property
Sub initialisation()
 TblChaîne(1,1) = "00AA"
 TblChaîne(2,1) = "01AA"
 TblChaîne(1,2) = "00BB"
 
End sub
Sub test()
Msgbox TblChaîne(1,1)
End sub

29/08/2018, 07h56
Dédé6621

Merci pour vos réponses.

Citation:

Envoyé par Theze

Pas sûr de bien comprendre mais peut être avec des constantes matricielles ?

C’est l’esprit en effet. Mais j’ai bien l’impression qu’il faudrait alors appeler cette procédure à chaque fois que nécessaire, juste? Quelle est la différence avec une variable tableau?

@dysorthographie
Merci pour l’écriture du code. Doit-il être placé dans un module de classe ou dans un module standard?

Citation:

Mais j’ai bien l’impression qu’il faudrait alors appeler cette procédure à chaque fois que nécessaire, juste?

non, tu déclare la variable en tête de module, tu initialises et ensuite tu peux utiliser n'importe où :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public T 'en tête d'un module standard de cette façon, la portée générale et la durée de vie celle du classeur tant qu'il est ouvert Sub Ini() 'à exécuter avant tout appel 'constantes matricielles T = [{"00AA","01AA","00BB";1,2,3}] End Sub Sub AppelValeur() MsgBox T(1, 2) '01AA MsgBox T(2, 2) '2 End Sub

j'ai modifié mon poste! tu le mets dans un module sandard et tu l’utilises comme si c’était un tableau constance.

Code:

1
2
3
Sub test()
MsgBox TblChaîne(1, 1)
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public dicReg As Object
Property Get TblChaîne(L As Integer, C As Integer) As Variant
If TypeName(dicReg) = "Nothing" Then
    Set dicReg = CreateObject("Scripting.Dictionary")
    initialisation
End If
TblChaîne = dicReg(L & "_" & C)
End Property
Property Let TblChaîne(L As Integer, C As Integer, Value As Variant)
If TypeName(dicReg) = "Nothing" Then
     Set dicReg = CreateObject("Scripting.Dictionary")
     initialisation
End If
dicReg(L & "_" & C) = Value
End Property
Sub initialisation()
 TblChaîne(1, 1) = "00AA"
 TblChaîne(2, 1) = "01AA"
 TblChaîne(1, 2) = "00BB"
 
End Sub

30/08/2018, 07h36
Dédé6621

Faute d’avoir pu encore testé ces éléments, je vous dis merci, car ils font sens pour moi.

@Theze
En revanche, j’ai l’impression que la constante n’a qu’une dimension. J’aurais besoin de deux dimensions pour assembler deux blocs de chaîne.

@dysorthographie
Ça m’a l’air super!
Par curiosité, y a-t-il une logique ou une bonne pratique derrière l’appellation de la variable [i]dicReg[/]?
30/08/2018, 07h56
Theze

Bonjour,

Citation:

En revanche, j’ai l’impression que la constante n’a qu’une dimension. J’aurais besoin de deux dimensions pour assembler deux blocs de chaîne.

non, le tableau a bien deux dimensions, tableau à une dimension --> T(2), tableau à deux dimensions --> T(1, 2), tableau à trois dimensions --> T(1, 2, 3)

1 pièce(s) jointe(s)

Citation:

Envoyé par Dédé6621

@dysorthographie
Ça m’a l’air super!
Par curiosité, y a-t-il une logique ou une bonne pratique derrière l’appellation de la variable [i]dicReg[/]?

Bonjour,
TblChaîne = dicReg( "1_2")

TblChaîne est une propriété (une variable logiciel ) on peut y écrire (Let) ou la lire (Get).

TblChaîne(1, 1) = "00AA"
var=TblChaîne(1, 1)

dicReg est une collection (une sorte de variable tableau ou tous les éléments peuvent être nommés).

dicReg("1_1") = "00AA" {dicReg(nom)=valeur}

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
26
27
28
29
30
31
32
33
34
35
36
Public dicReg As Object
Sub test()
MsgBox TblChaîne(10, 1)
Dim k, i As Integer
k = dicReg.Keys
For i = 0 To dicReg.Count - 1
    Debug.Print k(i), dicReg(k(i))
Next
End Sub
 
 
Property Get TblChaîne(L As Integer, C As Integer) As Variant
If TypeName(dicReg) = "Nothing" Then
    Set dicReg = CreateObject("Scripting.Dictionary")
    initialisation
End If
TblChaîne = dicReg(L & "_" & C)
End Property
Property Let TblChaîne(L As Integer, C As Integer, Value As Variant)
If TypeName(dicReg) = "Nothing" Then
     Set dicReg = CreateObject("Scripting.Dictionary")
     initialisation
End If
dicReg(L & "_" & C) = Value
End Property
Sub initialisation()
Dim L As Integer, C As Integer
For L = 1 To 20
    For C = 0 To 5
        TblChaîne(L, C + 1) = Format(L, "00") & AA(C)
    Next
Next
End Sub
Function AA(i As Integer) As String
AA = Chr(65 + i) & Chr(65 + i)
End Function

Pièce jointe 407707

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub initialisation()
Dim L As Integer, C As Integer
For L = 1 To 20
    For C = 0 To 5
        TblChaîne(L, C + 1) = Format(L, "00") & AA(C)
    Next
Next
End Sub
Function AA(i As Integer) As String
AA = Chr(65 + i) & Chr(65 + i)
End Function