Gérer les retour à la ligne avec VBA (marge de droite)

Salut tout le monde,

Je transfère des données d'une base de données Access vers Excel avec DAO.

Dans ces données, il y'a une longue phrase que je suis obligé de mettre dans trois champs différents d'access afin de mettre le premier champ dans la première ligne excel, le second champ dans la 2e ligne excel et le 3e champ dans la 3e ligne excel.

Je me demandais si il n'était pas possible de mettre la ligne complète dans un champs access et que VBA gère les retour à la ligne automatiquement dès qu'il rencontre la fin de la ligne excel, c'est à dire la marge de droite.

Donc si le pipe à la fin de ma phrase correspond au début de la marge de droite :

Citation:

---

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaa|
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb bbbbbbbbbbbbbbb|
cccccccccccccccccccccccccccccccccccccccccccccccccc ccccccccccccccc|

---

Dès que le pipe est rencontré, il va à la ligne automatiquement en ajoutant le reste de la phrase.

est-ce possible avec VBA ?

Je vous en remercie d'avance.

beegees

Bonjour,

Donc si je comprend bien, au départ tu as une phrase de ce style

Code:

---

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaa|bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb bbbbbbbbbbbbbbb|cccccccccccccccccccccccccccccccccccccccccccccccccc ccccccccccccccc|

---

Tu peux par exemple utiliser la fonction Split

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() Dim Chaine As String, Tablo As Variant, i As Byte   Chaine = "La Phrase" Tablo = Split(Chaine, "|")   For i = 0 to Ubound(Tablo) -1 Range("A" & i + 1) = Tablo(i) Next   End Sub

---

Bonjour,

Merci pour ta réponse.

Je me suis mal expliqué.

J'ai une phrase :

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb bbbbbbbbbbbbbbbcccccccccccccccccccccccccccccccccccccccccccccccccc ccccccccccccccc

J'aimerais que la phras soit coupée automatiquement au début de chaque bord droit (donc en fin de ligne).

Mais je me demande si c'est faisable car un mot pourrait alors être coupé en plein milieu :?.

Merci encore pour ton aide.

beegees

aah ok...ce que tu appelles "bord droit" est la limite de la colonne ? :aie:

La seule solution que moi je vois est de te fixer une limite de caractères selon la largeur de ta colonne (par exemple 40 caractères) et lorsqu'on atteint cette limite on coupe la phrase à l'espace juste avant cette limite

Une accrobatie du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub test() Dim chaine As String, Result As String Dim i As Integer, tablo As Variant   tablo = Split(Range("A1"), " ")   For i = 0 To UBound(tablo) If chaine = "" Then chaine = tablo(i) Else chaine = chaine & " " & tablo(i) End If If Len(chaine) > 40 Then Result = Result & Left(chaine, Len(chaine) - Len(tablo(i)) - 1) & Chr(10) i = i - 1 chaine = "" End If Next   If chaine <> "" Then Result = Result & chaine Range("A1") = Result   End Sub

---