Dispatcher le texte d'une cellule dans plusieurs cellules

[MJ13]

Bonjour à tous

Je cherche à dispatcher en VBA le texte d'une cellule qui contient des retours chariot chr(13) dans plusieurs cellules les unes au dessus des autres 😕.

Connaissez vous une méthode?

Merci d'avance 🙂.

 

[Venitien]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Bonjour MJ13,

est-ce que

Cells(coord. de ta cellule à remplir).Value = Mid(Trim(chr(13)), caractère de départ, nombre de caractère à extraire à partir de celui de départ)

ne pourrait pas t'aider?

 

[Pierrot93]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Bonjour Michel🙂

essaye ceci, décompose la cellule A1, dans la colonne B

Range("B1").Resize(UBound(Split(Range("A1"), vblf)) + 1).Value = Application.Transpose(Split(Range("A1"), vbLf))

bon après midi
@+

Edition : remplacé un vbcr par vblf...

 

[MJ13]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Bonjour Vénitien, Pierrot (oups pas vu, je regarde 🙂)

Merci, mais ton code ne m'aide pas beaucoup.

Voici un fichier avec un exemple. Le but est d'avoir chaque ligne de la cellule dans la colonne 2 soit 6 lignes. Il doit s'agir de car(10) qui sépare les lignes de la cellule.

Merci 🙂.

 

[Pierrot93]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re,

si chr 10 au lieu de 13, remplace vbCr par vblf dans le code proposé....

 

[JNP]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Bonjour le fil 🙂,
Il est où ton fichier, Michel 😛 ?
A + 😎

 

[MJ13]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re , bonjour Jean-Noël

Merci beaucoup Pierrot 🙂

En mettant mon texte dans la cellule B1, on obtient les lignes en A1 et suivantes. Quel talent 😱.

Range("A1").Resize(UBound(Split(Range("B1"), vbLf)) + 1).Value = Application.Transpose(Split(Range("B1"), vbLf))

Jean-Noël: il a du arriver maintenant 😀.

 

[JNP]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re 🙂,
Oui, il est arrivé 😛...
Juste pour le fun, une petite fonction personnalisée avec un RegExp 😉

Function Découpe(ADécouper As String, Position As Integer) As String
Dim Matches
Application.Volatile
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[^" & Chr(10) & Chr(13) & "]+"
    Set Matches = .Execute(ADécouper)
    If Matches.Count > Position Then Découpe = Matches(Position)
End With
End Function

Position part de 0 à incrémenter pour chaque ligne 😉.
Seul avantage par rapport au code de Pierrot, peut traiter en même temps Chr(10) et Chr(13) 🙄...
Bonne suite 😎

 

[MJ13]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re

Merci Jean-Noël. Mais je ne vois pas trop comment l'utiliser dans mon exemple.

 

[JNP]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re 🙂,
En A1

=Découpe(B$1;LIGNES($1:1)-1)

à glisser vers le bas 😉.
Bonne suite 😎

 

[MJ13]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re

Merci Jean-Noël 🙂. Mais tu avoueras que le code de Pierrot est quand même plus simple 😀.

 

[JNP]

Re : Dispatcher le texte d'une cellule dans plusieurs cellules

Re 🙂,
J'avoue 😛...
Mais bon, vu que je te l'avais concocté, cela aurait été dommage de ne pas le poster 🙄...
La pluralité n'est pas un problème en soi, vu qu'il suffirait d'utiliser un Replace pour transformer les Chr(10) en Chr(13) avant le Split 😉...
Par contre, pour ceux qui souhaiterait faire le même type de manip avec du langage balisé type HTML ou XML afin de passer à la ligne suivante à chaque début de balise par exemple, là, le Pattern RegExp prendrait toute sa dimension 🙂.
Bonne soirée 😎