Microsoft 365 Calcul valeurs identiques avec NB.SI incorrect; Solution VBA

[chris6999]

Bonjour

J'essaye de calculer le nombre d'occurrences pour une valeur colonne A à renseigner colonne K.
Ne sachant pas comment le faire en VBA j'ai utilisé l'enregistreur de macro avec la formule NB.SI mais les résultats sont erronés.

Ce n'est pas la première fois que je constate le manque de fiabilité de NB.SI.

Avez-vous une solution VBA pour obtenir un résultat cohérent?

Merci par avance

 

[djidji59430]

Bonjour à tous,

Va voir la :

Mise hors service du contenu

Le contenu que vous recherchez est maintenant mis hors service.

docs.microsoft.com

apparemment, nb.si transforme ta ref en nombre de 15 chiffres et toi tu en a 18 et remplace les 3 par des zeros

Crdlmt

 

[sylvanu]

Bonjour Chris,

Le problème semble venir du fait que la colonne A est considéré comme des nombres lors de l'évaluation du NB.SI, mais qui sont au delà de la précision d' XL.
Donc il met sous forme scientifique avec 15 décimales, donc on "perd" les trois dernières décimales. .... D'où les égalités.
Le problème c'est qu'appliqué en VBA, c'est la même chose. On obtient le même résultat.

J'ai contourné le problème en convertissant la colonne A en chaine. En faisant précéder chaque nombre de "Ref=", et ça marche.
Ceci dit il doit exister d'autres solutions plus "esthétiques" mais j'ai pas trouvé.

 

[djidji59430]

T'es allé voir l'adresse que j'ai mise, ou ils expliquent et donnent la solution ?

Crdlmt

 

[sylvanu]

Bonjour Djidji,
Nos post se sont croisés. 🙂
Effectivement c'est la bonne raison.
Et je n'ai rien trouvé d'autre qui marche excepté ma macro du post #3.

 

[Hasco]

Bonjour,

Dans le fichier joint, une solution par SommeProd avec mfc pour contrôle, une par PowerQuery et une par TCD

Cordialement

 

[chris6999]

Bonjour Chris,

Le problème semble venir du fait que la colonne A est considéré comme des nombres lors de l'évaluation du NB.SI, mais qui sont au delà de la précision d' XL.
Donc il met sous forme scientifique avec 15 décimales, donc on "perd" les trois dernières décimales. .... D'où les égalités.
Le problème c'est qu'appliqué en VBA, c'est la même chose. On obtient le même résultat.

J'ai contourné le problème en convertissant la colonne A en chaine. En faisant précéder chaque nombre de "Ref=", et ça marche.
Ceci dit il doit exister d'autres solutions plus "esthétiques" mais j'ai pas trouvé.

Merci beaucoup pour cette réponse qui confirme mes doutes.
Malheureusement je ne peux pas modifier les données de la colonne A il faut juste que je trouve un moyen de modifier dans ma fonction la partie de la chaîne que j'ai besoin de traiter.
Je vais creuser
Encore merci

 

[djidji59430]

Et tu peux pas le faire avec la formule ?
=SOMME(NBCAR($A$2:$A$4601)-NBCAR(SUBSTITUE($A$2:$A$4601;A2;"")))/NBCAR(A2)

Crdlmt

 

[chris6999]

Bonjour,

Dans le fichier joint, une solution par SommeProd avec mfc pour contrôle, une par PowerQuery et une par TCD

Cordialement

Merci pour cette proposition Sommeprod que j'avais déjà prévu dans mon code et que je voulais éviter car trop lourde à l'exécution sur un grand nb de lignes.
La solution du TCD ne peut s'adapter à mon projet.
Je te remercie néanmoins du temps que tu as accordé à ma demande.
Bonne journée

 

[chris6999]

Et tu peux pas le faire avec la formule ?
=SOMME(NBCAR($A$2:$A$4601)-NBCAR(SUBSTITUE($A$2:$A$4601;A2;"")))/NBCAR(A2)

Crdlmt

Bonjour et merci pour cette solution dont je ne comprends pas du tout le fonctionnement mais qui marche! et c'est bien là le principal.
Je vais la tester en VB pour voir si le traitement n'est pas trop long.
Merci encore
Bonne journée

 

[chris6999]

Bonjour à tous,

Va voir la :

Mise hors service du contenu

Le contenu que vous recherchez est maintenant mis hors service.

docs.microsoft.com

apparemment, nb.si transforme ta ref en nombre de 15 chiffres et toi tu en a 18 et remplace les 3 par des zeros

Crdlmt

Je vais voir ça
Merci

 

[chris6999]

Bonjour à tous,

Va voir la :

Mise hors service du contenu

Le contenu que vous recherchez est maintenant mis hors service.

docs.microsoft.com

apparemment, nb.si transforme ta ref en nombre de 15 chiffres et toi tu en a 18 et remplace les 3 par des zeros

Crdlmt

Super merci. J'ajoute cette page à ma base de données Excel. très intéressant

 

[sylvanu]

Re,
Ou si vous pouvez rajouter une colonne.
Ce serait je pense le plus rapide.

 

[chris6999]

Re,
Ou si vous pouvez rajouter une colonne.
Ce serait je pense le plus rapide.

J'ai trouvé la solution avec la fonction NB.SI
NB.SI(B:B;"*"&B5&"*")
Merci encore