cathodique
XLDnaute Barbatruc
Bonsoir Le Forum,
N'ayant pas trouver de solution, je vous demande de m'aider.
Voilà, avec ce code je transfère 4 colonnes. Je voudrais qu'au lieu de transférer que la colonne A, transférer la concaténation des colonnes 2,3 et 10. Débutant, je rame depuis 2 jours. Je n'ai pas trouvé de solution. Mettre la concaténation dans un tableau temporaire? Mettre un array dans un autre array? Ou faire une autre boucle? J'ai émis plusieurs hypothèses et reste bloquer quand il s'agit de coder.
Je vous remercie beaucoup.
Cordialement,
Cathodique.
N'ayant pas trouver de solution, je vous demande de m'aider.
Code:
bd.Range("A1").AutoFilter field:=2, Criteria1:="Station"
'Source = Cells(lg, 2) & Chr(10) & Cells(lg, 3) & Chr(10) & Cells(lg, 10) 'à mettre sur feuille "Station" en col A
txS = Array(2, 4, 5, 11) ' tx source
txD = Array(1, 2, 3, 4) 'tx destination
For x = 0 To 3
Set dics = CreateObject("Scripting.Dictionary")
For Each cel In pl.Offset(0, txS(x)).SpecialCells(xlCellTypeVisible)
dics(cel.Value) = ""
Next cel 'prochaine cellule de la boucle 2
o.Cells(8, txD(x)).Resize(dics.Count) = Application.Transpose(dics.keys)
Next x
bd.Range("A1").AutoFilter 'Voilà, avec ce code je transfère 4 colonnes. Je voudrais qu'au lieu de transférer que la colonne A, transférer la concaténation des colonnes 2,3 et 10. Débutant, je rame depuis 2 jours. Je n'ai pas trouvé de solution. Mettre la concaténation dans un tableau temporaire? Mettre un array dans un autre array? Ou faire une autre boucle? J'ai émis plusieurs hypothèses et reste bloquer quand il s'agit de coder.
Je vous remercie beaucoup.
Cordialement,
Cathodique.