XL 2016 Macro pour compter cellules contenant une formule

AL 22 à dit:

Bonsoir Lorenzini, bonsoir à tous,

Ce code compte toutes les formules de A3 à CS5000.
Veuillez précisez le nom de la feuille.

VB:

Sub CompterFormules()

    Dim feuille As Worksheet
    Dim plage As Range
    Dim cellule As Range
    Dim compteur As Integer
   
    Set feuille = ThisWorkbook.Worksheets("Feuil1")à adapter
   
    Set plage = feuille.Range("A3:CS5000")
   
    compteur = 0
   
    For Each cellule In plage
        If cellule.HasFormula Then
            compteur = compteur + 1
        End If
    Next cellule
   
    MsgBox "Nombre de formules : " & compteur
   
End Sub

Bonne soirée
AL 22

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Lorenzini,
Je n'ai que XL2007 et cette formule n'est pas disponible.
Mais avec XL2016 regardez du coté FORMULETEXTE qui donne le texte d'une formule.

FORMULETEXTE (FORMULETEXTE, fonction) - Support Microsoft

Syntaxe : FORMULETEXTE(référence)

support.microsoft.com

[Edit], Sorry, Bonsoir AL22, problème de refresh.

Cliquez pour agrandir...

Cousinhub à dit:

Bonsoir,
autre solution :

VB:

MsgBox Cells.SpecialCells(xlCellTypeFormulas, 23).Count

Cliquez pour agrandir...

Cousinhub à dit:

Bonsoir,
autre solution :

VB:

MsgBox Cells.SpecialCells(xlCellTypeFormulas, 23).Count

Cliquez pour agrandir...

Lorenzini à dit:

bonsoir cousinhub, ...
par contre, je viens de tester et rien ne se passe ? Pouvez-vous me dire à quoi correspond la valeur "23" ?

Cliquez pour agrandir...

Cousinhub à dit:

Bonjour,

La constante représente le type de formule recherchée :
- 1 correspond à une formule renvoyant un nombre
- 2 correspond à une formule renvoyant du texte
- 4 correspond à une formule renvoyant une valeur logique
- 16 correspond à une formule renvoyant une erreur

16 + 4 + 2+ 1 = 23, ce qui correspond à rechercher toutes les formules, quelque soient les valeurs renvoyées..
Bonne apm

Cliquez pour agrandir...