XL 2016 Copier une cellule base

patrick.r7

XLDnaute Occasionnel
Bonjour, je souhaite votre aide pour pouvoir copier une cellule de base dans d'autres cellules contenant déjà du texte.
Je vous remercie d'avance.
 

Pièces jointes

  • copier cellule de base.xlsx
    10.5 KB · Affichages: 6

Dranreb

XLDnaute Barbatruc
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
 

Dranreb

XLDnaute Barbatruc
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
 

Dranreb

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG