Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 nombre de formules dans un classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pat66

XLDnaute Impliqué
Bonjour le forum,

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

merci

Pat66
 
Solution
R
Ta macro me dit que j'ai 0 formule dans mon fichiers alors que j'en ai 35
Ta variable "x" est attachée a aucun code aussi. Vous voulez dire que j'ai oublié de la déclarer? mais même sans déclaration ça marche quand même.

Essayez l'exemple suivant
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Bonjour,

Essayez ceci
VB: 
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
 
Vote positif 0 Vote négatif
Bonjour,

(Je sais j'embête un peu)
Par contre ta macro renvoie un erreur si une des 60 feuilles ne contient aucune formule (j'ai fait un test).
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

  • Capture d’écran 2021-05-11 095823.jpg
    41.1 KB · Affichages: 13
Vote positif 0 Vote négatif
pat66 à dit:
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
Cliquez pour agrandir...
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Ce qui donnerait quoi comme code final ? (je suis toujours pas bon en VBA)
 
Vote positif 0 Vote négatif
@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 ! 🤣)​
 
Vote positif 0 Vote négatif
Essaie ça
VB: 
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
 
Vote positif 0 Vote négatif
@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​
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
XL 2021 Compter nombre de Week end en repos dans planning
Réponses
3
Affichages
266
stephane bouttier
S
  • Résolu(e)
Microsoft 365 [FORMULES] Tableau de synthèse avec SOMMEPROD, sans TCD, ni VBA
2
Réponses
18
Affichages
754
ralph45
A
  • Résolu(e)
Microsoft 365 Compter avec la condition que la valeur suivante ne soit pas 3 - NB.SI.ENS ?
Réponses
8
Affichages
214
sylvanu
A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
507
Alamyr
A
C
  • Question Question
XL pour MAC Classeur Excel pour tenue de livre
Réponses
1
Affichages
161
wDog66
  • Question Question
XL 2019 recopier un texte avec ajout lignes vides
Réponses
3
Affichages
237
lynyrd
J
  • Résolu(e)
Microsoft 365 Mettre mon tableau en tableau structuré
Réponses
10
Affichages
286
JPC33
J
B
  • Question Question
Formules de courbe de tendance
Réponses
8
Affichages
148
Bill7588
B
  • Résolu(e)
Microsoft 365 Trier sur colonnes disjointe sur 12 feuilles
Réponses
6
Affichages
244
jcf6464
  • Résolu(e)
XL 2021 VBA - Comment transformer un classeur enregistré en classeur non enregistré
2 3
Réponses
34
Affichages
833
patricktoulon
M
  • Question Question
Microsoft 365 Formule pour compter différentes valeurs sur une table filtrée
2
Réponses
17
Affichages
442
MFPaderne
M
  • Résolu(e)
XL 2021 Les résultats de 2 formules ne s'affichent plus.
Réponses
3
Affichages
185
sylvanu
G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
241
job75
L
  • Résolu(e)
Microsoft 365 Calcul dans un TCD ou PowerPivot
Réponses
4
Affichages
533
Laurent78
L
  • Question Question
XL 2019 Réunir du texte
2 3
Réponses
37
Affichages
949
job75
  • Résolu(e)
Microsoft 365 Tri liste - répartition égale
Réponses
12
Affichages
452
La_Mouette
M
  • Question Question
Microsoft 365 Remplacer une chaine de caractère d'un code VBA par un autre code VBA
2
Réponses
18
Affichages
1 K
patricktoulon
P
  • Résolu(e)
Microsoft 365 activer macro après collage
Réponses
6
Affichages
122
pat66
P
L
  • Question Question
XL 2016 liste
Réponses
10
Affichages
209
chris
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
185
bernardrustrel
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…