Caractères indésirables dans un textbox de mon USF

G

Guest

Guest

• 13 Octobre 2008

• #2

Re : Caractères indésirables dans un textbox de mon USF

Bonjour olivePao,

Si tes caractères gênants sont bien des caractères ascii 13 alors avant le Tranfert des données sur la feuilles tu peux faire:

=Replace(SaisieInfos,chr(13),chr(10)) pour remplacer par des sauts de ligne

Ou

=Replace(SaisieInfos,chr(13),"") pour remplacer par des caractères vides.

A bientôt

 

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 13 Octobre 2008

• #3

Re : Caractères indésirables dans un textbox de mon USF

Salut Hasco , Re le forum 🙂

J'essaye de placer ton instruction mais VBA rouspète au moment de l'écriture du code !

Il me dit "Erreur de compilation Attendu N° de ligne ou étiquette ou instruction ou fin d'instruction."

Mon code est le suivant

Code:

Private Sub Valider_Click()

=Replace(SaisieInfos,chr(13),chr(10))  ' <-- pour remplacer par des sauts de ligne
[B16] = USF_Saisie.SaisieInfos

End Sub

Je n'ai reporteé ici que la ligne concernant ce textbox, il y en a plusieurs dans mon USF.

Manque-t-il une instruction avant ta ligne de code ?

Merci et A++

 

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 13 Octobre 2008

• #4

Re : Caractères indésirables dans un textbox de mon USF

Hello Hasco hello le forum 🙂
En réfléchissant un peu, j'ai testé

Code:

SaisieInfos = Replace(SaisieInfos, Chr(13), Chr(10)) ' <-- pour remplacer par des sauts de ligne

puis

Code:

SaisieInfos = Replace(SaisieInfos, Chr(13), "") ' <-- pour remplacer par des caractères vides

Malgré mon brulage de neurones . . . ça ne fontionne pas !

J'ai tjs ce petit ☻ en bout de ligne !


Kissékalasolusse, en tout cas je continue de chercher mais votre aide est toujours la bienvenue.

A++

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 13 Octobre 2008

• #5

Re : Caractères indésirables dans un textbox de mon USF

Hello Olive,

Excuses de n'avoir pas préciser pour le SaisieInfos=.....

pour ce qui est des ☻ . Tu en sélectionne un et dans la fenêtre d'excéction de VBE (CTRL+G) tu saisis: ?asc(☻) et tu valide par enter.
(tu colles ton caractère entre les parenthèses)

Cela te donnera le code Ascii des ☻ qui ne sont peut-être pas des retours chariot (13) mais autre chose.

A bientôt

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 13 Octobre 2008

• #6

Re : Caractères indésirables dans un textbox de mon USF

bonsoir à tous

ce caractère n'est autre que le code ascii 63
qui s'affiche dans Vb comme ceci ? (point intérrogation)
mais que l'on peut coller dans une cellule et là ça reste comme ceci ☻
exp: ce signe dans la cellule A1
puis côté code faire Msgbox Asc(A1) ça donne bien 63

 

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 14 Octobre 2008

• #7

Re : Caractères indésirables dans un textbox de mon USF

Hello Hasco Hello Roland_M Hello le forum 🙂🙂🙂

Juste une petite précision pour que l'on parle de la même chose, ce petit ☻ s'affiche uniquement dans la cellule qui reçoit le texte et pas dans mon USF.

Ceci dit :

J'ai testé la soluce de Hasco

mais dans la fenêtre d'exécution ce petit ☻ ne s'inscrit pas, il exécute directement un retour à la ligne au moment du "coller".

J'ai testé la soluce de Roland_M

Le code qui m'est renvoyé est le 66 donc la lettre B.


Il y a donc un couac dans le potage.

J'ai quand même repris les code de Hasco et remplacé 13 par 66 mais rien n'y fait, le petit ☻ reste au bout de chaque ligne de ma cellule qui reçoit le texte.

Je joints le code de mon "Valider"

Code:

Private Sub Valider_Click()

SaisieInfos = Replace(SaisieInfos, Chr(66), "") ' <-- pour remplacer par des caractères vides

[B16] = USF_Saisie.SaisieInfos  ' <-- Transfert de la saisie

MsgBox Asc("B16")

End Sub

Je continue de chercher. Merci également à ceux qui font de même.

A++

 

Dernière édition: 14 Octobre 2008

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 14 Octobre 2008

• #8

Re : Caractères indésirables dans un textbox de mon USF

Re tout le monde 🙁 🙂

Je viens de faire un petit test . . .


J'ai saisi du texte sans faire un retour à la ligne et en validant, le code qui m'est retourné est toujours le 66. Bizarre !

Dans la cellule, il a le texte sans ce petit ☻.

Ceci m'incite à penser que ce petit ☻ n'a rien à voir avec le code 66.

J'espère que la soluce sera plus facile à trouver qu'un morceau de sucre fondu dans du lait chaud !

A++

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Octobre 2008

• #9

Re : Caractères indésirables dans un textbox de mon USF

Olive,

de toute façon il ne peut s'agir du code Ascii 66 qui est le B.

Pour résoudre ton problème, joins un fichier avec juste la boîte de saisie et ta macro, on ira plus vite.

A bientôt

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 14 Octobre 2008

• #10

Re : Caractères indésirables dans un textbox de mon USF

bonjour tous,

Comment vas-tu à la ligne dans l'USF?
Si ton retour à la ligne se fait par Ctrl + Entrer, teste la modification dans la cellule réceptrice :

Code:

Private Sub Valider_Click()

   [B16]=SaisieInfos 
   [B16]= Replace([B16],Chr(13), "")

End Sub

 

Pièces jointes

• Retour à la Ligne.zip

  11.4 KB · Affichages: 34

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 14 Octobre 2008

• #11

Re : Caractères indésirables dans un textbox de mon USF

Salut Lii, Re tout le monde 🙂

Ta soluce est top je n'ai plus ce foutu ☻ en fin de ligne.

Mon retour à la ligne se faisait simplement par Enter. La propriété EnterKeyBehavior est True, don pas besoin de faire Ctrl + Enter

Merci à tous pour votre précieuse aide et A++ 🙂

 

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 15 Octobre 2008

• #12

Re : Caractères indésirables dans un textbox de mon USF

🙂 😕

Re tout le monde,

Je me permets de revenir sur le problème du petit ☻ en fin ligne.

Tout marchait super jusqu'à ce matin. Mais voilà j'ai un plantage lors de la validation lorsque mon texte avoisine les 250 caractères. J'ai une erreur d'exécution 13 et ma cellule de réception indique #VALEUR!.

Le débogueur s'arrête sur

Code:

[B16]= Replace([B16],Chr(13), "")

Ma cellule de réception est en mode Texte. Tous les caractères spéciaux sont transférés normalement lorsque le texte est court, donc le problème ne vient pas de là.

J'ai tester sur d'autres cellules le problème persiste.

A ma connaissance, un USF n'a pas une limite de capacité !

Mon texte pour le test était le suivant :
Le corbeau et le renard.
Maître corbeau sur arbre perché tenait dans son bec un fromage.
Le renard par l'odeur alléché lui tient à peu près ce langage.
"Hé bonjour Maître corbeau que vous me semblez beau, sans mentir si votre plumage se rapporte à votre


Pour la bonne forme et selon la demande de Hasco d'hier, je joint mon fichier réduit au maximum.

Merci et A++ ou à demain

 

Pièces jointes

• TextboxAvecEnter.xls

  33 KB · Affichages: 53

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 15 Octobre 2008

• #13

Re : Caractères indésirables dans un textbox de mon USF

Re,

Avec quelle version travailles-tu ?
Avec la 2002, ton fichier m'a renvoyé une erreur mais ici

Code:

[B16]=SaisieInfos

En la remplaçant par

Code:

[B16]=SaisieInfos.Text

j'ai placé du premier coup plus de 2500 caractères !
De plus je n'ai jamais eu le ☻ qui t'empoisonne le coup !

 

Vote positif 0 Vote négatif

O

olivepao

XLDnaute Occasionnel

• 16 Octobre 2008

• #14

Re : Caractères indésirables dans un textbox de mon USF

Salut Lii Hello le forum 🙂 🙂 🙂 🙂

Je viens de tester plusieurs fois ta soluce

Code:

[B16]=SaisieInfos.Text

ça fonctionne super !


Merci à tous pour votre aide et à bientot

 

Vote positif 0 Vote négatif