Discussion :

[gantec]

Hello,

Dans mon programme VBA, j'ai une variable qui va contenir du texte. Ce texte sera formaté dans la variable comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selectioncase = selectioncase + vbCrLf + locStrChk

ensuite le contenu de la variable sera inscrit dans une cellule de mon fichier excel.

Remarque : lorsque le contenu s'inscrit dans ma cellule ca me donne ca :


Lu-03 (il y a un carré qui s'affiche à côté de chaque entité, mais là, on ne le voit pas) VOIR DOC ATTACHE

Lu-04

Lu-10

Question : est-il possible de formater la celllule de tel sorte que les carrés, générés par le vbCrLf dans ma variable, ne s'affiche pas de le fichier excel ??

merci et a bientot

[gruget]

bonjour
je suis pas sur que ca puisse t'aider mais j'ai trouvé ca dans un autre post:

bonjour

pour supprimer le caractère de retour à la ligne du TextBox (carré blanc) , tu peux utiliser


Code :
Worksheets(Mafeuille).Range("B" & MaLigne) = _
Application.WorksheetFunction.Substitute(Myvalue1, vbCrLf, Chr(10))

bonne soiree
michel

voili voila
rémi

[gantec]

ca ne fonctionne guère

myvalue1 correspond a quoi ?

[gruget]

myvalue1 était la variable du prog de ce post dans laquelle il voulait enlever les carrés blanc
enfin je crois vu ce que j'y ai lu
pour toi ca donnerais qq chose comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("nom de ta feuille").cells(i, j) = Application.WorksheetFunction.Substitute(selectioncase, vbCrLf, Chr(10))

j'ai pas testé par contre
rémi

[gantec]

je viens de tester et malheureusement ca ne fonctionne pas !!
mais merci deja pour ton aide ! c'est cool !

si jamais t'as du nouveau, n'hésite pas a me le dire

a+

[gantec]

c'est bon enfaite, j'ai magouillé et trouvé !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule(1, 4) = Application.WorksheetFunction.Substitute(selectioncase, vbCrLf, Chr(10))

[gruget]

ok parfait
sinon je viens de tester chez moi et j'obtenais un pb que quand dans le format de ma cellule je n'avais pas mis renvoyer à la ligne automatiquement pour ce que ca vaut
rémi