astuces pour enlever certaines parties du texte automatiquement ? Fermé

Question

Bonjour,

je souhaiterais à partir d'un texte issu d'un fichier srt ou sbv enlever les time codes et les saut de ligne et garder le texte. 

J'ai ouvert le fichier dans word - je peux le coller dans excel 

https://www.cjoint.com/c/JDihSmZQf7S

https://www.cjoint.com/c/JDihSzhDKTS

Idéalement je voudrais le faire dans word mais sinon je peux faire dans excel

Merci pour vos idées

cs_Le Pivert · Answer

Bonjour,

en vba Excel:

Option Explicit
 Sub supprimer()
Range("a1:a65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime lignes vides
For_X_to_Next_Ligne 'supprime lignes numeriques
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim Val As Variant
Application.ScreenUpdating = False
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
    Val = Left(Var, 1)
    If IsNumeric(Val) Then
    FL1.Cells(NoLig, NoCol).Delete
    End If
    Next
    Set FL1 = Nothing
    Application.ScreenUpdating = True
End Sub

Astuces pour enlever certaines parties du texte automatiquement ?

1 réponse

Discussions similaires