XL 2019 Réunir du texte

[lynyrd]

Bonjour le forum
y a t'il un moyen (par VBA) d'avoir sur 1 ligne par No de ligne
- le texte en français
- le texte en englais
Merci.

 

[gbinforme]

Bonjour
pour le faire ce serait bien que tes données soient homogènes
tu as parfois des lignes doubles, d'autres absentes.
quand l'on veut corriger les erreurs c'est plus difficile.

 

[Cousinhub]

Bonsoir,
Peut-être, avec le fichier "srt" d'origine, et non déjà ouvert via Excel?

 

[TooFatBoy]

Y a-t-il un moyen (par VBA) d'avoir sur 1 ligne par No de ligne
- le texte en français
- le texte en englais

Qu'est-ce à dire que ceci ???

Tu veux sur une même ligne le numéro du sous-titre, le timing, le texte français et le texte anglais ?
J'ai pourtant entendu dire qu'il était préférable de ne pas dépasser 40 caractères par ligne sous-titre.
De plus, le français et l'anglais ne devraient-ils pas être tout simplement sur deux lignes différentes ?

Il y a des lignes qui contiennent une erreur, comme par exemple la ligne 377.
Que faire dans ce cas ?

 

[lynyrd]

Voila le fichier d'origine

 

[TooFatBoy]

Un début d'idée :

Sub test()
'
Dim Ligne As Long
Dim Texte As String, TexteLu As String

    Ligne = 1
    While Cells(Ligne, 1).Value <> ""       ' IsNumeric(Cells(Ligne, 1).Value)
        Texte = Cells(Ligne, 1).Value
        Ligne = Ligne + 1
        If IsError(Cells(Ligne, 1).Value) Then
            TexteLu = "."
        Else
            TexteLu = Cells(Ligne, 1).Value
        End If
        While TexteLu <> ""
            Texte = Texte & " " & TexteLu
            Ligne = Ligne + 1
            If IsError(Cells(Ligne, 1).Value) Then
                TexteLu = "."
            Else
                TexteLu = Cells(Ligne, 1).Value
            End If
        Wend
        Ligne = Ligne + 1
        Debug.Print Texte
    Wend

End Sub

Sur ce, bonne soirée
🖖

 

[lynyrd]

TooFatBoy
Merci d'avoir éssayé mais c'est pas cela su tout.
A+

 

[TooFatBoy]

Merci d'avoir éssayé mais c'est pas cela su tout.

Pourtant ça semblait correspondre à la demande. Tu t'es probablement mal expliqué. 🙁
Ceci dit, c'est vrai que ça n'a rien à voir avec le titre qui demande à découper du texte alors que la question semble demander au contraire de concaténer des lignes.

Comme quoi, une explication claire est toujours indispensable. Et avec un petit exemple c'est encore mieux. 😉

 

[lynyrd]

re
par exemple il faut à la ligne 198
Merci

 

[TooFatBoy]

par exemple il faut à la ligne 198

Ah oui effectivement, c'était vraiment très mal expliqué. 😅
Sans parler du titre de la question qui demande à scinder du texte alors qu'il faut visiblement l'assembler.


Bonne chance pour la suite.
🖖

 

[lynyrd]

Re
et s'il n'y avait qu'une seule langue est ce que c'est plus facile pour vous ?

 

[TooFatBoy]

et s'il n'y avait qu'une seule langue est ce que c'est plus facile pour vous ?

Juste une réponse en passant : à mon avis, oui, ça rend le problème infiniment plus simple.


Bonne nuit
Tschüss

 

[Cousinhub]

Bonjour,
Un essai (VBA pour sélectionner le fichier SRT + Power Query pour le traiter)
Si ça t'intéresse
Bonne journée

 

[lynyrd]

Bonjour Cousinhub
ca bug

 

[Cousinhub]

Re-,
Regarde sous ce lien, pour configurer PQ (à faire une seule fois)