Retour à la ligne

[Nevil]

Salut a toutes et a tous,

alors voila, je me pose une question avec une personne que j'essaye d'aider en ce moment meme.
Nous avons un textbox qui permet de saisir une adresse. Nous avons fais un retour a ligne possible dans cette zone de texte mais lors du retour a la ligne un petit "carré" se glisse en fin de ligne. A chaque renvoi un carré comme ce ci apparait .
D'où vient il ? pouvons nous remédier a cela ?

Merci

 

[lacorse33]

Re : Retour à la ligne

Bonjour Nevil,

Peux-tu joindre un bout de fichier pour que l'on regarde ?

Merci

 

[pierrejean]

Re : Retour à la ligne

bonjour Nevil

mes hommages Béa

un exemple ci-joint

le chr(10) n'est pas vu par le textbox qui doit etre en multigne

 

[Nevil]

Re : Retour à la ligne

Effectivement le probleme reste le même ...
Blocage total la, et j'aime pas ca !

 

[pierrejean]

Re : Retour à la ligne

re

apres moults essais j'ai pu constater que le chr(10) initialement entré dans le textbox est devenu un chr(13)
d'ou la modif permettant dans le cas du fichier d'eliminer le petit carré
evidemment ce n'est pas la solution
je dois m'absenter mais je reprendrai d'ici un moment

 

[pierrejean]

Re : Retour à la ligne

re

toutes mes excuses

precipitation

voila le "bon" fichier

 

[pierrejean]

Re : Retour à la ligne

bonsoir

une version plus élaborée

mais je pense qu'il ne s'agit que d'un "depannage"

un de nos "grands anciens" aura certainement la solution

 

[Hervé]

Re : Retour à la ligne

bonjour

avea vous essayer comme ceci :

Private Sub CommandButton1_Click()
Cells(1, 1) = Replace(TextBox1, Chr(13), "")
Unload Me
End Sub

salut

 

[pierrejean]

Re : Retour à la ligne

bonsoir a tous

et naturellement ça marche !!!

y m'enerve , y m'enerve

 

[Nevil]

Re : Retour à la ligne

Bonjour,

Merci Merci et Merci a vous pierrjean et Hervé.

ca fais plaisir d'etre aidé

 

[Nevil]

Re : Retour à la ligne

Heuuu je viens juste d'essayer et j'ai une erreur sur le "REPLACE" ...
Est ce un probleme de XL 97 qui ne reconnait pas cette commande ??

 

[Nevil]

Re : Retour à la ligne

Hé bien en fin de compte j'ai trouvé la solution en partant de la solution a Hervé.


Private Sub CommandButton1_Click()
Dim a As String
a = TextBox1.Value
Cells(1, 1).Value = a
Cells.Select
Selection.Replace What:=Chr(13), Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub

En tout cas, MERCI