concatener pour ligne pour n'en faire qu'une

[laurent]

Bonjour,
je planche un petit bout de temps et je n'arrive pas à concatener .

voila j'ai une serie d'email de A1 à A100
je voudrais pouvoir concatener toutes les lignes pour n'en faire qu'une avec une séparation par 'un point virgule' que je pourrais ensuite importer dans mon bloc note.

pour info c'est pour importer toute une serie d'email pour faire un script php plus tard.

merci pour vos reponse
A bientôt laurent

 

[Robert]

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

Édition

Oops ! Pas frais. Bonjour Staple1600.

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

 

[laurent]

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?

 

[laurent]

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 ;

???

 

[laurent]

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]

 

[Staple1600]

Re à tous,

Sub Macro4()
Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Copy
    Range("B1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
    Columns("A:A").ClearContents
    ActiveWorkbook.SaveAs Filename:= _
       "C:\\testzz.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
End Sub

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

 

[laurent]

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

A bientôt
laurent