Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Copier-Coller plusieurs cellules en une seule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bichette001

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

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
406
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…