Microsoft 365 Copier-Coller plusieurs cellules en une seule

[Bichette001]

Bonjour je souhaiterais savoir s'il existe une manip pour copier coller plusieurs celulles en une seule sans passer par des formules juste avec le clavier ?

527498399​

611878003​

614254002​

614287002​

740180989​

ex : coller ces cellules sur une seule

merci
Bichette

 

[Bernard_XLD]

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, @+

 

[job75]

Bonjour Bichette001, Yeahou,

Voyez le fichier joint et ce code dans Module1 :

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+

 

[Bichette001]

merci à vous

 

[job75]

Ce n'est pas fini.

Sur une grande plage ceci est beaucoup plus rapide :

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.

 

[Bichette001]

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

 

[Bernard_XLD]

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 !