Discussion :

[greenweed]

Bonjour à tous,

Mon programme génère des fichiers Excel.

J'insère dans une cellule les infos provenant d'un champ Access de type "Texte".

Quand je saisis ces infos dans ce champ il y a plusieurs lignes les unes sous les autres, à l'instar de ce qui se passe sur cette fenêtre.

Donc, lors de l'insertion dans la fameuse cellule, les infos apparaissent bien dans l'ordre les unes sous les autres mais avec en bout de ligne un caractère spécial ayant la forme d'un carré.

Je voudrais, par le code, éliminer ce carré.

Merci d'avance.

Greenweed

[Megaxel]

Je ne suis pas sûr de moi, mais les caractères "fin de ligne" en Access et en VB ne doivent pas être les mêmes.
Trouve à quel code correspond le truc bizarre que tu as dans VB, et remplace le par le code VB de fin de ligne.

[SilkyRoad]

bonjour Greenweed , bonjour Megaxel

si par exemple la donnée importée est dans la cellule A1 , tu peux tester

Code :

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

Range("A1") = Application.WorksheetFunction.Substitute(Range("A1"), Chr(13) + Chr(10), Chr(10))

cordialement
michel

[Megaxel]

Alors c'est 13, le code du "petit carré"?
J'avoue que je n'arrive pas à les garder en tête...

[AlainTech]

13 c'est le "Retour chariot"
10 c'est "saut de ligne"

Une machine à écrire devait faire les 2 pour passer à la ligne et, dans certains environnements, on a gardé la paire de caractères.

Par contre, dans d'autres, on a choisi le chr(10) et, dans d'autres encore, le chr(13).

Pour le saut de ligne dans une cellule d'Excel, seul le chr(10) doit être utilisé.

[greenweed]

Merci à tous pour vos bons conseils.

SilkyRoad m'a ouvert une piste que je vais emprunter.

GreenWeed[/img][/list][/code]

[ouskel'n'or]

Code :

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

1
2
3
    Columns("A:A").Select
    Selection.Replace What:="^l", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

Avec ça, tu remplaces vblf
Pour vbcr, c'est "^p"

A+

[greenweed]

Bonjour à tous,

Grand merci à tous ceux qui ont eu la gentillesse de s'intéresser à mon cas.

GreenWeed