Compter des ensembles en VBA WorksheetFunction.CountIf

Bonjour,
J'utilise WorksheetFunction.CountIf de cette façon,

Code:

---

1 2 3 4 5 6

a = 18 n1 = 1 n2 = 2   n2 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n1) n4 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n3)

---

n2 donne la quantité numéraire de n1 dans Range(Cells(a, 3), Cells(a, 22).
n4 donne la quantité numéraire de n2 dans Range(Cells(a, 3), Cells(a, 22).

j'ai besoin de compter deux ou plusieurs valeurs en même temps.
peut-on en une seule ligne de code avec WorksheetFunction.CountIf, compter deux valeurs ou plusieurs valeurs en même temps ?

En résumé, compter des ensembles de deux valeurs numéraires ou des ensembles de plusieurs valeurs numéraires dans une ligne et/ou dans plusieurs lignes à la fois.
en sachant que :
n1 = 1, n3 = 2, n5 = 3, n7 = 4 ....etc

D'avance merci infiniment.

Ps: j'ai essayé avec cette ligne de code( WorksheetFunction.CountIfs ou WorksheetFunction.CountA ou WorksheetFunction.Count ) pour compter des ensembles de deux valeurs,....évidement ça ne marche pas !

Hello,

La fonction CountIfs peut-elle faire ton bonheur ?
Sauf erreur de ma part, c'est l'équivalent de la formule SOMME.SI.ENS

Citation:

---

Envoyé par deedolith

Hello,

La fonction CountIfs peut-elle faire ton bonheur ?
Sauf erreur de ma part, c'est l'équivalent de la formule SOMME.SI.ENS

---

Bonjour,
et non, j'ai déjà essayé countifs, countA et count. ça ne marche pas.
-------------------------------------
comment mettre les deux valeurs (ou plusieurs) sur un même ligne de code, de façon à avoir le total de l'ensemble de deux ou plus.

Code:

---

1 2 3 4 5

a =18 n1 = 1 n3 = 2 n2 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n1) n4 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n3)

---

d'avance Merci !
ps: ces deux lignes fonctionnent, mais elles gèrent qu'une valeurs à la fois.

Bonjour,

Citation:

---

comment mettre les deux valeurs (ou plusieurs) sur un même ligne de code, de façon à avoir le total de l'ensemble de deux ou plus.

---

Ce que tu veux faire est une somme matricielle qui fonctionne très bien en formule mais pas en VBA.
Tu peux mettre la formule dans une cellule et récupérer le résultat mais difficile sur une seule ligne.

Après mûre réflexion,
ton code est bien comme il est, je ne voit nulle besoin d'y toucher surtout pour une pseudo amélioration.

Qu'on soit d'accord, le premier but d'un code source est d'être lu et compréhensible.
Qu'il produise le résultat escompté n'arrive qu'en seconde position.
De plus un code court n'implique pas qu'il soit plus rapide.

Alors les problématiques d'en faire un maximum sur une seule ligne, on s'en cogne.

Bonjour,
le code est bon quand il s'agit d'une ligne. J'ai créé un moteur qui incrémente qui donne ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

dim a, n5, N7, x, mot1 as Integer a =18 n5 = 1 n7 = 2 x = 0 For mot1 = 1 To 14   n2 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n5) n4 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n7)   If n2 = 1 And n4 = 1 Then ' quand n5 et N7 sont présents sur la ligne : x augmente de 1 x = x + 1 End If a = a + 1 next mot1

---

Mais, je souhaiterai dans cet ensemble de lignes (14 lignes) d'un seul coup avoir le total des ensembles de n5 et N7, et pourquoi pas si c'est possible avec plus valeurs, n5,n7,n9...etc
En sachant que le nombre de lignes peut aller jusqu'à plusieurs centaines !
Si tu me confirmes que c'est beaucoup plus difficile, n'en parlons plus.
Merci pour ton aide.

Bonjour,

Il te faut ajouter le type à chaque définition de variable sinon le type est indéfini.

Code:

---

Dim a As Integer, n2 As Integer, n4 As Integer, n5 As Integer, N7 As Integer, x As Integer, mot1 As Integer

---

Citation:

---

J'ai créé un moteur qui incrémente qui donne ceci

---

Ta boucle sur mot1 est vraiment ésotérique car la variable n'y est pas utilisée ?

Ah bon ?!, jusqu'à présent tout marche et les variables reconnaissent leurs valeurs nombre.
Je n'ai pas de messages "objet non traité par l'application" ou tout autre chose !
En ce qui concerne ma boucle j'ai oublié ceci après :

Code:

---

1 2 3 4 5 6 7 8 9

If n2 = 1 And n4 = 1 Then x = x + 1 End If   if mot1 = 14 then Range("A1").Select ActiveCell.Value = x exit for End if

---

Merci quand même !

Citation:

---

Ah bon ?!, jusqu'à présent tout marche et les variables reconnaissent leurs valeurs nombre.

---

Je ne t'ai pas dit que cela ne fonctionnait pas mais que tes variables sont définies en variant si le type n'est pas précisé pour chacune, ce qui n'est pas toujours souhaitable.
Tu peux vérifier mes dires sur la documentation Microsoft
https://docs.microsoft.com/fr-fr/off...ring-variables

Code:

---

if mot1 = 14 then

---

Comme tu as une boucle de 1 à 14 il sera fatalement égal à 14 à la fin sauf plantage et le test dans la boucle est inutile.

Cela dit, ce n'est qu'une information et chacun est libre d'utiliser le code à sa guise.

Citation:

---

Envoyé par jfcjfc

Je n'ai pas de messages "objet non traité par l'application" ou tout autre chose !

---

Le compilateur VBA est très léger et ne traque pas les variables non utilisées, non intialisées, mal typées ect ...., il se contente majoritairement de vérifier la syntaxe, tous le reste survient à l'éxecution.

Si tu veux un outils plus performant, il y a rubberduck

Merci pour l'info,
mais je suis toujours à la recherche d'un code en VBA afin de pouvoir compter les ensembles de nombres en couples, en triplets etc.. dans un ensemble de lignes prédéfinies.
Si toute fois tu trouve ça, pense à moi !
Encore merci

Hello,
voici une fonction VBA qui prend en paramètres une plage ligne dans laquelle on cherche et comme autre paramètre un tableau des valeurs à chercher. Elle renvoie un tableau qui contient les quantités numéraires des valeurs cherchées :
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function Compter(Plage, tabSearch) As Variant Dim pos Dim tabRes() As Variant Dim Ligne As Variant Dim Cell As Variant ReDim tabRes(1 To UBound(tabSearch) - LBound(tabSearch) + 1) Ligne = Application.Transpose(Application.Transpose(Plage)) For Each Cell In Ligne pos = Application.Match(cell, tabSearch, False) If Not IsError(pos) Then tabRes(pos) = tabRes(pos) + 1 End If Next Compter = tabRes End Function     Sub Test() Dim Resultat Resultat = Compter(Range("A18:O18"), Array(1, 2, 3)) End Sub

---

Ami calmant, J.P

Bonjour,

Citation:

---

Envoyé par jfcjfc

je suis toujours à la recherche d'un code en VBA afin de pouvoir compter les ensembles de nombres en couples, en triplets etc.. dans un ensemble de lignes prédéfinies.

---

Plus je regarde ton code et moins je le comprends.
Tu boucles 14 fois sur une procédure invariable et donc tu ne peux obtenir que 0 ou 14
Tu regardes la présence de nombres mais en fait tu ne comptes pas car si tu as deux fois 1 et une fois 2 tu ignores,
alors qu'un comptage global va te donner 3.

Bref pour moi c'est totalement inextricable et c'est impossible de trouver la finalité.

J'aurai une procédure pour mettre le résultat dans ta cellule mais il faudrait savoir quel résultat tu veux.

D'ailleurs si ta procédure est faite pour un résultat sur différentes lignes il serait plus judicieux de l'obtenir par formule.
Si tu veux savoir si tu as le tiercé ou quinté dans ta ligne de numéros de chevaux,
parce qu'en fait c'est sans doute ton objectif, c'est très facile de l'avoir par formule sans procédure VBA.


En espérant une clarification de tes objectifs, bonne journée.

Citation:

---

Envoyé par jurassic pork

Hello,
voici une fonction VBA qui prend en paramètres une plage ligne dans laquelle on cherche et comme autre paramètre un tableau des valeurs à chercher. Elle renvoie un tableau qui contient les quantités numéraires des valeurs cherchées :
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function Compter(Plage, tabSearch) As Variant Dim pos Dim tabRes() As Variant Dim Ligne As Variant Dim Cell As Variant ReDim tabRes(1 To UBound(tabSearch) - LBound(tabSearch) + 1) Ligne = Application.Transpose(Application.Transpose(Plage)) For Each Cell In Ligne pos = Application.Match(cell, tabSearch, False) If Not IsError(pos) Then tabRes(pos) = tabRes(pos) + 1 End If Next Compter = tabRes End Function     Sub Test() Dim Resultat Resultat = Compter(Range("A18:O18"), Array(1, 2, 3)) End Sub

---

Ami calmant, J.P

---

Merci !merci !

Citation:

---

Envoyé par anasecu

Bonjour,

Plus je regarde ton code et moins je le comprends.
Tu boucles 14 fois sur une procédure invariable et donc tu ne peux obtenir que 0 ou 14
Tu regardes la présence de nombres mais en fait tu ne comptes pas car si tu as deux fois 1 et une fois 2 tu ignores,
alors qu'un comptage global va te donner 3.

Bref pour moi c'est totalement inextricable et c'est impossible de trouver la finalité.

J'aurai une procédure pour mettre le résultat dans ta cellule mais il faudrait savoir quel résultat tu veux.

D'ailleurs si ta procédure est faite pour un résultat sur différentes lignes il serait plus judicieux de l'obtenir par formule.
Si tu veux savoir si tu as le tiercé ou quinté dans ta ligne de numéros de chevaux,
parce qu'en fait c'est sans doute ton objectif, c'est très facile de l'avoir par formule sans procédure VBA.


En espérant une clarification de tes objectifs, bonne journée.

---

Bonjour,
j'ai mis 14 à la boucle pour l'exemple, d’habitude il y a une variable qui définie un nombre de ligne,
et une variable qui définie un nombre de Numéros
Ce nombre de lignes et de numéros sont inscrites sur deux cellule, une pour chaque variable.
Ex :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

dim a as integer, dim c as integer, dim d as integer, dim e as integer, dim f as integer, dim x as integer nbf1 as integer, nbl as integer   a = 18 c = 18 d = 53 e = 13 f = 24 x = 0 Range("AQ13").Select ' nombre de N° nbf1 = ActiveCell.Value '''' Range("W13").Select ' numero de base n5 = ActiveCell.Value ''' For mot1 = 1 To nbf1 - 1 ' Pourquoi -1 ?!, parceque le numero de base se trouve sur la même ligne des autres numéros Cells(e, f).Select n7 = ActiveCell.Value for mot 2 = 1To nbl ' nombre de lignes à traiter n2 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n5)' numero de base   n4 = WorksheetFunction.CountIf(Range(Cells(a, 3), Cells(a, 22)), n7) ' n7,numéro qui change au grès du curseur   If n2 = 1 And n4 = 1 Then x = x + 1 ' incrementation de 1 la valeur de x quand le couple est présent sur la ligne End If   If mot2 = nbl Then Cells(c, d).Select ActiveCell.Value = x 'inscrit le nombre de couples c= c + 1 else a = a + 1 ' le moteur2 incrémente de 1 tant que le nombre de ligne n'est pas atteint end if   next mot2 f = f + 1 ' changement de Numéro x = 0 ' la valeur de x doit être remise à 0 next mot1

---

---------------
Voilà j’espère que je n'ai pas fait d'erreur et que j'ai répondu à ta question.
Mon écriture peut te paraitre archaïque mais j'ai appris de cette façon et tout seul.
Ce code marche très bien mais, il gère ligne après ligne.
Je précise tout de même pour ne pas alourdir la discussion, que j'ai simplifié pas mal la macro.
Quoi qu'il en soit, je te remercie une fois encore pour ton aide.

Citation:

---

Envoyé par jurassic pork

Hello,
voici une fonction VBA qui prend en paramètres une plage ligne dans laquelle on cherche et comme autre paramètre un tableau des valeurs à chercher. Elle renvoie un tableau qui contient les quantités numéraires des valeurs cherchées :
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function Compter(Plage, tabSearch) As Variant Dim pos Dim tabRes() As Variant Dim Ligne As Variant Dim Cell As Variant ReDim tabRes(1 To UBound(tabSearch) - LBound(tabSearch) + 1) Ligne = Application.Transpose(Application.Transpose(Plage)) For Each Cell In Ligne pos = Application.Match(cell, tabSearch, False) If Not IsError(pos) Then tabRes(pos) = tabRes(pos) + 1 End If Next Compter = tabRes End Function     Sub Test() Dim Resultat Resultat = Compter(Range("A18:O18"), Array(1, 2, 3)) End Sub

---

Ami calmant, J.P

---

Merci !

Bonjour,

Citation:

---

Mon écriture peut te paraitre archaïque mais j'ai appris de cette façon et tout seul.

---

Chacun pratique selon sa personnalité et son histoire et il n'y a qu'une bonne méthode, celle que l'on sait utiliser.

Si je peux me permettre je te suggèrerai de remplacer ceci :

Code:

---

1 2	Range("AQ13").Select ' nombre de N° nbf1 = ActiveCell.Value

---

par ceci :

Code:

---

nbf1 = Range("AQ13").Value ' nombre de N°

---

Cela pour 2 raisons :
- c'est plus simple à écrire comme tu peux le constater
- c'est surtout infiniment plus rapide à l'exécution.
et de même pour les autres affectations identiques comme :

Code:

---

Cells(c, d).Value = x 'inscrit le nombre de couples

---

En supprimant les select tu évites les affichages qui ne servent à rien sauf à consommer du traitement et donc du temps.

Pour ce qui est ta question principale tu ne pourras pas en VBA compter plusieurs valeurs en matricielle avec CountIf, sauf à passer par une formule sur la feuille.

Bonne continuation.

Hello,
à noter que sur le modèle de ma fonction Compter présentée précédemment on peut utiliser une fonction qui emploie WorksheetFunction.CountIf et c'est plus performant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function Compter2(Plage, tabSearch) As Variant Dim i As Integer Dim tabRes() As Variant Dim Ligne As Variant Dim Cell As Variant ReDim tabRes(LBound(tabSearch) To UBound(tabSearch)) For i = LBound(tabSearch) To UBound(tabSearch) tabRes(i) = WorksheetFunction.CountIf(Plage, tabSearch(i)) Next i Compter2 = tabRes End Function

---

Attention Les indices des tableaux résultats pour Compter et Compter2 ne sont pas les mêmes ( le tableau de Compter commence à 1, le tableau de Compter2 commence à 0).

Voici un test de performance de 1000 boucles sur les fonctions. Ce test utilise le module de classe cBenchmark :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test() Dim i As Integer Dim Resultat1, Resultat2 Dim bm As New cBenchmark bm.TrackByName ("Debut") For i = 0 To 1000 Resultat1 = Compter(Range("A18:O18"), Array(1, 2, 3)) Next i bm.TrackByName ("BoucleCompter") For i = 0 To 1000 Resultat2 = Compter2(Range("A18:O18"), Array(1, 2, 3)) Next i bm.TrackByName ("BoucleCompter2") End Sub

---

Résultat :

IDnr	Name	Count	Sum of tics	Percentage	Time
0	Debut	1	135	0,01%	14 us
1	BoucleCompter	1	1012465	84,53%	101 ms
2	BoucleCompter2	1	185122	15,46%	19 ms

Ami calmant, J.P

Bonjour jurassic pork,

Merci pour ton code intéressant sur ce sujet.

Citation:

---

Ce test utilise le module de classe cBenchmark :

---

Je ne connais pas ce module, en quoi consiste-t-il ?

Citation:

---

Envoyé par anasecu

Je ne connais pas ce module, en quoi consiste-t-il ?

---

Vba-cBenchmark

Citation:

---

A one-class module to conveniently profile your code. Reports automatically. Includes a convinience method to use instead of Application.Wait.
Advantages

• Accuracy to nanoseconds
• No delay of console logging/using Debug.Print
• Convenient to use
• Profile code which is spread out over multiple functions or modules
• Up to 256 different tracks

How to use

• Copy paste all code into a class module named cBenchmark
• Create an instance of it at the start of your own code (fe Dim bm As New cBenchmark)
• Or declare class instance as global to time multi-module code (write Set bm = New cBenchmark at start of code)
• Write bm.TrackByName "Description of codepart" in between all of your code
• Open Immediate window and run you're code
• When you're code finishes, the report is printed automatically
• Or, when instance is declared global, write Set bm = Nothing before last End Sub
• The report will show each identically used name, the time it took and the time percentage of each track

---

Attention le module utilise des "dictionary", il faut ajouter Microsoft Scripting Runtime dans les références.

Ami calmant, J.P

Bonsoir jurassic pork,

Merci pour l'adresse de la bête que je n'avais pas réussi à localiser.
Effectivement le module a l'air très costaud, je vais regarder cela de près.

Citation:

---

Envoyé par anasecu

Bonjour,



Chacun pratique selon sa personnalité et son histoire et il n'y a qu'une bonne méthode, celle que l'on sait utiliser.

Si je peux me permettre je te suggèrerai de remplacer ceci :

Code:

---

1 2	Range("AQ13").Select ' nombre de N° nbf1 = ActiveCell.Value

---

par ceci :

Code:

---

nbf1 = Range("AQ13").Value ' nombre de N°

---

Cela pour 2 raisons :
- c'est plus simple à écrire comme tu peux le constater
- c'est surtout infiniment plus rapide à l'exécution.
et de même pour les autres affectations identiques comme :

Code:

---

Cells(c, d).Value = x 'inscrit le nombre de couples

---

En supprimant les select tu évites les affichages qui ne servent à rien sauf à consommer du traitement et donc du temps.

Pour ce qui est ta question principale tu ne pourras pas en VBA compter plusieurs valeurs en matricielle avec CountIf, sauf à passer par une formule sur la feuille.

Bonne continuation.

---

encore Merci !