Mise en page WORD extraction sous titre YOUTUBE
Fermé
INFSON
Messages postés
21
Date d'inscription
lundi 17 août 2020
Statut
Membre
Dernière intervention
9 décembre 2022
-
3 oct. 2021 à 15:30
INFSON Messages postés 21 Date d'inscription lundi 17 août 2020 Statut Membre Dernière intervention 9 décembre 2022 - 7 oct. 2021 à 14:03
INFSON Messages postés 21 Date d'inscription lundi 17 août 2020 Statut Membre Dernière intervention 9 décembre 2022 - 7 oct. 2021 à 14:03
A voir également:
- Mise en page WORD extraction sous titre YOUTUBE
- Supprimer une page word - Guide
- Youtube mp3 - Guide
- Telecharger video youtube - Guide
- Youtube mp4 conconventer - Forum Vidéo/TV
- Probléme avec Convertisseur youtube mp3 ✓ - Forum YouTube
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
6 oct. 2021 à 16:23
6 oct. 2021 à 16:23
Bonjour,
en passant par Excel:
Importer les données du fichier texte:
allez dans le ruban: Données à partir du texte.
ensuite supprimer les lignes vides
ensuite déplacer le texte:
il ne reste plus qu'à copier coller dans le document Word
voilà
en passant par Excel:
Importer les données du fichier texte:
allez dans le ruban: Données à partir du texte.
ensuite supprimer les lignes vides
ensuite déplacer le texte:
Option Explicit
'supprimer lignes vides
Sub Supprimer_si_vide()
Dim Ligne As Long
On Error Resume Next
Ligne = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
'déplacer le texte
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1")
NoCol = 1 'lecture de la colonne A
For NoLig = Split(FL1.UsedRange.Address, "$")(4) To 2 Step -2
Var = FL1.Cells(NoLig, NoCol)
FL1.Cells(NoLig - 1, NoCol) = FL1.Cells(NoLig - 1, NoCol) & " " & Var
Rows(NoLig & ":" & NoLig).Delete Shift:=xlUp
Next
Set FL1 = Nothing
Worksheets("Feuil1").Columns("A:A").AutoFit
End Sub
il ne reste plus qu'à copier coller dans le document Word
voilà
INFSON
Messages postés
21
Date d'inscription
lundi 17 août 2020
Statut
Membre
Dernière intervention
9 décembre 2022
7 oct. 2021 à 14:03
7 oct. 2021 à 14:03
Super ça fonctionne nickel
Merci
Merci