TExte concatene

C

C@thy

Guest

• 26 Novembre 2003

• #2

bonjour Sébastien
=A1&";"&A2&";"&A3

C@thy

 

Vote positif 0 Vote négatif

S

sebastien

Guest

• 26 Novembre 2003

• #3

Merci pour cette rapide réponse 🙂

Le blème c'est que j'ai 1927 ligne donc tu vois la formule de ouf !!!
c'est pour ca que j'essaye de passer par un ensemble avec le :

Tu vois?

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 26 Novembre 2003

• #4

Arfff! tu veux concaténer 1927 valeurs dans une même cellule?

On peut écrire une macro qui fait ça, mais on est limité à 1024 caractères pour une cellule

C@thy

 

Vote positif 0 Vote négatif

S

sebastien

Guest

• 26 Novembre 2003

• #5

je t'explique mon bleme:

je dois creer un fichier texte (.txt) d'adresses email pour pouvoir l'importer dans outlook express

Comme toutes les adresses sont dans un classeur excel c'est pour ca que j'essaye de concatener le tout en une cellule. (si c'est plusieurs cellule c'est pas grave)

argh pas évident cette affaire

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 26 Novembre 2003

• #6

voici une ch'tite macro, mais avec la réserve que je t'ai dite, à savoir trop, de caractères dans une cellule

derligne = Range("A65535").End(xlUp).Row
Range("A1").Select
toto = ActiveCell.Value & ";"
For i = 2 To derligne
toto = toto & Range("A" & i).Value & ";"
Next
Range("D1").Select
ActiveCell.Value = toto

C@thy

 

Vote positif 0 Vote négatif

S

sebastien

Guest

• 26 Novembre 2003

• #7

merci je vais essayer pour voir ca

 

Vote positif 0 Vote négatif

S

sebastien

Guest

• 26 Novembre 2003

• #8

Ok ca fonctionne tu es une chef ! 🙂 a+ C@thy

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 26 Novembre 2003

• #9

Sauf qu'il doit y avoir un ";" en trop à la fin

C@thy

 

Vote positif 0 Vote négatif

L

LaurentTBT

Guest

• 26 Novembre 2003

• #10

Bonjour à tous

Voici ce qui est écrit dans l'aide de VBA à la rubrique String:
Les chaînes de longueur variable peuvent contenir environ 2 milliards (2^31) de caractères. Donc, avec 500 lignes, donc 500 mots dont la moyenne doit être <à 10 lettres par mot, il reste de la marge.

Bien sûr, il ne faut pas remettre la variable Toto de C@thy dans une cellule pour ne pas la brider, mais poursuivre le travail sous VBA pour aller copier ce que contient cette variable directement dans le fichier texte, mais là, je ne sais pas faire la suite (travailler sur word par exemple, à partir d'une macro excel, et enregistrer le document word en format .txt)

Donc voilà la même chose que C@thy en plus ramassé:

Sub ConcatenerTexte()
Dim Chaîne As String
Dim i As Integer
For i = 1 To Range("A65535").End(xlUp).Row
Chaîne = Chaîne & Range("A" & i) & ";"
Next i
' Mettre ensuite le contenu de Chaîne dans un fichier .txt
End Sub

Je cherche encore la suite.

@+. Laurent.

 

Vote positif 0 Vote négatif

S

sebastien

Guest

• 26 Novembre 2003

• #11

Dites pour faire un retour chariot c''est pôssible dans la macro?

en gros

Chaîne & Range("A" & i) & ";" &"\n"

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 26 Novembre 2003

• #12

oui, il suffit de rajouter & Chr(10) pour le retour chariot

C@thy

 

Vote positif 0 Vote négatif

S

sebastien

Guest

• 26 Novembre 2003

• #13

alors là merci 🙂

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 26 Novembre 2003

• #14

On reconnaît bien là la patte de Laurent. Beaucoup plus pro que moi (je balbutie)

C@thy

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 26 Novembre 2003

• #15

Bonsoir le fil, le Forum

En (A1:An) ta colonne texte

Tu mets en B1 : = A1
en B2 : =B1 & ";" & A2

puis recopie incrémentée à partir de B2 (double clic sur cellule B2 en bas à droite, c'est plus rapide)

et, pour voir ton résultat par exemple en haut de la feuille en cellule D1 tu mets :

=INDIRECT("B"&MAX(SI(B1:B65535<>"";LIGNE(B1:B65535))))

en formule matricielle (CRTL + SHIFT + ENTREE)

Bonne soirée

PhiBou

 

Vote positif 0 Vote négatif