Revenir à la ligne avec un concatener

Le dernier & je le met aussi ?

Désolé j'ai essayé avec et sans: avec ça met erreur ^^ et sans ça me donne le même resultat que quand je mets le chr(10)

Cordialement

merci :) j'avais compris le & mais si tu ne met rien apres ca ne peux pas fonctionner :/ en tout cas moi ca veut pas ^^"
Cordialement

En fait ce que je veux c'est concatener dans une cellule, les cellules pleines de la plage selectionnées. Les données sont alors regroupées dans une cellule separé par un ";". c'etait parfait ^^.
Cependant il m'a été demandé que les données soit separé par un retour à la ligne, du style:

topic1
topic2
topic3
tous ca dans une cellule ^^.

Je sais pas si j'ai été claire, dis moi si tu n'a pas compris :)
Cordialement

au lieu de: topic1; topic2; topic3

Et normalement il y a un 3 apres le dernier "Topic"

Bonjour,

via55 à deja proposé cette idée mais chez moi ca marche pas (CAR(10)=Chr(10) ) je crois ^^".

Cordialement

que vous utilisez CAR dans une formule ou CHR dans la fonction, c'est le formatage de la cellule qui reçoit le résultat dont je parlais.
Ce formatage est indispensable quand on utilise CAR(10) dans une formule, ne l'est pas quand on utilise chr(10) dans une macro, mais dans une fonction personnalisée, je ne sais pas.
Mais bon, vous avez surement essayé;
crdlmnt

Ah le formatage ! desolé j'avais mal compris ^^" j'ai deja formaté la cellule concerné (comme vous et mike me l'avais dis) et ca donne le resultat ci dessus avec cette macro :

Function Concatener1(Plage As Range) As String
Dim C As Range
Dim Texte As String
For Each C In Plage
If C <> "" Then
Texte = Texte & vbCrLf & C.Value
End If
Next C
If Len(Texte) > 0 Then Concatener1 = Left(Texte, Len(Texte) - 2)
End Function


Mais ca elimine la moitié de la derniere valeur et il y a un espace entre le haut de la cellule et la premiere donnée.

... en fait, ça fonctionne à priori correctement si on enlève & vbCrlf
soit:
Texte = Texte & C.Value & chr(10)
c'est tout ce que je peux en dire
bonne chance
crdlmnt

Ah ouais ^^ merci beaucoup !!! ^^

Cordialement

Merci Beaucoup ! ;)