Astuces pour enlever certaines parties du texte automatiquement ?

Signaler
-
Messages postés
6769
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 mai 2020
-
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

1 réponse

Messages postés
6769
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 mai 2020
512
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