IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

double quote en VBA


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 39
    Par défaut 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 : 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

  2. #2
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 090
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 090
    Billets dans le blog
    2
    Par défaut
    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

  3. #3
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 39
    Par défaut
    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) & " " & ";"

  4. #4
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 090
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 090
    Billets dans le blog
    2
    Par défaut
    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 ?

  5. #5
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 39
    Par défaut
    j'obtient
    Title XXXXX";
    il me manque la double quote avant XXXXX
    par contre après XXXXX c'est nikel

  6. #6
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 39
    Par défaut
    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

  7. #7
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 090
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 090
    Billets dans le blog
    2
    Par défaut
    Re,

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

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

  8. #8
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 39
    Par défaut
    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é

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Filtre VBA, problemme avec double quote
    Par choubak dans le forum VBA Access
    Réponses: 7
    Dernier message: 29/06/2007, 09h31
  2. [XML]Protection des doubles quotes
    Par DarkNagash dans le forum XML/XSL et SOAP
    Réponses: 3
    Dernier message: 27/04/2006, 10h59
  3. [VB]probleme double quote dans une ressource de type string
    Par JulienCEA dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 23/02/2006, 12h38
  4. [Mail] Double quotes
    Par Anduriel dans le forum Langage
    Réponses: 2
    Dernier message: 15/12/2005, 21h54
  5. Réponses: 4
    Dernier message: 05/07/2004, 13h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo