En VBA formule : Si "texte" Then lorsque dans le texte existe "&q Résolu/Fermé

Question

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

f894009 · Answer

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

varin · Answer

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.

f894009 · Answer

Re,

montrez ce que vous avez ecrit !!!!!!

varin · Answer

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.

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

4 réponses

Discussions similaires