Compiler le contenu de plusieurs cellules

Vilain

XLDnaute Accro

• 7 Juillet 2011

• #2

Re : Compiler le contenu de plusieurs cellules

Bonjour,

tu peux utiliser la fonction concatener ou faire en b1 =A1&";"&A2&";"&...
Cela convient il ?

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 7 Juillet 2011

• #3

Re : Compiler le contenu de plusieurs cellules

bonjour,
en B1, par exemple :

Code:

=compile(A1:A3)

avec cette fonction personnalisée:

VB:

Function compile(cc As Range) As String
Application.Volatile
Dim c As Range
For Each c In cc
    If c <> "" Then compile = compile & CStr(c) & ","
Next c
compile = Mid(compile, 1, Len(compile) - 1)
End Function

ce qui permet de gérer des plages importantes, facilement

 

Vote positif 0 Vote négatif

L

Ludion62

XLDnaute Nouveau

• 7 Juillet 2011

• #4

Re : Compiler le contenu de plusieurs cellules

Merci Gillus pour cette réponse, mais le fichier va contenir plus de 500 cellules, et je me vois mal concatener les 500 cellules manuellement ...
Si tu as une autre solution, en code par exemple, je suis preneur !

Gillus69 à dit:

Bonjour,

tu peux utiliser la fonction concatener ou faire en b1 =A1&";"&A2&";"&...
Cela convient il ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Juillet 2011

• #5

Re : Compiler le contenu de plusieurs cellules

Bonjour à tous

une autre solution,

Code:

Range("B1").Value = Join(Application.Transpose(Range("A1", Range("A65536").End(xlUp)).Value), ";")

A noter qu'il est préférable d'avor le ; comme séparateur si les cellules sont renseignées par des nombres..

bon après midi
@+

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 7 Juillet 2011

• #6

Re : Compiler le contenu de plusieurs cellules

Re, salut softmama,
En effet, ma solution n'est pas adaptée, le code donné plus haut devrait être bien plus efficace...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Juillet 2011

• #7

Re : Compiler le contenu de plusieurs cellules

Bonjour à tous,

Puisque je l'avais écrite sous forme de fonction:

Code:

Function Compile(Plage As Range, Optional strSep As String = ",")
    'Si la plage à plus de ligne que de colonne
    'traiter que la première colonne
    If Plage.Rows.Count > Plage.Columns.Count Then
        Compile = Join(Application.Transpose(Plage.Columns(1)), strSep)
    Else
    'sionon traiter la première ligne
        Compile = Join(Application.Transpose(Application.Transpose(Plage.Rows(1))), strSep)
    End If
End Function

Utilisation dans une cellule:

= Compile (A1:A3)
Ou
= Compile (A1:A3, ";") 'pour changer le séprateur

Ou

= Complie ( A1:C1) ' en ligne
ou
= Compile ( A1:C1,";")

A+ à tous

 

Vote positif 0 Vote négatif

L

Ludion62

XLDnaute Nouveau

• 7 Juillet 2011

• #8

Re : Compiler le contenu de plusieurs cellules

Merci Pierrot93, ça fonctionne parfaitement.
Merci également à tous de vous être penché sur mon problème.

A bientôt.

Pierrot93 à dit:

Bonjour à tous

une autre solution,

Code:

Range("B1").Value = Join(Application.Transpose(Range("A1", Range("A65536").End(xlUp)).Value), ";")

A noter qu'il est préférable d'avor le ; comme séparateur si les cellules sont renseignées par des nombres..

bon après midi
@+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif