double quote en VBA

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:

---

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

Bonjour miopie,

ton code fonctionne pourtant tout à fait bien chez moi

si je fais

Code:

---

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

---

ou

Code:

---

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

---

ou

Code:

---

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

---

j'obtiens bien le résultat attendu

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:

---

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

---

Bonjour,

et en mettant :

Code:

---

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

---

tu obtiens quoi ?

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

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

Code:

---

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

Re,

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

Code:

---

Cells(cel.Row, col)

---

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

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é :ccool: