Un mini traitement de texte dans Excel

Bonjour,
ma demande va peut-être vous paraitre incongrue mais tant pis je me lance...
J'ai fait une "méga calculette" sous excel avec pas mal de code qui permet de créer avec Word un/des projet(s) puis transformer en contrat.
Ça marche très bien sauf que à peine beta testé que les utilisateurs me demandent de pouvoir intégrer des clauses spécifiques.
Je peux bien évidemment laisser une ou plusieurs cellules de libre mais :

1- j'ai des niveaux très différents (certains ne savent pas faire un retour à la ligne dans une cellule même en l'ayant dit 25 fois
2- C'est compliqué je n'ai pas réussi à mettre dans une variable les spécificités (Gras / Italique / couleur etc) pour l'intégrer dans word ensuite
3 - il faut que tout cela reste dans Excel pour pouvoir travailler modifier le devis

Idéalement j'imaginais une fenêtre popup qui ferait sortir un mini éditeur de texte mais au moins un moyen de conserver cette mise en forme, transformer en HTML ou autre pour le l'intégrer "facilement" dans Word, mais ça dépasse mes compétences...
Quelqu'un a déjà fait ou aurait une idée ?
Bon week,
SB

Bonjour,

Citation:

---

sortir un mini éditeur de texte mais au moins un moyen de conserver cette mise en forme, transformer en HTML ou autre pour le l'intégrer "facilement" dans Word, mais ça dépasse mes compétences...

---

Regards dans les contributions de Patrick Toulon tu trouveras un Wisiwig !

Citation:

---

Envoyé par Thumb down

Regards dans les contributions de Patrick Toulon tu trouveras un Wisiwig !

---

Merci, t'aurais pas le lien par zazard, je ne trouve pas...8O
Bon week,
SB

Citation:

---

Envoyé par SBranchu

Merci, t'aurais pas le lien par zazard, je ne trouve pas...8O
Bon week,
SB

---

https://www.developpez.net/forums/d1...m/#post8559839

Citation:

---

Envoyé par Thumb down

https://www.developpez.net/forums/d1...m/#post8559839

---

Merci !
Hyper balaise comme truc :hola:

Citation:

---

Envoyé par Thumb down

Bonjour,

Regards dans les contributions de Patrick Toulon tu trouveras un Wisiwig !

---

En fait dans les différentes réponses de Patrick Toulon, j'ai trouvé ça qui semble mieux me convenir :

Code:

---

1 2 3 4 5 6 7

Function test(c As Range) codexml = Replace(Replace(c.Value(xlRangeValueXMLSpreadsheet), "html:", ""), "ss:", "") With CreateObject("htmlfile") .body.innerhtml = Replace(Replace(codexml, "<Data", "<pre id =xx"), "Data>", "pre>") test = .getelementbyid("xx").innerhtml End With End Function

---

Très honnêtement, je n'y comprends pas grand chose...

1 : Est-il possible de récupérer ce même type de Code d'une zone de texte ?
2 : Maintenant que j'ai ce qui ressemble à du code HTML, je voudrais l'intégrer dans Word bien évidemment avec les mises en formes... ou dois-je aller sur le forum Word ?

Merci de l'aide,
SB

Edite:

Dans le formulaire tu peux modifier le code d'enregistrement du Wisiwig!

Code:

---

1 2 3

Private Sub enregistrer_Click() GestionWeb WebBrowser1 End Sub

---

Dans un module standard!

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub GestionWeb(iE As Object) Dim Wd As Object: Set Wd = CreateObject("Word.application"): Wd.Visible = True Dim DC As Object: Set DC = Wd.documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0) Const OLECMDID_SELECTALL = 17 Const OLECMDEXECOPT_DODEFAULT = 0 Const OLECMDID_COPY = 12 iE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Sélectionne tous iE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copie DC.Application.Selection.PasteAndFormat 0 End Sub

---

Re,
un peu compliqué pour moi...
Je vais rester sur l'idée d'une zone de texte ou si je trouve pas d'une cellule...
Merci, je vous tiens au jus si je sors quelque chose..
Bon dimanche,
SB