Transfert champs concaténés filtrés

[cathodique]

Bonsoir Le Forum,

N'ayant pas trouver de solution, je vous demande de m'aider.

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.

 

[cathodique]

Re : Transfert champs concaténés filtrés

Veuillez m'excuser, j'ai oublié de vous signaler qu'après filtrage sur la feuille source, il ne reste que 7 lignes visibles.

Si ça peut aider pour trouver une solution.

Merci beaucoup.

 

[cathodique]

Re : Transfert champs filtrés concaténés

Bonjour Le Forum,

Ne dit-on pas que la nuit porte conseil? il est aussi bon de se lever tôt.

Donc ce matin, j'ai trouvé une solution.