Bonjour,
j'ai une petite macro où j'ai traité et concaténer des données, le résultat est impeccable avec Debug.Print.
En revanche, impossible de récupérer le résultat pour le placer dans des cellules, la méthode Range échoue à chaque fois, je sèche.
Merci pour votre aide.

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
26
27
28
29
<s>Sub ConcaTest()
'Parcourir les lignes
Dim i As Integer
'Parcourir les colonnes
Dim j As Integer
 
Dim vartab As Variant
vartab = Range("A1:B6")
 
Dim sValeur As String
 
'boucler sur les lignes
For i = 1 To UBound(vartab, 1)
'ameliorer affichage
    sValeur = ""
'boucler sur les colonnes
For j = 1 To UBound(vartab, 2)
    sValeur = sValeur & "-" & vartab(i, j)
 
    Next j
    sValeur = Right(sValeur, Len(sValeur) - 1)
    Debug.Print sValeur
 
    Next i
 
Range("D1:D6")(sValeur) = sValeur
 
 
End Sub</s>