Discussion :

[miopie]

bounjour,

voila mon probleme est simple mais je galére pour trouver.
je cherche a mettre une double quote a la fin de mon texte suivi d'un point virgule.
par exemple
Title "XXXXXXXX";
voici ma ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Cells(lg6, Cells(lg6, 4).End(xlToLeft).Column + 3) = "Title " & """" & Cells(cel.Row, col) & """" & ";"

cette ligne me rajoute 2 doubles quote avant le point virgule et il ne m'en faut qu'un seul .
quelqu'un peut m'aider
merci d'avance

[tototiti2008]

Bonjour miopie,

ton code fonctionne pourtant tout à fait bien chez moi

si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox "Title " & """" & "XXXXX" & """" & ";"

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Title """ & "XXXXXX" & """;"

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Title " & Chr(34) & "XXXXXX" & Chr(34) & ";"

j'obtiens bien le résultat attendu

[miopie]

bonjour,
je ne comprend pas la syntaxe est bonne mais ca ne marche toujours pas , j'ai toujours 2 double quote.
pour en avoir qu'une il faut que je mettre un espace entre les quotes mais je me retrouve avec un espace entre la double quote et le point virgule , ce que je ne veut pas.
voici le code ou je n'ai qu'une quote mais un espace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(lg6, Cells(lg6, 4).End(xlToLeft).Column + 3) = "Title " & """" & Cells(cel.Row, col) & " " & ";"

[tototiti2008]

Bonjour,

et en mettant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(lg6, Cells(lg6, 4).End(xlToLeft).Column + 3) = "Title " & Cells(cel.Row, col) & ";"

tu obtiens quoi ?

[miopie]

j'obtient
Title XXXXX";
il me manque la double quote avant XXXXX
par contre après XXXXX c'est nikel

[miopie]

ca y est j'y suis arriver
voici le code qui marche pour moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(lg6, Cells(lg6, 4).End(xlToLeft).Column + 3) = "Title " & Chr(34) & Cells(cel.Row, col) & ";"

je ne comprend pas pourquoi ca marche , c'est completement au pif

[tototiti2008]

Re,

Et dans le contenu de la cellule désignée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(cel.Row, col)

il n'y aurait pas une double quote à la fin, par hasard ?

[miopie]

ahhhh oui tu a raison il y a bien une double quote dans la cellule.
je comprend tout maintenant.
merci a toi , c'est fort d'avoir trouvé