XL 2016 Macro pour compter cellules contenant une formule

Lorenzini

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Lorenzini

XLDnaute Occasionnel
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
Merci ! je viens de le tester et ce code marche parfaitement ! Merci ! 😁 👍
 

Cousinhub

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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 ! 🙂
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla