Bonjour,
Je voudrais récupérer des chaines de caractère dans plusieurs cellules sur une colonne (nombre de cells variable),
et inscrire ces chaines à la suite les une des autres dans une autre cell, séparés par une virgule et une espace.
J'ai beau chercher partout, je ne trouve pas de solution.
Pour l'instant, tout ce que j'ai réussi à faire, c'est collecter les chaines de carractère pour les mettre dans une tableau :
Dim Ll%, Pl%, C%, code&, taille%
Ll = Range("Postes").Find("").Row 'N° de ligne de la 1iere cell vide de la plage "Postes"
Pl = Range("postes").Row 'N° de la 1iere cell de la plage "Postes"
C = Range("postes").Column 'N° de Colonne de la plage "Postes"
Dim tabCode()
taille = Ll - Pl
ReDim tabCode(taille)
' trouve tous les codes utilisés dans la facture et les range dans un tableau
x = 0
Do
code = Cells(Pl + x, C).Value
tabCode(x) = code
x = x + 1
MsgBox code
Loop While code <> ""
For T = 0 To x - 2
MsgBox tabCode(T)
Next
quelqu'un peut-il m'aider?