Astuces pour enlever certaines parties du texte automatiquement ?
borisparis
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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
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
A voir également:
- Astuces pour enlever certaines parties du texte automatiquement ?
- Enlever pub youtube - Accueil - Streaming
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Automatiquement - Guide
- Dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. - Guide
1 réponse
Bonjour,
en vba Excel:
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
