Microsoft 365 Copie texte de word vers Excel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion chax
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

chax

XLDnaute Nouveau
Bonjour,
Dans Word, j'ai un texte sous le format suivant :
Titre 1 - Sous titre 1 :
- Exemple 1
- Exemple 2
- Exemple 3
Titre 2 - Sous titre 2 :
- Exemple 1
- Exemple 2
- Exemple 3

Je cherche à copier ce texte dans Excel en gardant ce format avec 1 ligne par bloc
Toutefois, j'obtiens 4 lignes par bloc (1 pour Titre x - Sous-titre x et 3 pour les exemples)

Voyez vous une méthode pour obtenir le résultat souhaité ?

Merci d'avance pour votre aide
 
Trier par date Trier par votes
Bonjour,
une proposition qui ne pourrait vous convenir que si vous n'avez pas un document de 200 pages.
dans Word Sélectionner le 1er bloc
dans Excel, positionnez-vous à l'intérieur de la cellule où le texte doit être copié - coller
dans Word Sélectionner le 2ème bloc
dans Excel, positionnez-vous à l'intérieur de la cellule au-dessous de la précédente - coller
1734722326471.png
 
Vote positif 0 Vote négatif
crocrocro à dit:
Bonjour,
une proposition qui ne pourrait vous convenir que si vous n'avez pas un document de 200 pages.
dans Word Sélectionner le 1er bloc
dans Excel, positionnez-vous à l'intérieur de la cellule où le texte doit être copié - coller
dans Word Sélectionner le 2ème bloc
dans Excel, positionnez-vous à l'intérieur de la cellule au-dessous de la précédente - coller
Regarde la pièce jointe 1209539
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
chax à dit:
Mais y a t'il un moyen de le faire en 1 seul copié collé ?
Cliquez pour agrandir...
oui avec du VBA.
Le principe :
Copier le tout
Coller dans la 1ère cellule
Activer une macro qui va analyser ligne par ligne,le résultat du Coller :
- identifier chaque bloc (police et taille de caractères de la ligne)
- fusionner les cellules d'un même bloc
Mais il faut évidemment connaitre la règle qui permet d'identifier un bloc 🤔
De mémoire, il s'agira du 1er caractère de la ligne
par exemple si 1er caractère est avec Police = Arial Black et Taille 12 -> Début de Bloc (et donc fin du bloc précédente.
Attention, si une ligne (non titre) débute par un caractère de police et taille de début de bloc (une mise en évidence par exemple sans passer par le styles, elle sera reconnu comme Début de bloc.

1734765064189.png
1734765301657.png

[EDIT] :
Quand j'écris fusion, ce n'est pas au sens Excel, il faut copier le contenu de la cellule n dans celui de la cellule n-1.
De plus Excel (ou moi) n'est pas très bon pour la conservation de la police de caractères dans une même cellule, donc cela sera très compliqué pour conserver les polices des cellules remontées.
Par exemple cette ligne
1734770808370.png

Il faudra donc vérifier à chaque fois, si vous n'avez rien perdu au niveau de la mise en forme sur vos 50 blocs.
Le jeu en vaut-il la chandelle ?
 
Dernière édition:
Vote positif 0 Vote négatif
crocrocro à dit:
oui avec du VBA.
Le principe :
Copier le tout
Coller dans la 1ère cellule
Activer une macro qui va analyser ligne par ligne,le résultat du Coller :
- identifier chaque bloc (police et taille de caractères de la ligne)
- fusionner les cellules d'un même bloc
Mais il faut évidemment connaitre la règle qui permet d'identifier un bloc 🤔
De mémoire, il s'agira du 1er caractère de la ligne
par exemple si 1er caractère est avec Police = Arial Black et Taille 12 -> Début de Bloc (et donc fin du bloc précédente.
Attention, si une ligne (non titre) débute par un caractère de police et taille de début de bloc (une mise en évidence par exemple sans passer par le styles, elle sera reconnu comme Début de bloc.

Regarde la pièce jointe 1209556Regarde la pièce jointe 1209557
[EDIT] :
Quand j'écris fusion, ce n'est pas au sens Excel, il faut copier le contenu de la cellule n dans celui de la cellule n-1.
De plus Excel (ou moi) n'est pas très bon pour la conservation de la police de caractères dans une même cellule, donc cela sera très compliqué pour conserver les polices des cellules remontées.
Par exemple cette ligne
Regarde la pièce jointe 1209560
Il faudra donc vérifier à chaque fois, si vous n'avez rien perdu au niveau de la mise en forme sur vos 50 blocs.
Le jeu en vaut-il la chandelle ?
Cliquez pour agrandir...
Bonjour
Oui, le travail à réaliser ne vaut pas les gains que l'on peut avoir
Dans ce cas il vaut mieux le réaliser manuellement
Merci pour avoir pris le temps de regarder ce problème
 
Vote positif 0 Vote négatif
Bonjour,
en pj ma solution VBA qui fonctionne de manière fiable contrairement aux réserves que j'ai faites dans mon post précédent.
C'est un peu long mais c'est un problème Excel qui même en interactif met des plombes pour changer un format.
Le principe
Après avoir copié les paragraphes depuis Word dans le Presse-Papier :
- Sélectionner la Cellule A1
- Coller (toutes les lignes Word sont collées dans la feuille avec
1 ligne Excel = 1 ligne Word
Format ligne Excel = Format Ligne Word
- Bouton Coller le contenu du Presse-Papier
-> La colonne A est copiée en colonne B avec pour règle :
si la ligne courante colonne A est une ligne de Titre (voir fonction EstTitre)
Tout le Bloc de lignes qui suit sera copié en B dans une même Cellule
en conservant le format de chaque ligne d'origine

Si la solution vous convient, pensez à mettre la discussion à Résolue.


1734860255570.png

Le Code
VB: 
Sub CollerWord()
' Après avoir copié les paragraphes depuis Word dans le Press-Papier :
' - Sélectionner la Cellule A1
' - Coller (toutes les lignes Word sont collées dans la feuille avec
'       1 ligne Excel = 1 ligne Word
'       Format ligne Excel = Format Ligne Word
' - Bouton Coller le contenu du Presse-Papier
'       -> La colonne A est copiée en colonne B avec pour règle :
'       si la ligne courante colonne A est une ligne de Titre (voir fonction EstTitre)
'           Tout le Bloc de lignes qui suit sera copié en B dans une même Cellule
'                   en conservant le format de chaque ligne d'origine
'
Dim i As Integer, j As Integer, k As Integer, PosDeb As Double
Dim CelluleI As Range
Dim CelluleO As Range
Dim Derligne As Double
Dim Titre As Boolean
    Application.ScreenUpdating = False
    Derligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' colonne A
    Range("B:B").ClearContents
 
    ' Etape 1 - Copie sans mise en forme
    '-----------------------------------
    k = 0
    For i = 1 To Derligne
        Set CelluleI = Cells(i, 1)
        Titre = EstTitre(CelluleI)
        If Titre Then
            k = k + 1
        End If
        Set CelluleO = Cells(k, 2)
        If Titre Then
            CelluleO.Value = CelluleI.Value
            PosDeb = 0
        Else
            PosDeb = Len(CelluleO.Value) + 1 ' à cause du VbLf
            CelluleO.Value = CelluleO.Value & vbLf & CelluleI.Value
        End If
    Next i
    ' Etape 2 - Mise en forme
    '------------------------
    k = 0
    For i = 1 To Derligne
        Set CelluleI = Cells(i, 1)
        Titre = EstTitre(CelluleI)
        If Titre Then
            k = k + 1
        End If
        Set CelluleO = Cells(k, 2)
        If Titre Then
            PosDeb = 0
        Else
            PosDeb = PosDeb + Len(CelluleI.Offset(-1, 0).Value) + 1 ' à cause du VbLf
        End If
        For j = 1 To Len(CelluleI.Value)
            CelluleO.Characters(PosDeb + j, 1).Font.Bold = CelluleI.Characters(j, 1).Font.Bold
            CelluleO.Characters(PosDeb + j, 1).Font.Color = CelluleI.Characters(j, 1).Font.Color
            CelluleO.Characters(PosDeb + j, 1).Font.FontStyle = CelluleI.Characters(j, 1).Font.FontStyle
            CelluleO.Characters(PosDeb + j, 1).Font.Italic = CelluleI.Characters(j, 1).Font.Italic
            CelluleO.Characters(PosDeb + j, 1).Font.Underline = CelluleI.Characters(j, 1).Font.Underline
            CelluleO.Characters(PosDeb + j, 1).Font.Size = CelluleI.Characters(j, 1).Font.Size
            CelluleO.Characters(PosDeb + j, 1).Font.Name = CelluleI.Characters(j, 1).Font.Name
            CelluleO.Characters(PosDeb + j, 1).Font.Strikethrough = CelluleI.Characters(j, 1).Font.Strikethrough
            CelluleO.Characters(PosDeb + j, 1).Font.Subscript = CelluleI.Characters(j, 1).Font.Subscript
            CelluleO.Characters(PosDeb + j, 1).Font.Superscript = CelluleI.Characters(j, 1).Font.Superscript
        Next j
        CelluleO.Rows.AutoFit
    Next i
    Set CelluleI = Nothing
    Set CelluleO = Nothing
    Application.ScreenUpdating = True
End Sub
Function EstTitre(pRange As Range) As Boolean
' Si les 4 caractéristiques sont les mêmes que celles de la cellule modèle
Dim i As Integer
    EstTitre = True
    For i = 1 To Len(pRange.Value)
        If pRange.Characters(i, 1).Font.Name <> Range("MODELE_TITRE").Font.Name Or _
            pRange.Characters(i, 1).Font.Bold <> Range("MODELE_TITRE").Font.Bold Or _
            pRange.Characters(i, 1).Font.Size <> Range("MODELE_TITRE").Font.Size Or _
            pRange.Characters(i, 1).Font.Color <> Range("MODELE_TITRE").Font.Color Then
            EstTitre = False
            Exit For
        End If
    Next i
End Function
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Résolu(e)
Microsoft 365 Aide formule de comptage de texte dans lignes d'un tableau
Réponses
2
Affichages
194
richard31
R
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
59
PHIL37
P
Mathos
  • Résolu(e)
XL 2021 Copie de certaines données Excel sur Word
2
Réponses
28
Affichages
915
Mathos
Mathos
P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
177
jurassic pork
jurassic pork
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
75
jujulili
J
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
302
ali591
A
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
118
fd.30
F
X
  • Question Question
XL 2021 Génération word à partir d'excel en gardant le format source
Réponses
8
Affichages
138
xlym
X
L
  • Résolu(e)
Autres Lier une cellule texte a une cellule valeur ou utiliser la formule max avec du texte
Réponses
4
Affichages
96
LBE
L
Lu76Fer
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
90
oguruma
oguruma
richardlion
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
297
job75
job75
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
414
JHA
J
M
  • Question Question
XL 2010 Impossible d'exécuter la macro. Importe Excel vers Word.
Réponses
6
Affichages
416
wDog66
wDog66
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
164
olivier Clech
O
7
  • Question Question
Microsoft 365 Tableau de Géolocalisation de vidéos de drone avec lien vers Google Earth
2
Réponses
15
Affichages
730
sylvanu
sylvanu
M
  • Question Question
XL 2019 A partir des base de données 1 et 2, comment obtenir la base de données 3 sur 2 colonnes avec uniquement des formules excel, en automatique
2
Réponses
16
Affichages
588
Mika_56
M
M
  • Question Question
XL 2016 Analyse prix suivant hypothèse QTT à produire volume annuel et date de démarrage fabrication
Réponses
4
Affichages
104
mam721
M
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
238
Phil69970
Phil69970
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
56
job75
job75
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
295
job75
job75
Retour