En VBA formule : Si "texte" Then lorsque dans le texte existe "&q

Résolu
varin -  
 varin -
Bonjour,

Je réalise une macro avec des conditionnelles If.
Chaque conditionnelle vérifie si un texte précis est présent.

Mon probléme est le suivant dans les textes présents recherchés, un texte contient des guillemets.

Exemples :

If Cells(Numéro_Ligne_De_Titre, 0) = "Facteur 1" Then
Cette ligne ne me pose pas de problème,

Par contre
If Cells(Numéro_Ligne_De_Titre, 0) = "Complément de l'onglet "Paramètre"" Then
Cette ligne me pose problème car Paramètre est entre guillemets.

Auriez vous une solution.

Merci d'avance

4 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Chr(34) est le code ASCII de la double cote

    If Cells(Numéro_Ligne_De_Titre, 0) = "Complément de l'onglet " & Chr(34) & "Paramètre" & Chr(34) Then

    par contre le zero ira pas cells(1,1) = A1
    0
  2. varin
     
    Bonjour,

    Merci pour l'aide.

    J'ai modifié la macro en conséquence et elle bug avec Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet.
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    montrez ce que vous avez ecrit !!!!!!
    0
  4. varin
     
    Génial !

    Tout fonctionne, cela m'a beaucoup aidé.

    Mon erreur venait de mon adressage de cellule avec les deux variables ligne et colonne.

    Merci encore et bonne journée.
    0