Discussion :

[bartimeus35]

Je voudrais déclarer un tableau de couples de chaines de caractère et un autre de couples de nombres,

Je fais

Code :

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

1
2
3
4
5
6
 
Dim numbers = {{1, 2}, {3, 4}, {5, 6}}
 
Dim customerData = {{"id_nom", "NOM"},
                    {"id_prenom", "PRENOM"},
                    {"id_toto", "TOTO"}}

Ca ne foncttionne pas, any idea ??

[Jean-Philippe André]

Bonjour,

en VBA, il faudra utiliser les parenthèses plutôt que les accolades.

D'autre part, pour les tableaux, tu peux passer par le mot clé Array.

UN peu de lecture
https://didier-gonard.developpez.com...s-tableau-vba/

la déclaration et l'affectation se font sur deux instructions

Code :

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

1
2
Dim numbers As Variant
numbers = Array(Array(1, 2), Array(3, 4), Array(5, 6))

Mais bien sûr ce ne sont là que des idées, car nous ne savons pas exactement quelle sera leur utilisation ultérieure.

[tee_grandbois]

bonsoir,
les accolades {} ne sont pas des séparateurs de valeurs pour les tableaux en VBA mais plus probablement en VB.
Pas si simple qu'on le croit d'alimenter un tableau à 2 dimensions à partir d'une chaine de caractères. Personnellement je n''utilise jamais les 2 dimensions...
Une solution possible avec le code trouvé sur ce site et un peu retravaillé, devrait te tirer d'affaire:

Code :

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

1
2
3
4
5
6
7
8
9
Sub tablo2Dim()
Dim customerdata As String
Dim tabloCust2d As Variant
 
customerdata = "(id_nom, NOM),(id_prenom, PRENOM),(id_toto, TOTO)"
 
tabloCust2d = EvaluateString(customerdata)
Debug.Print "impression des premières valeurs du tableau: dim1= " & tabloCust2d(0, 1) & " / dim2= " & tabloCust2d(0, 2)
End Sub

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
Function EvaluateString(txtstring As Variant) As Variant
Dim i As Integer, L As Integer
Dim txtArray As Variant, txtArray2d As Variant
 
txtArray = Split(txtstring, "),(")
 
If IsEmpty(txtArray) Then L = 0 Else L = UBound(txtArray)
 
'remove leading "(" and last ")"
txtArray(0) = Replace(txtArray(0), "(", "")
txtArray(L) = Replace(txtArray(L), ")", "")
 
ReDim txtArray2d(0 To L, 1 To 2)
 
For i = 0 To L
   txtArray2d(i, 1) = Split(txtArray(i), ",")(0)
   txtArray2d(i, 2) = Trim(Split(txtArray(i), ",")(1))
Next i
EvaluateString = txtArray2d
End Function

[bartimeus35]

Jean-Philippe,
Ca marche nikel aves des () ,
Mais si j'ai une liste de 50 Array ds mon Array, peut on faire des sauts de ligne genre ci dessous pour améliore le lisibilité , j'ai essayé mais ça ne fonctionne pas

Code :

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

1
2
3
4
5
 
Dim data_to_checkAs Variant
data_to_check= Array(Array(1, 2), 
                       Array(3, 4), 
                       Array(5, 6))

[tee_grandbois]

bonsoir Jean-Philippe,

la déclaration et l'affectation se font sur deux instructions

en effet pourquoi faire compliqué... tu sembles plus à l'aise que moi dans la manipulation des tableaux

Mais bien sûr ce ne sont là que des idées, car nous ne savons pas exactement quelle sera leur utilisation ultérieure

peut-être est-ce suite à cette discussion ?
mais il y a probablement une solution plus simple

[tee_grandbois]

Ca marche nikel aves des () , mais si j'ai une liste de 50 Array ds mon array, peut on faire des sauts de ligne genre ci dessous pour améliore le lisibilité ? ça ne fonctionne pas

Code :

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

1
2
3
4
5
 
Dim data_to_checkAs Variant
data_to_check= Array(Array(1, 2), 
                       Array(3, 4), 
                       Array(5, 6))

il faut mettre un underscore (souligné: _) c'est le caractère de continuation d'une instruction VBA à la fin de chaque ligne:

Code :

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

1
2
3
4
Dim data_to_check As Variant
data_to_check = Array(Array(1, 2), _
                       Array(3, 4), _
                       Array(5, 6))

[bartimeus35]

il faut mettre un underscore (souligné: _) c'est le caractère de continuation d'une instruction VBA à la fin de chaque ligne:

Code :

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

1
2
3
4
Dim data_to_check As Variant
data_to_check = Array(Array(1, 2), _
                       Array(3, 4), _
                       Array(5, 6))