OVH Cloud OVH Cloud

Scinder des lignes en plusieurs lignes

2 réponses
Avatar
FabienD
Bonjour,

Je travaille sur une base de données avec des cellules contenant du texte.
Dans ce texte il y a des symboles "¤¤", exemple :

ligne 100 : Blablablabla ¤¤ blabla bla ¤¤ blabla

Est-il possible de créer une macro ou une formule qui permette de scinder cette ligne en :

ligne 100 : Blablablabla
ligne 101 : ¤¤
ligne 102 : blabla bla
ligne 103 : ¤¤
ligne 104 : blabla

En décalant les lignes du dessous s'il y en avait (sans les supprimer du coup)

Merci d'avance pour votre aide précieuse !

Fabien

2 réponses

Avatar
Jacquouille
Bonjour
Entre tes "blablabla", c'est chaque fois 2 carrés?
Quelle police utilises-tu pour obtenir ces carrés?

As-tu essayé de séparer les éléments de cette cellule avec
"Menu/Données/convertir...
Après, peut-être serait-il plus simple de transposer les colonnes en lignes.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"FabienD" a écrit dans le message de groupe de discussion :


Bonjour,

Je travaille sur une base de données avec des cellules contenant du texte.
Dans ce texte il y a des symboles "¤¤", exemple :

ligne 100 : Blablablabla ¤¤ blabla bla ¤¤ blabla

Est-il possible de créer une macro ou une formule qui permette de scinder
cette
ligne en :

ligne 100 : Blablablabla
ligne 101 : ¤¤
ligne 102 : blabla bla
ligne 103 : ¤¤
ligne 104 : blabla

En décalant les lignes du dessous s'il y en avait (sans les supprimer du
coup)

Merci d'avance pour votre aide précieuse !

Fabien


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
DanielCo
Bonjour,
Sub test()
Dim Ligne As Long, C As Range
For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))
For Each Item In Split(C.Value, " " & Chr(164) & Chr(164) & " ")
Ligne = Ligne + 1
Cells(Ligne, 2).Value = Item
Next Item
Next C
End Sub
Daniel
Le 05/10/2015, FabienD a supposé :
Bonjour,

Je travaille sur une base de données avec des cellules contenant du texte.
Dans ce texte il y a des symboles "¤¤", exemple :

ligne 100 : Blablablabla ¤¤ blabla bla ¤¤ blabla

Est-il possible de créer une macro ou une formule qui permette de scinder
cette ligne en :

ligne 100 : Blablablabla
ligne 101 : ¤¤
ligne 102 : blabla bla
ligne 103 : ¤¤
ligne 104 : blabla

En décalant les lignes du dessous s'il y en avait (sans les supprimer du
coup)

Merci d'avance pour votre aide précieuse !

Fabien