Discussion :

[StephMtl]

Bonjour

Je cherche une macro pour etre capable de concaténer des milliers de lignes (plus de 12 000).
J'avais trouvé la macro suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ConcatRange(inputRange As Range, Optional delimiter As String) As String
    Dim oneCell As Range
    With inputRange
        If Not (Application.Intersect(.Parent.UsedRange, .Cells) Is Nothing) Then
            For Each oneCell In Application.Intersect(.Parent.UsedRange, .Cells)
                If oneCell.Text <> vbNullString Then
                    ConcatRange = ConcatRange & delimiter & oneCell.Text
                End If
            Next oneCell
            ConcatRange = Mid(ConcatRange, Len(delimiter) + 1)
        End If
    End With
End Function

Mais ca bloque.
Avez vous des idées? est ce réalisable d'ailleurs?

Merci

[78chris]

Bonjour

Les cellules ont une taille limite... d'où sans doute la blocage dont tu ne donnes pas les détails.

[StephMtl]

En fait ca me donne une erreur de valeur, mais je vais y aller petit bout par petit bout.

Par contre, avez vous une idée de où je fois modifier le code pour qu'entre chacune de mes lignes, cela affiche une virgule? ','

Je tiens à préciser que j'ai essayer de modifier dans la barre directement en mettant
=ConcatRange(A4:A9 ",")

Mais ca ne marche pas

Merci

[mercatog]

A mettre dans un module public

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function ConcatRange(Rng As Range) As String
Dim c As Range
Dim S As String
 
For Each c In Rng
    If c.Text <> vbNullString Then S = S & "," & c.Text
Next c
If Len(S) > 1 Then ConcatRange = Mid(S, 2)
End Function

En B12:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ConcatRange("A1:B11")

[StephMtl]

Merci ))