J'ai une macro qui converti un texte RTF illisible en texte lisible.
Celle-ci fonctionne très bien pour une cellule.
Je voudrais que celle-ci fonctionne sur une colonne de cellules.
Je sais pas comment faire.
Quelqu'un peux m'aider.
Merci.
Sub rtfToText()
With CreateObject("RICHTEXT.RichtextCtrl") ' or add reference to Microsoft Rich Textbox Control for early binding and With New RichTextLib.RichTextBox
.SelStart = 0 ' needs to be selected
.TextRTF = Join(Application.Transpose(Cells.CurrentRegion.Columns(1)))
[C1] = .Text ' set the destination cell here
End With
End Sub