Discussion :

[ivoratparis]

Bonjour,

Je voudrais concaténer un tableau de type String avec la fonction Join, mais, il m'affiche l'erreur d'incomptabilité de type. Voici mon code:

Code :

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

1
2
3
4
5
6
7
Dim reliquat() As String
Dim StrJoin As String
For a = 1 To UBound(reliquat)
 
   StrJoin = Join(reliquat(a), ",")
 
Next a

merci en avance

[mercatog]

Sans Boucle

Code :

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

StrJoin = Join(reliquat, ",")

[Daniel.C]

Bonjour,

Tu ne peux pas utiliser "UBound" avec une variable de type "String". En outre, ton utilisation de "Join" est incorrecte; voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Dim reliquat()
Dim StrJoin As String
ReDim reliquat(2)
reliquat(0) = "toto"
reliquat(1) = "titi"
reliquat(2) = "tata"
 
StrJoin = Join(reliquat, ",")
 MsgBox StrJoin