Discussion :

[modus57]

Bonjour le forum

Comment rechercher la valeur "=RECHERCHE " dans toutes les cellules contenant une formule de la colonne A de la feuille de calcul active

J’ai essayé avec le code ci-dessous, çà fonctionne pas ?

Code :

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

1
2
3
4
5
6
7
8
On Error Resume Next
    For Each c In Activesheet.Range("A:A").SpecialCells(xlFormulas)
        If c.Formula Like "*=RECHERCHE*" Then
            MsgBox c.Address
        Else
            MsgBox "Aucune formule dans les cellules de la colonne A"
        End If
    Next

J’ai besoin de votre aide svp

Merci d’avance

[Pierre Fauconnier]

Bonjour

Formula renvoie la formule en anglais
Essaie avec

Code :

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

if c.formula like "=LOOKUP*"

Si tu veux rechercher dans la formule en français, essaie

Code :

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

if c.formulalocal like "=RECHERCHE*"

mais cela t'expose à des problèmes si ton classeur doit fonctionner également sur des versions non françaises...

[modus57]

Bonjour Pierre Fauconnier

J'ai testé avec

Code :

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

FormulaLocal

à prime abord çà marche

Je fais encore quelques tests, si c'est bon je marque "résolue" pour cette discussion

pour ta réponse

[modus57]

Re bonjour Pierre Fauconnier

A la première exécution de la macro çà marche, mais quand j’ajoute dans une nouvelle cellule la formule « RECHERCHE » la macro ne marche plus. Je ferme alors le fichier et je l’ouvre à nouveau, la macro ne marche pas.
Avez-vous une explication ?

A+

[Pierre Fauconnier]

Il faut t'assurer de la chaine que tu recherches...

Si tu recherches =RECHERCHE* ou *=RECHERCHE*, tu n'auras que les formules qui commencent par la chaine cherchée. Si tu cherches également les formules contenant RECHERCHE mais pas uniquement au début, tu dois utiliser

Code :

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

c.formulalocal like "*RECHERCHE*"

.

Pourrais-tu donner ton code et des exemples de formules saisies dans Excel?

[modus57]

Bonsoir

Je joins un petit fichier pour mieux expliquer le problème.

A +