Microsoft 365 Copier-Coller plusieurs cellules en une seule

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 26 Mars 2021

• #2

Bonjour Bichette01, le forum

Pour chaque cellule d'origine, utilises la barre de formule (à activer dans affichage/barre de formule) pour sélectionner ton texte puis ctrl C pour le copier
sélectionnes ta cellule de destination, et par la barre de formule, sélectionnes la fin de ton texte si il y en a déja un, et fais crtl V pour coller le texte à la suite.
à faire pour chaque cellule d'origine.

Bonne journée, @+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2021

• #3

Bonjour Bichette001, Yeahou,

Voyez le fichier joint et ce code dans Module1 :

VB:

Dim x 'mémorise la variable

Sub Copier()
'raccourci clavier Ctrl+Z
Dim sep As String, c As Range
sep = vbLf 'séparateur à adapter (renvoi à la ligne)
For Each c In Selection
    x = x & sep & CStr(c) 'concaténation
Next
x = Mid(x, Len(sep) + 1)
End Sub

Sub Coller()
'raccourci clavier Ctrl+T
ActiveCell = x
End Sub

Testez comme indiqué.

A+

 

Pièces jointes

• Concaténation(1).xlsm

  16.3 KB · Affichages: 14

Vote positif 0 Vote négatif

B

Bichette001

XLDnaute Junior

• 26 Mars 2021

• #4

merci à vous 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2021

• #5

Ce n'est pas fini.

Sur une grande plage ceci est beaucoup plus rapide :

VB:

Dim x 'mémorise la variable

Sub Copier()
'raccourci clavier Ctrl+Z
Dim sep As String, a$(), c As Range, n&
sep = vbLf 'séparateur à adapter (renvoi à la ligne)
ReDim a(1 To Selection.Count)
For Each c In Selection
    n = n + 1
    a(n) = CStr(c)
Next
x = Join(a, sep) 'concaténation
End Sub

Sub Coller()
'raccourci clavier Ctrl+T
ActiveCell = x
End Sub

J'ai testé en mettant la lettre a dans toutes les cellules de la colonne A.

En sélectionnant cette colonne et en exécutant la macro Copier aucun problème => x = 2097151.

Par contre en exécutant la macro Coller la cellule active ne prend que 32767 caractères, limite d'Excel.

 

Vote positif 0 Vote négatif

B

Bichette001

XLDnaute Junior

• 26 Mars 2021

• #6

vraiment il s'agit + d'une manip simple par la souris ou le clavier que je cherchais à faire .. j'ai mis les celulles ds un csv et j'ai pu recopier ds 1 ..
merci à vous 🙂

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 26 Mars 2021

• #7

De rien, il n'y a pas de question stupide quand on ne sait pas faire !
excellente soirée et si tu aimes le Rugby, ALLEZ LA FRANCE ! 🕘🏉 🇫🇷✌️🥂

 

Vote positif 0 Vote négatif