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

[beegees]

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 :

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb|
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc|

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

Voici le code que j'utilise actuellement :

appexcel.Cells(s, 1) = " " & " 3.4 Conditions légales retenues pour l'étudiant : est porteur d'un " & rst![PorteurDe1]
appexcel.Cells(s, 1).Characters(6, 53).Font.Bold = True
appexcel.Cells(s, 1).Characters(6, 53).Font.Italic = True
appexcel.Cells(s, 1).Characters(6, 53).Font.Bold = False
appexcel.Cells(s, 1).Characters(9, 48).Font.Underline = 2
s = s + 1
appexcel.Cells(s, 1) = " " & rst![porteurde2]
appexcel.Cells(s, 1).Characters(6, 43).Font.Bold = True
appexcel.Cells(s, 1).Characters(6, 43).Font.Italic = True
appexcel.Cells(s, 1).Characters(6, 43).Font.Bold = False

est-ce possible avec VBA ?

Je vous en remercie d'avance.

beegees

 

[BERRACHED said]

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

Salut,beegees

As-tu essayé de réduire dans ton code la taille et les polices utlisé

Cordialement