CONCATENER 100 cellules

[Alain]

Bonjour

Y-a-t-il un moyen simple de concaténer les cellules A1 à A120. Je ne connais que CONCATENER(A1;A2; ....;A120)



Merci

 

[chris]

On peut replacer par a1 & a2 & a3
mais ça ne gagne pas grand chose.
Chris

 

[STéphane]

bonjour

regarde cette conversation
<http://www.excel-downloads.com/html/French/forum/messages/1_6590_6590.htm>

cela devrait t'aider

bye
stephane

 

[STéphane]

bonjour

quelquechose moins à côté de la plaque ;-)


Sub txttxt()
For Each cl In Range("A1:A150")
txt = txt & IIf(cl.Text <> "", cl.Text & ";", "")
Next cl
[B1] = IIf(Right(txt, 1) = ";", Mid(txt, 1, Len(txt) - 1), txt)
End Sub


bye
Stéphane

 

[STéphane]

bonsoir


j'ai transformé ça en fonction

Function TXT_Concatenation(Plage2Concatenate As Range) As String
For Each cl In Plage2Concatenate: txt = txt & IIf(cl.Text <> "", cl.Text & ";", ""): Next cl: TXT_Concatenation = IIf(Right(txt, 1) = ";", Mid(txt, 1, Len(txt) - 1), txt)
End Function

Sub Demonstration_TXT_Concatenation()
demo = TXT_Concatenation(Range("A1:A150"))
MsgBox demo
End Sub

vous pourriez rajouter une variable pour désigner le séparateur, elle pourrait d'ailleurs être optionnelle.

pour gérer les variables optionnelles que l'utilisateur n'a pas renseigné, il faut utiliser "ismissing"

bye
Stéphane

 

[Alain]

Merci

la fonction fonctionne parfaitement ... et ma d'ailleurs permis de découvrir une limite de 256 caractéres dans une cellule Excel.