XL 2016 Copier une cellule base

Dranreb

XLDnaute Barbatruc

• 16 Février 2019

• #2

Bonjour.
Je ne suis pas absolument sûr d'avoir compris, mais cette formule ne change pas sa valeur actuelle :
En A6 :

Code:

="il faut choisir :"&CAR(10)&I3

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Février 2019

• #3

Bonjour patrick.r7

Un essai (un poil capillotracté !!!!!)

Edit :
@ Dranreb A la bourre moi !!!
De tout cœur avec toi concernant ta réaction suite à une certaine grossièreté

 

Pièces jointes

• copier cellule de base.xlsx

  10.7 KB · Affichages: 3

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 16 Février 2019

• #4

Merci pour ta réponse rapide.
Mais le texte "il faut choisir :" est existant.
Je ne souhaite y intégrer que le texte de la cellule I3 "Brut, Acier et Alu" sous différents textes. l'exemple là était "il faut choisir".

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2019

• #5

Vous voulez dire que "Il faut choisir :" existe dans une autre cellule ?
Une cellule contient soit une constante soit une formule mais pas les deux. Pour une solution avec constante il faut passer par VBA.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2019

• #6

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

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 16 Février 2019

• #7

Oui pour il faut choisir. Le texte est déjà dans la cellule. je veux juste mettre "Brut, Acier et Alu" de la cellule I3 dans la même cellule ou il y a le texte.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2019

• #8

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2019

• #9

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.

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 16 Février 2019

• #10

Merci pour votre coup de main.

 

Vote positif 0 Vote négatif