concatener pour ligne pour n'en faire qu'une

Bonjour Laurent, bonjour le forum,

Cette macro devrait t'aider :

Sub Macro1()
Dim Em As String 'déclare la variable Em
Dim Cel As Range 'déclare la variable Cel

'boucle sur toutes les cellule éditées de la colonne A
For Each Cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
k = k & Cel.Value & '; ' 'définit la variable k
Next Cel 'prochaine cellule de la boucle

'le message affiche le résultat
MsgBox k
End Sub

Cliquez pour agrandir...

Édition

Oops ! Pas frais. Bonjour Staple1600.

Message édité par: Robert, à: 01/09/2005 15:36

merci pour les réponses si rapide, je vois qu'il y a tes fortiches sur ce site.
mais je suis assez null sur excel et avec ces codes, je fais comment pour les incorporer?

merci, je me suis un peu casser la tete mais je viens de voir comment
creer une macro dans VB

j'ai mis ton script que j'ai modifié pour mes creer un fichier texte.txt :

Sub contener()
Selection.Copy
Range('B1').Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Columns('A:A').Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
'C:Classeur2.txt', FileFormat:= _
xlCSV, CreateBackup:=False
End Sub


mais cela me creer bien un txt mais avec un retour à la ligne pour chaque adresse email?

alors que je desire qu'il soit tous à la ''queue leuleu' séparés par un ;

???

voila j'ai essayer de bidouiller les 2 macros que vous m'avez ecris, jai bien un message d'alerte avec ce que je voudrais, mais quand j'ouvre le fichier txt que la macro a creee j'ai un fichier bloc note format txt avec un retour a la ligne pour chaque email?

ci-joint mon fichier excel [file name=concatener.zip size=7407]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concatener.zip[/file]

Re à tous,


Chez moi cela génère un fichier CSV
(tu peux l'ouvrir avec le bloc-note)
chaque cham est spéaré par un point virgule

Merci cela fonctionne tres bien
super sympa
merci à tous pour votre aide

A bientôt
laurent