Retour à la ligne

L

lacorse33

XLDnaute Occasionnel

• 24 Octobre 2006

• #2

Re : Retour à la ligne

Bonjour Nevil,

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

Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Octobre 2006

• #3

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

 

Pièces jointes

• nevil.xls

  30 KB · Affichages: 41
• nevil.xls

  30 KB · Affichages: 44
• nevil.xls

  30 KB · Affichages: 41

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 24 Octobre 2006

• #4

Re : Retour à la ligne

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

 

Pièces jointes

• nevil.xls

  32 KB · Affichages: 45
• nevil.xls

  32 KB · Affichages: 39
• nevil.xls

  32 KB · Affichages: 45

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Octobre 2006

• #5

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

 

Pièces jointes

• nevil.xls

  30 KB · Affichages: 37
• nevil.xls

  30 KB · Affichages: 39
• nevil.xls

  30 KB · Affichages: 40

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Octobre 2006

• #6

Re : Retour à la ligne

re

toutes mes excuses

precipitation

voila le "bon" fichier

 

Pièces jointes

• nevil1.xls

  31 KB · Affichages: 43
• nevil1.xls

  31 KB · Affichages: 42
• nevil1.xls

  31 KB · Affichages: 43

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Octobre 2006

• #7

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

 

Pièces jointes

• nevil1.xls

  35 KB · Affichages: 44
• nevil1.xls

  35 KB · Affichages: 47
• nevil1.xls

  35 KB · Affichages: 47

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 24 Octobre 2006

• #8

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Octobre 2006

• #9

Re : Retour à la ligne

bonsoir a tous

et naturellement ça marche !!!

y m'enerve , y m'enerve

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 25 Octobre 2006

• #10

Re : Retour à la ligne

Bonjour,

Merci Merci et Merci a vous pierrjean et Hervé.

ca fais plaisir d'etre aidé

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 25 Octobre 2006

• #11

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 ??

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 25 Octobre 2006

• #12

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

 

Vote positif 0 Vote négatif