XL 2016 Macro pour compter cellules contenant une formule

[Lorenzini]

Bonjour à toutes et à tous,

Ca paraît simple et je ne trouve mon bonheur nulle part...
Je souhaite programmer un bout de code qui me compterait toutes les formules d'une feuille (j'utilise un classeur ne contenant qu'une seule feuille (mais elle est ultra remplie de formules... de A3 à CS5000)).
Pouvez-vous m'aider svp ?

Merci d'avance

 

[AL 22]

Bonsoir Lorenzini, bonsoir à tous,

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

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

 

[sylvanu]

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.

 

[Cousinhub]

Bonsoir,
autre solution :

MsgBox Cells.SpecialCells(xlCellTypeFormulas, 23).Count

 

[Lorenzini]

Bonsoir Lorenzini, bonsoir à tous,

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

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

Merci ! je viens de le tester et ce code marche parfaitement ! Merci !

 

[Lorenzini]

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.

ok, merci Sylvanu

 

[Lorenzini]

Bonsoir,
autre solution :

MsgBox Cells.SpecialCells(xlCellTypeFormulas, 23).Count

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

 

[Lorenzini]

Bonsoir,
autre solution :

MsgBox Cells.SpecialCells(xlCellTypeFormulas, 23).Count

oups ! désolé, ai parlé trop vite ! je viens de retester et çà à marché ! Merci !

 

[Cousinhub]

Bonjour,

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

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

 

[Lorenzini]

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

aaaaaaah d'accord ! Et bien ... Merci pour ces précisions !