concatener X cellules

[donovan]

Bonjour a tous.

Avez-vous une solution simple pour concatener X cellules de A1 a AZ 4000, en une seule et même chaîne dont chaque élément serait sépararé par une virgule ?

Merci d'un debutant !!!!!!!! :unsure:

 

[donovan]

precision:
En fait il faudrait concatener la première ligne et ranger le resultat dans une autre feuille en A1
et ainsi de suite pour chaque Ligne
:S
Merci :S

 

[andré]

Salut,

Il y a moyen, pour autant que tu ne dépasses pas lalimte des caractères autorisés par XL :

Longueur du contenu des cellules (texte) 32 767 caractères. Affichage de 1 024 uniquement dans une cellule et 32 767 dans la barre de formule.

Ensuite par une très longue formule :

=Feuil1!A1&', '&Feuil!1B1&'' '&Feuil1!C1& ...

Heureusement encore que cette formule s'incrémente en la copiant vers le bas !

Courage.

Â+

 

[Tibo]

Salut Donovan,

Le plus simple :

=Feuil1!A1&','&Feuil1!B1&','&Feuil1!C1&','&Feuil1!D1&','&Feuil1!E1..................... =Feuil1!A1&','&Feuil1!B1&','&Feuil1!C1&','&Feuil1!D1&','&Feuil1!AZ1

C'est certes lourd, mais ça marche.

A voir peut-être du côté des matricielles ??

Attendons le passage de spécialistes du domaine.


Bonne soirée

@+

Edition : Salut André, petit téléscopage sans gravité. Bonne soirée à toi.

Message édité par: tibo, à: 20/10/2005 18:36

 

[andré]

Salut Tibo,

Presque la même chose, moi j'avais mis un espace après la virgule (lol).

Il y a moyen de faire plus court : concatener sur la même feuille, puis copier le résultat sur l'autre, ce qui raccourcit quand même pas mal la formule.

J'ai essayé la matricelle, sans résultat.

Â+

 

[donovan]

Salut andré, Tibo, .......
😱
Une solution en VB serait il possible?
mille merci
🙁

 

[myDearFriend!]

Bonsoir donovan, andré, Tibo, le Forum,

Une tentative par VBA :

Sub Concatener()
Dim Plage As Range, C As Range
Dim Chaine() As String
Dim Result As String
Dim i As Long
      Set Plage = Sheets(1).Range('A1:AZ4000')
      ReDim Chaine(1 To Plage.Count)
      For Each C In Plage
            i = i + 1
            Chaine(i) = C.Value
      Next C
      Result = Join(Chaine, ',')
     
      'Affiche la fenêtre d'exécution et affiche le résultat
      Application.VBE.MainWindow.Visible = True
      MsgBox 'Longueur de la chaine résultat = ' & Len(Result) & 'Caractères'
      Debug.Print Result
      Application.VBE.Windows('Exécution').Visible = True
End Sub

Compte tenu de la longueur de la chaine ainsi obtenue, cette macro affichera le résultat directement dans la fenêtre d'exécution de VBE...

Cordialement,

 

[fatu]

😉 😛 :silly: 😛inch: :S :whistle: 🙂 😱 :side: :woohoo: 😛 :evil: :S :S :huh: :ermm: [file]