Microsoft 365 demande d'insertion de formule

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je me tourne une fois de plus vers nos ténors pour une insertion de Formule, toute simple à priori, mais que je ne parviens pas à faire.

Contexte :
Dans la feuille du fichier joint, j'ai une argumentation en cellule E6.
En cellule D36, j'ai "Bidules et Machins",

Mon besoin :
Je souhaiterais une formule qui m'écrive après la phrase "Je travaille pour : Bidules et Machins
Il faudrait que ce soit une formule car ce n'est pas toujours "Bidules et Machins"

Le faire en formule je sais le faire mais dans ce cas, je perds les couleurs de mon texte (plusieurs couleurs)
La difficulté est là !

Je joins le p'tit fichier test.
Auriez la solution ?

Un grand merci par avance,
Amicalement,
lionel,

 

[Phil69970]

Bonjour à tous

Lionel tu as tout ou partie de la réponse ici au post # 6 c'est la réponse que je t'avais donné

Donc sur ton fichier c'est le même système tu mets ta formule dans une cellule quelconque on copie ta formule en E6 la cellule sera défusionné avant (donc ce n'est plus une formule maintenant) dans ta feuille et après tu appliques les mots "clés" et ensuite tu refusionnes les cellules E6:E21 ......
Tes mots clés seront tes variables (Bidule, machin, chouette et truc ....) idem pour les couleurs ....
Regardes ici aussi et aussi au post # 6

Tout est décrit il y a plus qu'a......

@Phil69970

 

[Usine à gaz]

Bonjour Phil69970

Bon Dieu, mais c'est bien sûr comme dirait "Bourrel" lol

Et ça marche bien ton fichier je vois comment le repréparer et je le mettrai sur le fil.
lionel

 

[sylvanu]

Bonjour tout le monde,
Et pourquoi pas dissocier le texte en trois zones.
Dans ce cas le problème disparait.
A un certain moment, le pragmatisme doit l'emporter, plutôt que de créer à chaque fois une usine à gaz pour un détail.

 

[Usine à gaz]

Bonjour sylvanu , le fil, le Forum

Mais OUI, c'est une bonne et simple solution dans ce contexte. J'aurais du y penser lol (là, je m'en veux Grrrr !!!)

Trop "usine à gaz" sans doute ..... va falloir que je me corrige lol
Merci à toi,
lionel

 

[sylvanu]

@lionel,
Je crois que le problème est récurrent.
On créé un joli fichier plein de fioritures et ensuite on réfléchit à ce qu'on doit faire dessus.
Alors que si on réfléchit à ce qu'on doit faire puis on crée le fichier, alors beaucoup de soucis disparaissent puisque le fichier a été conçu pour ça.

 

[job75]

Bonjour Lionel, le forum,

En créant une image c'est très simple :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Shape
For Each s In Shapes
    If s.Name = "MonImage" Then s.Delete
Next
[D36].CopyPicture
Me.Paste
Selection.Name = "MonImage"
Selection.Top = 132
Selection.Left = 517
ActiveCell.Activate 'ôte le focus
End Sub

La macro se déclenche quand on valide ou modifie une cellule quelconque.

Les positions 132 et 517 sont faciles à déterminer en positionnant la Shape créée où il faut.

A+

 

[Usine à gaz]

Bonjour Gérard

Super cette solution .... je garde pour multi utilisations.
Merci Gérard,

lionel

 

[bastiaan]

Bonjour,
J'ai changé un peu le fichier, mais au moins cela fait ce que tu demandes...
Bonne continuation,
Cordialement,

 

[job75]

Bonjour bastiaan, le fil.

mais au moins cela fait ce que tu demandes...

Vous ne pouvez pas dire ça puisque la plage E6:F21 n'est plus fusionnée.

C'est le même principe que celui de sylvanu au post #18.

A+