XL 2016 concatenation

Cousinhub à dit:

Hi,
Dans ton fichier, il n'y a rien en colonne B
Et quoiqu'il arrive, on ne peut dépasser cette limite signalée par @job75 , dans une seule cellule

Cliquez pour agrandir...

finarobert à dit:

je vous joints un fichier à 20000 lignes, il peut faire 300000 lignes mais si cela marche pourr 20000, je pourrai découper.

Cliquez pour agrandir...

sylvanu à dit:

Re,

32767 est le nombre max de caractères dans une cellule.
Est ce que ce sera le cas ou est ce qu'il y aura des "<ident xx" dans ces lignes ?
Dans ce cas cela ne posera pas de problèmes car le max est de 32767 caractères après concaténation, non le nombre de lignes.

Quand à gérer 30000 lignes cela ne pose pas de problème, c'est la macro qui cherche la dernière ligne a traiter, ce sera donc automatique.

Cliquez pour agrandir...

finarobert à dit:

la ligne des <ident xx ne sera pas plus long et ne change pas. Merci pour tout. Robert

Cliquez pour agrandir...

sylvanu à dit:

Re,
Un essai en PJ. Si la chaine dépasse 32767 caractères, le reste est en colonne B.
A noter que dans votre post #1 l' ident commence par ">", dans votre fichier l'ident commence par "<". J'ai adapté.

Cliquez pour agrandir...

Cousinhub à dit:

Hello,
Isn't it?

Cliquez pour agrandir...

sylvanu à dit:

@Cousinhub,
Yes sir, mea culpa.
Je ne m'en suis rendu compte qu'à la mise au point de la macro.

Cliquez pour agrandir...

job75 à dit:

J'utilise cette macro dans la feuille "Résultat" :

VB:

Private Sub Worksheet_Activate()
Dim i&, a, n&, j&
Application.ScreenUpdating = False
Cells.ClearContents 'RAZ
On Error Resume Next 'si aucune SpecialCell
With Sheets("Feuil2").UsedRange.Columns(1).SpecialCells(xlCellTypeConstants)
    If Err Then Exit Sub
    On Error GoTo 0
    ReDim resu(1 To 2 * .Areas.Count, 1 To 1)
    For i = 1 To .Areas.Count
        a = .Areas(i).Resize(, 2) 'matrice, au moins 2 éléments
        n = n + 1: resu(n, 1) = a(1, 1)
        n = n + 1: resu(n, 1) = "<"
        For j = 2 To UBound(a)
            resu(n, 1) = resu(n, 1) & a(j, 1)
        Next j
        If Len(resu(n, 1)) > 32767 Then MsgBox Len(resu(n, 1)) & " caractères en ligne " & n, , "Dépassement"
    Next i
End With
'---restitution---
Cells(1).Resize(n) = resu
End Sub

Seule la ligne 828 dépasse les 32767 caractères, on peut vivre avec...

Cliquez pour agrandir...