OVH Cloud OVH Cloud

Comment insérer un apostrophe dans le texte s'une cellule

2 réponses
Avatar
free
Bonjour à tous

C'est pourtant simple, mais même dans Excelabo je ne trouve pas !
Je prends une ce qu'il faut à gauche je fais & "'" & j'ajoute le reste à
droite
et il m'insère 2 apostrophes au lieu d'une !!
lgPos = InStr(1, strMsg, "'", 1) => Recherche d'une ' dans le texte
Cells(2, 2).Value = Left(strMsg, lgPos) & "'" & Right(strMsg, Len(strMsg) -
lgPos + 1) => Ajout d'un 2eme apostrophe
Pour Oracle il faut 2 apostrophes au lieu d'une quand il y en a dans un
texte.


Comment faire, j'ai essayé dans mettre 2, un tilde ... rien à faire

Merci davance à celui m'aidera

A+

2 réponses

Avatar
MichDenis
Bonjour Free,

Remplace dans tes commandes "'" par Chr(39)

Salutations!


"free" <jeanpaul.briaud@(a supprimer)free.fr> a écrit dans le message de news: 420fd2ae$0$10583$
Bonjour à tous

C'est pourtant simple, mais même dans Excelabo je ne trouve pas !
Je prends une ce qu'il faut à gauche je fais & "'" & j'ajoute le reste à
droite
et il m'insère 2 apostrophes au lieu d'une !!
lgPos = InStr(1, strMsg, "'", 1) => Recherche d'une ' dans le texte
Cells(2, 2).Value = Left(strMsg, lgPos) & "'" & Right(strMsg, Len(strMsg) -
lgPos + 1) => Ajout d'un 2eme apostrophe
Pour Oracle il faut 2 apostrophes au lieu d'une quand il y en a dans un
texte.


Comment faire, j'ai essayé dans mettre 2, un tilde ... rien à faire

Merci davance à celui m'aidera

A+
Avatar
MichDenis
à titre d'exemple :


lgPos = InStr(1, strMsg, Chr(39), vbTextCompare)
Cells(2, 2).Value = Left(strMsg, lgPos) & Chr(39) & Right(strMsg, Len(strMsg) - lgPos + 1)


Salutations!


"free" <jeanpaul.briaud@(a supprimer)free.fr> a écrit dans le message de news: 420fd2ae$0$10583$
Bonjour à tous

C'est pourtant simple, mais même dans Excelabo je ne trouve pas !
Je prends une ce qu'il faut à gauche je fais & "'" & j'ajoute le reste à
droite
et il m'insère 2 apostrophes au lieu d'une !!
lgPos = InStr(1, strMsg, "'", 1) => Recherche d'une ' dans le texte
Cells(2, 2).Value = Left(strMsg, lgPos) & "'" & Right(strMsg, Len(strMsg) -
lgPos + 1) => Ajout d'un 2eme apostrophe
Pour Oracle il faut 2 apostrophes au lieu d'une quand il y en a dans un
texte.


Comment faire, j'ai essayé dans mettre 2, un tilde ... rien à faire

Merci davance à celui m'aidera

A+