Discussion :

[EricVBA]

Bonsoir

regarde comment on applique le format tel que dans le html
Pièce jointe 340937

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function html_transform_into_VBA(cel)
With CreateObject("htmlfile")
.body.innerhtml = cel.Value
r = .parentwindow.clipboardData.setData("Text", "<table><tr><td>" & cel.Text & "</td></tr></table>")
With cel.Parent: .Activate: cel.Select: .Paste: End With
End With
End Function
Sub test()
html_transform_into_VBA ActiveCell
End Sub

tout les format de font couleur bold italic underline exposant etc... seront restitués

Bonjour,
Ce code ne fonctionne pas avec Excel 2016. Cela tombe en erreur sur le paste.
Que faudrait-il modifier ou préciser ?
Cordialement
Eric

[Pierre Fauconnier]

Salut.

Pas certain que tu vas trouver quelqu'un pour aller mettre ses mains dans ce "code"...

Peut-être serait-il intéressant que tu expliques ce que tu souhaites réaliser et ce dont tu disposes au départ, mais aussi pourquoi tu souhaites baliser ta mise en forme en html...