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

XL 2010 Afficher résultat formule nb.si.ens macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion miliev83
  • 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
M

miliev83

XLDnaute Occasionnel
Bonjour à tous,

J'ai un fichier qui fait 15 000 lignes pour 50 colonnes qui me sert de base de données (feuille bdd) pour calculer des nb.si.ens (au moins 50)
> le problème c'est que du coup les formules sont vachement longues à s'exécuter.

J'aurai aimé pour optimiser mes formules les lancer par macro et afficher les résultats dans les cellules du tableau de la feuille "resultat"

J'ai trouvé comment afficher le résultat mais cela m'affiche également la formule, chose que je ne souhaite pas pour ne pas alourdir mon fichier

>> Comment faire pour lancer les nb.si.ens en même temps et afficher seulement le résultat obtenu ?

Merci à vous
 

Pièces jointes

Trier par date Trier par votes
Merci pour ton travail,
à un détail près c'était parfait lol car il ne faut pas tenir compte du critère "Article"

Exemple : Nombre de prix à 10 de couleur noir différent de NULL = 4
Ma formule est
=NB.SI.ENS(bdd!B:B;"20";bdd!C:C;"<>NULL";bdd!D: D;">0")

Le problème c'est que dans mon vrai fichier, je peux avoir au moins 6 ou 7 critères dans la formule c'est pour ça que je l'écris directement dans la formule

Est-ce réalisable ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re

Une autre façon de faire

VB: 
Sub Resultats()
        With Sheets("resultat").Range("b2")
            .FormulaLocal = "=NB.SI.ENS(bdd!B:B;""10"";bdd!C:C;""OK"";bdd!D:D;"">0"")"
            .Value = .Value
        End With
     
        With Sheets("resultat").Range("b3")
            .FormulaLocal = "=NB.SI.ENS(bdd!B:B;""20"";bdd!C:C;""OK"";bdd!D:D;"">0"")"
            .Value = .Value
        End With
     
        With Sheets("resultat").Range("c2")
            .FormulaLocal = "=NB.SI.ENS(bdd!B:B;""10"";bdd!C:C;""OK"";bdd!E:E;"">0"")"
            .Value = .Value
        End With
     
         With Sheets("resultat").Range("c3")
            .FormulaLocal = "=NB.SI.ENS(bdd!B:B;""20"";bdd!C:C;""OK"";bdd!E:E;"">0"")"
            .Value = .Value
        End With
End Sub

 
Dernière édition:
Vote positif 0 Vote négatif
Yes merci, ca fonctionne bien 🙂

Après recomptage, il y aurait en fait pratiquement 400 formules à lancer en même temps,
En fouillant un peu, j'ai trouvé un bout de code qui à l'air de fonctionner mais comme j'y connais pas grand chose, quel code est le plus optimiser pour mon fichier entre le tien et celui là

Code: 
Sub test()
Dim Cel As Range
Dim myRange As Range
Range("B2") = "=COUNTIFS(bdd!C,""10"",bdd!C[1],""<>NULL"",bdd!C[2],"">0"")"
Set myRange = Range("B2:C10")
For Each Cel In myRange
Cel.FormulaLocal = Cel
Next Cel
End Sub

Merci encore
 
Vote positif 0 Vote négatif
Re

Comme tu as beaucoup de formules, mieux vaut utiliser le 2ème exemple que je t'ai montré. For each, rique de tourner longtemps avant d'afficher les résultats et de faire planter le programme.
 
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

O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
R
  • Question Question
XL 2019 Aide à la création d'un fichier de saisie et suivi des engagements budgétaires sous Excel
Réponses
2
Affichages
192
Royaulté
R
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
447
chris63
C
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
445
IderMTC
I
M
  • Question Question
XL 2021 BUG ou erreur normale ? formule ---> résultat faux
Réponses
1
Affichages
471
sylvanu
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
422
p56
P
  • Résolu(e)
Microsoft 365 Retourner un autre résultat que le premier (mais non prédéfini) via formule de recherche
Réponses
4
Affichages
445
Pedrolitox
P
Y
  • Question Question
Microsoft 365 Formule concatener ou joindre texte: ne pas afficher de résultat si cellule=0
2
Réponses
16
Affichages
2 K
JHA
J
K
  • Question Question
XL 2019 [RESOLU] Ne pas afficher le résultat de la formule si rien dans colonne
Réponses
2
Affichages
1 K
Kris1775
K
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
W
  • Question Question
XL 2016 Calculer les présences en "Seul" ou "Accompagné" en tableau 1 et présenter la synthèse en tableau 2
2
Réponses
21
Affichages
2 K
Webperegrino
W
C
  • Question Question
Microsoft 365 VBA Moyennes avec conditions
Réponses
7
Affichages
663
AtTheOne
A
  • Question Question
XL 2010 Correction macro supprimant les lignes avec '' 0 '' en début de tableau
Réponses
2
Affichages
479
Acritas
A
P
  • Question Question
Microsoft 365 Sélectionner une cellule hors du champ affiché de la feuille active sans qu'elle s'affiche
Réponses
4
Affichages
720
Deadpool_CC
A
  • Résolu(e)
Microsoft 365 Formules ou macro
Réponses
10
Affichages
1 K
djidji59430
M
  • Question Question
XL 2010 macro pour afficher les profondeurs correspond à chaque longueur
Réponses
3
Affichages
696
sylvanu
O
  • Question Question
XL 2016 Problématique écritures comptables - formule Excel et Macro VBA simple
Réponses
9
Affichages
1 K
fanfan38
D
  • Question Question
Microsoft 365 Ancienneté salariés & Anniversaires professionnels
Réponses
5
Affichages
2 K
Dje_Ejd
D
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
C
  • Résolu(e)
Microsoft 365 [VBA] macro pour cibler une cellule aléatoire et y coller une valeur
Réponses
5
Affichages
1 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…