XL 2016 Copier une cellule base

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 !

Par exemple deux macros dans un module standard pouvant être affectée à des objets de formulaire ou à des commandes de la barre d'outils Accès rapide :
VB:
Option Explicit
Private Base As String
Sub CopieBase()
   Base = ActiveCell.Value
   End Sub
Sub CollageÀLaSuite()
   ActiveCell.Value = ActiveCell.Value & vbLf & Base
   End Sub
 
Si la source est toujours la cellule I3 de la feuille active, pas besoin de la macro CopieBase, et la CollageÀLaSuite :
VB:
Sub CollageÀLaSuite()
   ActiveCell.Value = ActiveCell.Value & vbLf & ActiveSheet.[I3].Value
   End Sub
On peut aussi faire une autre macro :
VB:
Sub RemplaceSuite()
   ActiveCell.Value = Split(ActiveCell.Value, vbLf)(0) & vbLf & ActiveSheet.[I3].Value
   End Sub
 
Si c'est un besoin occasionnel vous pouvez aussi simplement copier non pas la cellule mais son contenu affiché dans la barre de formule, et ensuite aussi le coller dans la barre de formule à la suite du texte existant dans la cellule destinatrice.
 
- 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
3
Affichages
217
Réponses
3
Affichages
105
Réponses
2
Affichages
204
Retour