Discussion :

[Philippe Tulliez]

Bonjour,
Je sais cette discussion résolue mais n'ayant pas pu répondre hier suite à un problème d'affichage de mes discussions, je me permets de publier tout de même la réponse que j'avais préparée.
Il s'agit d'une fonction personnalisée nommée CountIfSum qui peut donc être utilisée indifféremment avec excel ou avec une procédure VBA.
Cette fonction renvoie le nombre de fois qu'il y a dans la plage définie dans l'argument Rng, les mots se trouvant dans la chaîne de caractères passée à l'argument Criterias (Les mots doivent être séparés par un point virgule. Exemple : toto;mama;titi

La fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function CountIfSum(Rng As Range, Criterias As String) As Long
 ' Arguments
 ' Rng (Range) ' Plage dans laquelle compter les cellules répondant aux critères
 ' Criterias (String) ' Critères à chercher séparés par des ;
 Const FormulaTemplate As String = "=COUNTIF(<Range>, <Criteria>)"
 Dim tbl() As String, Count, Sum, elem
 tbl = Split(Criterias, ";")
 For elem = 0 To UBound(tbl)
  Count = Evaluate(Replace(Replace(FormulaTemplate, "<Range>", Rng.Address), "<Criteria>", Chr(34) & tbl(elem) & Chr(34)))
  Sum = Sum + Count
 Next
 CountIfSum = Sum
End Function

Depuis excel (Voir illustration ci-dessous)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CountIfSum(A2:A15;C2)

Depuis une procédure VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CountIfSum(Range("A2:A15"), Range("C2"))

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CountIfSum(Range("A2:A15"), Join(Array("toto", "mama", "titi"), ";"))

Illustration de la feuille Excel

[Nico Chg]

Hello, j'étais parti sur un tableau également, mais plus simpliste, je trouve ça bien vu le coup des multi-critères !

PS (HS) : j'ai également pas mal de problème d'affichage dans le forum ...

[pilounet54]

Bonjour,
Je sais cette discussion résolue mais n'ayant pas pu répondre hier suite à un problème d'affichage de mes discussions, je me permets de publier tout de même la réponse que j'avais préparée.
Il s'agit d'une fonction personnalisée nommée CountIfSum qui peut donc être utilisée indifféremment avec excel ou avec une procédure VBA.
Cette fonction renvoie le nombre de fois qu'il y a dans la plage définie dans l'argument Rng, les mots se trouvant dans la chaîne de caractères passée à l'argument Criterias (Les mots doivent être séparés par un point virgule. Exemple : toto;mama;titi

La fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function CountIfSum(Rng As Range, Criterias As String) As Long
 ' Arguments
 ' Rng (Range) ' Plage dans laquelle compter les cellules répondant aux critères
 ' Criterias (String) ' Critères à chercher séparés par des ;
 Const FormulaTemplate As String = "=COUNTIF(<Range>, <Criteria>)"
 Dim tbl() As String, Count, Sum, elem
 tbl = Split(Criterias, ";")
 For elem = 0 To UBound(tbl)
  Count = Evaluate(Replace(Replace(FormulaTemplate, "<Range>", Rng.Address), "<Criteria>", Chr(34) & tbl(elem) & Chr(34)))
  Sum = Sum + Count
 Next
 CountIfSum = Sum
End Function

Depuis excel (Voir illustration ci-dessous)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CountIfSum(A2:A15;C2)

Depuis une procédure VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CountIfSum(Range("A2:A15"), Range("C2"))

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CountIfSum(Range("A2:A15"), Join(Array("toto", "mama", "titi"), ";"))

Illustration de la feuille Excel

bonjour est merci je ne l'vais pas vue

j'essaye d'appeler la fonction comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ok = CountIfSum(("$A$3:$E$10000"), Join(Array("1", "3", "5", "7", "9", "11", "13", "15", "17", "19")))

il est pas content avec la plage . Et la question que je me pose avec le critère ("1", "3", "5", "7", "9", "11", "13", "15", "17", "19")
es que cela peu convenir ?et ou va mes résutats dans mon cas car je ne souhaite pas le MsgBox
comment je fais svp pour renvoyer les resultats
merci encore vous Etes tous des pro

encore merci
cordialement

[Philippe Tulliez]

Bonjour,

il est pas content avec la plage . Et la question que je me pose avec le critère ("1", "3", "5", "7", "9", "11", "13", "15", "17", "19")
es que cela peu convenir ?et ou va mes résutats dans mon cas car je ne souhaite pas le MsgBox
comment je fais svp pour renvoyer les resultats

Je vais essayer de décortiquer chaque question posée au travers de l'utilisation que tu as faites de la fonctionCountIfSum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ok = CountIfSum(("$A$3:$E$10000"), Join(Array("1", "3", "5", "7", "9", "11", "13", "15", "17", "19")))

Question 1 : "Il est pas content avec la plage". J'ai pourtant mis trois exemples d'utilisation.
Dans ton cas, tu l'utilises en VBA. Le premier argument de la fonction est un objet Range, donc c'est Range("$A$3:$E$1000") et pas "$A$3:$E$1000" et tu passes mal également le deuxième argument (il manque un argument à Join ";")
Question 2 : "je ne souhaite pas le MsgBox comment je fais svp pour renvoyer les resultats". Il faut savoir comment fonctionne une fonction.
Une fonction a pour but de renvoyer un résultat et celui-ci, soit tu l'affiches à l'aide de l'instruction MsgBox Fonction() soit tu le stockes dans une variable par Variable = Fonction()

Conclusion, la véritable syntaxe est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t()
 Dim OK As Long
 OK = CountIfSum(Range("$A$3:$E$10000"), Join(Array("1", "3", "5", "7", "9", "11", "13", "15", "17", "19"), ";"))
 MsgBox OK
End Sub

J'ai mis en rouge les éléments que tu as oublié.
J'ajouterais que le choix du nom de la variable n'est pas très heureux . Pourquoi OK et pas SommeDesCritères ou encore Total ?
La programmation demande beaucoup de patience et de rigueur. Je crois que tu n'as bien regardé les exemples que j'ai donné.

[pilounet54]

je pense qu'avec ceci je vais me débrouiller, encore que pas sûr à notre age
je vais pas mettre résolu pour l'instant même si je pense que cela pourrai le faire ,il faut que je sois bien dedans pour pour entrevoie un résultats
merci beaucoup en attendant ne t’inquiète pas je mettrai résolu plus tard encore merci
et si ta besoin de quelque chose tu me demande!

Le ok j'ai plein plein de fonction intéressant qui sont formulées comme cela je les donnerai au moment de noël sur le forum