Trouver le nombre d'occurence d'un texte inclus dans une formule

[Essem]

Bonjour le forum,

J'essai de trouver un moyen ce compter combien j'ai de formule "INDIRECTE" dans une plage variable F10:CN86.
J'ai essayé nb.si(F10:N86;"*INDIRECTE*") mais ça vérifie le texte du résultat et non celui de la formule.

Voici ce à quoi la formule ressemble dans la plage: =INDIRECTE("'"&$F$4&F$8&"'!X"&(ROW($F15)+8))

Merci à l'avance pour votre coup de pouce.

 

[Gardien de phare]

Re : Trouver le nombre d'occurence d'un texte inclus dans une formule

Bonjour,

En Vba :

Sub Macro1()
Dim Top  As Integer, C As Range
Top = 0
   For Each C In Range("F10:CN86")
        If C.FormulaLocal Like "*INDIRECT*" Then Top = Top + 1
    Next
MsgBox Top
End Sub

 

[Staple1600]

Re : Trouver le nombre d'occurence d'un texte inclus dans une formule

Bonjour à tous


Un solution sans VBA venu du XX siècle 😉 (utilisant LIRE.FORMULE)
(qui ici sera peut être utile à d'autres que le questionneur, question de plage 😛)

Imaginons que les formules avec Indirect se trouve en colonne A
Etape1
Insertion Noms/Définir
Dans Noms dans le classeur, saisir : voirformule
Dans Fait référence à, saisir: =LIRE.FORMULE(INDEX(Feuil1!$A:$A;LIGNE()))

Etape2
En colonne B, saisir la formule suivante: =CHERCHE("INDIRECT";voirformule) puis recopier vers le bas.

Etape3
en C1, saisir =NB.SI(B1:B5;2) et voilà le tour est joué
(voir exemple ci-dessous)

 

[Essem]

Re : Trouver le nombre d'occurence d'un texte inclus dans une formule

Bonjour,

Merci à Gardien de phare, cette solution me convient parfaitement...
Merci aussi à Staples1600 pour sa solution, sauf que l'excel utilisé est en anglais et je n'ai pas trouvé de correspondance à cette fonction. De plus, je ne veux pas que les usager est èa installer un compléments comme "MoreFunc" ou autres.

Bonne journée à tous!

 

[Staple1600]

Re : Trouver le nombre d'occurence d'un texte inclus dans une formule

re


Il n'y avait rien à installer de plus.Tout était déjà dans Excel 😉 (et ce depuis longtemps)

En anglais, cela aurait donné:
=GET.FORMULA(INDEX(Feuil1!C1,ROW()))

PS:Ce que tu aurais pu trouver en utilisant l'enregistreur de macros 😉

Sub Macro1()
'Macro enregistrée le 10/05/2013 par tribord arrière
ActiveWorkbook.Names.Add _
Name:="voirformule", _
RefersToR1C1:= _
"=GET.FORMULA(INDEX(Feuil1!C1,ROW()))"
End Sub