concatener X cellules

D

donovan

Guest

• 20 Octobre 2005

• #2

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

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 20 Octobre 2005

• #3

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.

Â+

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 20 Octobre 2005

• #4

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

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 20 Octobre 2005

• #5

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.

Â+

 

Vote positif 0 Vote négatif

D

donovan

Guest

• 20 Octobre 2005

• #6

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

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 20 Octobre 2005

• #7

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

Cliquez pour agrandir...

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,

 

Vote positif 0 Vote négatif

F

fatu

Guest

• 10 Mars 2006

• #8

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

 

Vote positif 0 Vote négatif