VBA: Convertir cellule avec car(10)

[MJ13]

Bonjour à tous

je cherche le moyen en VBA de récupérer des textes dans une cellule qui ont des retours à la ligne (avec la caractère car(10)).

J'ai essayé avec Données Convertir , mais je ne connais pas le code de car(10).

Merci d'avance 🙂.

 

[Si...]

Re : VBA: Convertir cellule avec car(10)

Bonjour

tu les récupères où ?
Par exemple, avec une Textbox, il suffit de mettre sa propriété "MultiLine" à True.

 

[ROGER2327]

Re : VBA: Convertir cellule avec car(10)

Bonjour à tous

Question de formatage, peut-être ?
Voyez le classeur joint.
​

ROGER2327
#4492

Samedi 7 As 138 (Saint Cyrano de Bergerac, explorateur, SQ)
19 Brumaire An CCXIX
2010-W45-2T15:29:19Z

 

[MJ13]

Re : VBA: Convertir cellule avec car(10)

Bonjour Si..., Roger

Merci pour vos réponses 😉.

Il s'agit de cellules ou j'ai mis du texte et séparer par &car(10)& pour avoir un retour à la ligne.

Mais maintenant, je voudrai récupérer mes textes de chaque celules (voir pièce jointe) 😕.

 

[Etienne2323]

Re : VBA: Convertir cellule avec car(10)

Salut MJ13, le forum,

peut-être quelque chose comme ceci :

Option Explicit
Dim Ma_Var(1 To 100) As Variant
Sub test()
Dim Cellule_Test As String, Compteur As Byte, i As Byte
Dim Ligne As Integer
Dim Mon_Test

Application.ScreenUpdating = False

Mon_Test = Chr(10)

Ligne = 1
Cellule_Test = Range("A" & Ligne)
Compteur = 1

i = InStr(Cellule_Test, Mon_Test)
While i > 0
    Ma_Var(Compteur) = Left(Cellule_Test, i - 1)
    Compteur = Compteur + 1
    Cellule_Test = Mid(Cellule_Test, i + 1)
    i = InStr(Cellule_Test, Mon_Test)
Wend

Ma_Var(Compteur) = Cellule_Test

For i = 1 To Compteur
    Cells(i, 2).Value = Ma_Var(i)
Next i

End Sub

À adapter à votre situation.

Cordialement,

Étienne

Edit : Bonjour Roger !

 

[Modeste]

Re : VBA: Convertir cellule avec car(10)

Salut à tous,

Juste pour info, avec Données-Convertir, sous 2003, ça fonctionne avec comme séparateur: Autre > Alt+010

 

[Cousinhub]

Re : VBA: Convertir cellule avec car(10)

Bonsoir,

Au cas où...

Ce petit fichier

Edit : P'tain, je presqu'à la bourre....

'Soir, tout le monde

 

[Pierrot93]

Re : VBA: Convertir cellule avec car(10)

Bonjour à tous,

A fonctionner sur ton classeur joint :

Range("A3:C3").Value = Split(Range("E2").Value, vbLf)

bonne fin d'après midi
@+

 

[ROGER2327]

Re : VBA: Convertir cellule avec car(10)

Re...

Un essai…
​

ROGER2327
#4493

Samedi 7 As 138 (Saint Cyrano de Bergerac, explorateur, SQ)
19 Brumaire An CCXIX
2010-W45-2T15:43:32Z

 

[mth]

Re : VBA: Convertir cellule avec car(10)

Bonjour le fil 🙂

Avec l'enregistreur de macros à peine bricolé j'obtiens ça:

With Sheets("Feuil1")
    .Columns("E:E").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End With

Ca fonctionne et ça ne va pas bien loin (c'est histoire de participer 🙂 )

@ +

m

Edit: Oups ... bonjour tout le monde ... 🙂

 

[MJ13]

Re : VBA: Convertir cellule avec car(10)

Re Si... Roger, Bonjour Etienne, Modeste, CousinHub, Pierrot, Roger, Mireille

Arrêter, n'en jetez plus, la cour est pleine 😱.

Alors la chapeau à tous, on n'a que l'embarras du choix .

Vos solutions ont l'air de fonctionner 😉.

Je le savais que je n'étais qu'un débutant 😕.

Bonne fin de journée 🙂.

Sinon, comme j'étais sur le code d'Etienne, je l'ai modifié en nommant mes données contenant les cellules à traiter zone.

Voci le code:

Public cell
Sub converti_car10()
For Each cell In Range("zone")
test2
Next
End Sub
Sub test2()
'Etienne2323
Dim Cellule_Test As String, Compteur As Byte, i As Byte
Dim Ligne As Integer
Dim Mon_Test
Application.ScreenUpdating = False
Mon_Test = Chr(10)
Ligne = 1
'Cellule_Test = Range("A" & Ligne)
Cellule_Test = cell.Compteur = 1
i = InStr(Cellule_Test, Mon_Test)
While i > 0
    Ma_Var(Compteur) = Left(Cellule_Test, i - 1)
    Compteur = Compteur + 1
    Cellule_Test = Mid(Cellule_Test, i + 1)
    i = InStr(Cellule_Test, Mon_Test)
Wend
Ma_Var(Compteur) = Cellule_Test
For j = 1 To Compteur
i = 1
    'Cells(i, j + 1).Value = Ma_Var(j)
    cell.Offset(0, j).Value = Ma_Var(j)
Next j
End Sub

 

[Etienne2323]

Re : VBA: Convertir cellule avec car(10)

Bonjour le fil,

@Pierrot : Je suis sur le dos. Vous avez fait en une ligne ce que j'arrivais à faire avec 2 boucles et 1 tablo. J'ai testé et ça fonctionne à merveille.
Chapeau !

Cordialement,

Étienne