Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Remplacer * par " en VB

8 réponses
Avatar
Laurence
Bonjour

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile par un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)

et forcément j'ai un message d'erreur. Je suis obligée de faire apparaître
dans ma cellule des guillemets;

Quelqu'un peut-il m'aider ?

Merci beaucoup !

8 réponses

Avatar
jps
un p'tit coup d'enregistreur de macros devrait faire avancer le schmilblick
papy mougeot jps en direct de cajarc

"Laurence" a écrit dans le message de
news:
Bonjour

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile par
un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)

et forcément j'ai un message d'erreur. Je suis obligée de faire apparaître
dans ma cellule des guillemets;

Quelqu'un peut-il m'aider ?

Merci beaucoup !


Avatar
JB
Bonjour,

lieu = Replace(Range("A1").Value, "*", Chr(34)

JB
On 18 juin, 11:02, Laurence
wrote:
Bonjour

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile p ar un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)

et forcément j'ai un message d'erreur. Je suis obligée de faire appar aître
dans ma cellule des guillemets;

Quelqu'un peut-il m'aider ?

Merci beaucoup !


Avatar
AV
J'ai une cellule qui contient des *. Je voudrais remplacer une étoile par un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)


Double les guillemets :
lieu = Replace([A1].Value, "*", """")

AV

Avatar
JP25
Bonjour,
lieu = Replace(Range("A1").Value, "*", Chr(34))

--
Cordialement
JP25


"Laurence" a écrit dans le message de
news:
Bonjour

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile par
un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)

et forcément j'ai un message d'erreur. Je suis obligée de faire apparaître
dans ma cellule des guillemets;

Quelqu'un peut-il m'aider ?

Merci beaucoup !


Avatar
jps
ce que fait l'enregistreur de macros...
jps
PS note bien, laurence, le coup du [A1], si cher à PFFFF

"AV" a écrit dans le message de news:

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile par
un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)


Double les guillemets :
lieu = Replace([A1].Value, "*", """")

AV




Avatar
AV
PS note bien, laurence, le coup du [A1], si cher à PFFFF


Bofff...
Tant qu'à faire, il aurait fallu aller au bout de la logique car le ".Value" n'a
pas lieu d'être :

lieu = Replace([A1], "*", """")

AV

Avatar
Laurence
Désolée mais je ne comprends pas ta réponse, peux tu m'expliquer comment
l'enregistreur de macro pourrait résoudre mon problème (qui est très bien
résolu grâce au chr(34))?


ce que fait l'enregistreur de macros...
jps
PS note bien, laurence, le coup du [A1], si cher à PFFFF

"AV" a écrit dans le message de news:

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile par
un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)


Double les guillemets :
lieu = Replace([A1].Value, "*", """")

AV








Avatar
jps
l'enregistreur de macros ne t'aurait pas donné le chr(34), certes, mais tu y
aurais vu le truc des doubles guillemets dont t'a parlé AV
jps

"Laurence" a écrit dans le message de
news:
Désolée mais je ne comprends pas ta réponse, peux tu m'expliquer comment
l'enregistreur de macro pourrait résoudre mon problème (qui est très bien
résolu grâce au chr(34))?


ce que fait l'enregistreur de macros...
jps
PS note bien, laurence, le coup du [A1], si cher à PFFFF

"AV" a écrit dans le message de news:

J'ai une cellule qui contient des *. Je voudrais remplacer une étoile
par
un
" (par un guillment et non par une double cote).
J'utilise la fonction replace telle quel:
lieu = replace(range("A1").value, "*", """)


Double les guillemets :
lieu = Replace([A1].Value, "*", """")

AV