Recherche d'un Caractère "parasite"

Slaut clark,

Sous vba tu peut utilisé deux méthodes :
-la recherche du caractère puis remplacement ex :

dim m_pos_car as integer
dim m_contenue_cellule as string

range("A1").select
m_contenue_cellule=activecell.value
m_pos_car= instr(1,m_contenue_cellule,chr(10),vbtextecompare)
if m_pos_car<>0 then
m_contenue_cellule=left(m_contenue_cellule,m_pos_car-1) & "@" & right(m_contenue_cellule,len(m_contenue_cellule)-m_pos_car-1)
activecell.formula=m_contenue_cellule
end if

-la fonction remplace d'excel je ne me souviens plus la sintaxe exacte de cette fonction, je te conseil donc d'utilisé l'enregistreur de macro ce sera plus sûr :
activecell.value=application.worksheetfunction.substitute(chr(10),"@")

je crois ???

A+ Wilfried ;op

Re: Recherche d'un Caractère

Voici un post qui utilise la fonction remplace.

Exemple de ti.

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=138802&t=138710>

A+ Wilfried ;o)

Bonjour Clark, le forum,

Tiens, voilà un sujet qui me dit quelque chose.

Essaie la fonction "Replace" :
NouvelleChaine = Replace (Contenu TextBox, vbCR, chr (45))

Je n'ai pas testé. Je ne suis pas sûr de la syntaxe.

"Contenu TextBox" contient la chaine à reprendre.
"NouvelleChaine" contient la chaine corrigée. Tu en fais ce que tu veux par la suite.
"chr(45)" correspond à "-" (le signe moins).

En espérant que cela te dépanne.

Abel.

Re,

Pardon WILFRIED, je n'avais pas rafraichi.

Abel.

Merci wilFried, c'est le chr(10) qui me manquait!!!

Clark 🙂

Moi non plus je n'avais pas raffraîchi!!!

Merci à toi également Abel 🙂

Clark