XL 2019 nombre de formules dans un classeur

[pat66]

Bonjour le forum,

est t'il possible de compter le nombre de formules qu'il y a dans un classeur

merci

Pat66

 

[JHA]

Bonjour à tous,

Tu peux essayer

=SOMMEPROD(--ESTTEXTE(FORMULETEXTE(a2:a10)))

plage à modifier
Attention il y aura une formule de plus 😉 .

JHA

 

[soan]

Bonjour JHA, pat66,

Attention il y aura une formule de plus 😉 .

haha ! bien vu ! 👍 🙂

soan

 

[pat66]

Bonjour Le fil, le forum

merci pour le tuyau, mais cela va être fastidieux car mon classeur comporte 60 feuilles, je pensais pouvoir le faire avec une macro qui comptabilise toutes les formules du classeur

en tout cas merci

Pat66

 

[Rouge]

Bonjour,

Essayez ceci

Sub Compte_Formules()
    Dim Cpt As Long
    Dim Feuille As Long
    
    Application.ScreenUpdating = False
    NbFeuil = ActiveWorkbook.Sheets.Count
    For Feuille = 1 To NbFeuil
        Sheets(Feuille).Select
        Selection.SpecialCells(xlCellTypeFormulas).Select
            Cpt = Cpt + Selection.Count
    Next Feuille
    MsgBox "Nombre de formules trouvées: " & Cpt
End Sub

 

[Etoto]

Bonjour,

(Je sais j'embête un peu)

Bonjour,

Essayez ceci

Sub Compte_Formules()
    Dim Cpt As Long
    Dim Feuille As Long
  
    Application.ScreenUpdating = False
    NbFeuil = ActiveWorkbook.Sheets.Count
    For Feuille = 1 To NbFeuil
        Sheets(Feuille).Select
        Selection.SpecialCells(xlCellTypeFormulas).Select
            Cpt = Cpt + Selection.Count
    Next Feuille
    MsgBox "Nombre de formules trouvées: " & Cpt
End Sub

Par contre ta macro renvoie un erreur si une des 60 feuilles ne contient aucune formule (j'ai fait un test).

 

[pat66]

Bonjour Rouge, le fil,

j'ai testé ta macro mais voila l'erreur qui m'est renvoyé, j'ai désactivé option explicit

Une idée peut être ?

merci

 

[Etoto]

Bonjour Rouge, le fil,

j'ai testé ta macro mais voila l'erreur qui m'est renvoyé, j'ai désactivé option explicit

Une idée peut être ?

merci

C'est parce qu'une feuille ne possède pas de formule cela m'a fait le même problème, il faut que toutes les feuilles aient une formule minimum pour que le code fonctionne.

 

[soan]

Bonjour pat66, Etoto,

en complément de la réponse d'Etoto, je crois que tu devrais utiliser :

ActiveSheet.SpecialCells(xlCellTypeFormulas).Select

et mettre une gestion d'erreur du style On Error Resume Next ou On Error Goto pour éviter le plantage en cas de feuille de calcul qui est sans aucune formule.​

soan

 

[Etoto]

Bonjour pat66, Etoto,

en complément de la réponse d'Etoto, je crois que tu devrais utiliser :

ActiveSheet.SpecialCells(xlCellTypeFormulas).Select

et mettre une gestion d'erreur du style On Error Resume Next ou On Error Goto pour éviter le plantage en cas de feuille de calcul qui est sans aucune formule.​

soan

Ce qui donnerait quoi comme code final ? (je suis toujours pas bon en VBA)

 

[soan]

@Etoto : désolé, j'ai juste voulu indiquer une piste, et j'suis actuellement débordé avec d'autres exos ; j'peux pas tout faire en même temps ! 😭 😜 (et j'ai pas d'sous pour embaucher une secrétaire ! 🤣)​

 

[Etoto]

@Etoto : désolé, j'ai juste voulu indiquer une piste, et j'suis actuellement débordé avec d'autres exos ; j'peux pas tout faire en même temps ! 😭 😜​

Pas de problème tu fais déjà beaucoup à moi de me débrouiller.

 

[Etoto]

Essaie ça

Sub Compte_Formules()
    Dim Cpt As Long
    Dim Feuille As Long
    
    Application.ScreenUpdating = False
    NbFeuil = ActiveWorkbook.Sheets.Count
    For Feuille = 1 To NbFeuil
        Sheets(Feuille).Select
        Selection.SpecialCells(xlCellTypeFormulas).Select
        On Error Resume Next
            Cpt = Cpt + Selection.Count
    Next Feuille
    MsgBox "Nombre de formules trouvées: " & Cpt
End Sub

 

[soan]

@Etoto

oh là ! ne mets pas le On Error Resume Next dans la boucle For ! c'est inutile d'exécuter cette instruction à chaque tour de boucle (c'est-à-dire ici pour 1 à NbFeuil) ; met On Error Resume Next avant la boucle For, par exemple juste après la ligne Dim Feuille As Long

ensuite, attention à ceci : en cas d'erreur, l'instruction qui sera exécutée suite à On Error Resume Next sera Cpt = Cpt + Selection.Count ; or il me semble bien qu'il ne faut pas que ce compteur Cpt soit incrémenté si la feuille ne contient aucune formule ; c'est pour ça que c'est moins simple qu'il y paraît ; je te laisse chercher une solution... 😜

soan​

 

[Etoto]

Oui j'ai remarqué avec mes tests, mais je peux mettre le On Error dans le For mais après je doit soustraire par le nombres de feuilles qui ne contiennent PAS de formules ce que je sais pas faire mais je vais essayer.