Discussion :

[modus57]

Bonjour à tous.

Je ne comprends pas pourquoi la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each c In ActiveSheet.UsedRange.SpecialCells(xlFormulas)
If c.Formula Like "*LOOKUP*" Then
MsgBox c.Formula
End If

Trouve le mot équivalent “RECHERCHE“ dans la formule EXCEL ci-dessous :
=RECHERCHE(A2;'[Clients.xls]BD CLIENTS'!$A:$A;'[Clients.xls]BD CLIENTS'!$D:$D)

Ne trouve pas le mot équivalent “RECHERCHE“ dans la formule EXCEL ci-dessous :
=SI(A2=0;"";RECHERCHE(A2;'[Clients.xls]BD CLIENTS'!$A:$A;'[Clients.xls]BD CLIENTS'!$D:$D))

Je ne trouve pas d’explication ?

Pourriez-vous m’aider svp, merci d’avance.

Cordialement modus57.

[Gorfael]

Salut modus57 et le forum
Parce qu'il est feignant ?
demande plutôt de rechercher le mot réel que tu as dans ta cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each c In ActiveSheet.UsedRange.SpecialCells(xlFormulas)
If c.FormulaLocal Like "*RECHERCHE*" Then
MsgBox c.FormulaLocal
End If

A+

[ouisansdoute]

Bonjour Gorfael et bonjour Modus,

je dispose d'Excel2003 et ton code fonctionne en y rajoutant quand même un Next après le End If (même si la formule contient RECHERCHEV)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub cherche()
For Each c In ActiveSheet.UsedRange.SpecialCells(xlFormulas)
   If c.Formula Like "*LOOKUP*" Then
      MsgBox c.Formula
   End If
Next
End Sub

Eventuellement peux-tu essayer avec la syntaxe suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If c.Formula Like "*" & "LOOKUP" & "*" Then

[modus57]

Bonjour Gorfael, ouisansdoute.

Merci pour vos réponses.

J'ai testé les 2 solutions.

La procédure arrive a traitée la formule EXCEL ci-dessous :
=RECHERCHE(A2;'[Clients.xls]BD CLIENTS'!$A:$A;'[Clients.xls]BD CLIENTS'!$D:$D)
Et modifie la formule comme suit:
=INDEX(Feuil3!B:B;EQUIV($A$2;Feuil3!$A:$A;0))

Mais n'arrive pas traitée la formule EXCEL ci-dessous :
=SI(A2=0;"";RECHERCHE(A2;'[Clients.xls]BD CLIENTS'!$A:$A;'[Clients.xls]BD CLIENTS'!$D:$D))
Et affiche le Message d’Erreur 1004
"Erreur définie par l’application ou par l’objet"

Je joins un fichier pour mieux comprendre le problème.

A +

[ESVBA]

Cherche la chaine avec la fonction "InStr()".

Syntaxe

InStr([start, ]string1, string2[, compare])

La syntaxe de la fonction InStr comprend les arguments suivants :

Élément Description
start Facultatif. Expression numérique qui définit la position de départ de chaque recherche. Si cet argument est omis, la recherche commence au premier caractère. Si l'argument start contient une valeur de type Null, une erreur se produit. L'argument start est obligatoire si l'argument compare est indiqué.
string1 Expression de chaîne dans laquelle la recherche est effectuée.
string2 Expression de chaîne recherchée.
compare Facultatif. Indique le type de comparaison de chaînes. Si l'argument compare est de type Null, une erreur se produit. Si l'argument compare est omis, la valeur de l'instruction Option Compare détermine le type de comparaison. Indiquez un LCID (LocaleID) correct pour respecter les règles locales spécifiques à la comparaison.


Valeurs

L'argument compare peut prendre les valeurs suivantes :

Constante Valeur Description
vbUseCompareOption -1 Effectue une comparaison à l'aide de la valeur de l'instruction Option Compare.
vbBinaryCompare 0 Effectue une comparaison binaire.
vbTextCompare 1 Effectue une comparaison textuelle.
vbDatabaseCompare 2 Réservée à Microsoft Access. Effectue une comparaison basée sur les informations de votre base de données.


Valeurs renvoyées

Si La fonction InStr renvoie
string1 est de longueur nulle 0
string1 est de type Null Null
string2 est de longueur nulle start
string2 est de type Null Null
string2 est introuvable 0
string2 est trouvée à l'intérieur de string1 Position à laquelle la chaîne est trouvée
start > string2 0