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

Résolu/Fermé
Signaler
-
 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

Messages postés
16135
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 décembre 2021
1 566
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
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.
Messages postés
16135
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 décembre 2021
1 566
Re,

montrez ce que vous avez ecrit !!!!!!
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.