Fonction CountIf et tableau vba

marcobosio · 7 Mai 2007

Hello,

j'ai un petit souci pour compter le nombre d'occurrences (avec la fonction CountIf) dans un tableau généré par VBA (de type tableau() ).

Le problème est lié à cette ligne de code :

Sheets("TDB").Range("A3").Offset(i, 2).Value = Application.WorksheetFunction.CountIf(Etat, "J")
... sachant qu' "Etat" est un tableau VBA, de type Etat(0 To t)

J'ai essayé de tout détailler dans le fichier Excel joint, en espérant que ce soit clair...

Merci !!

Pierrot93 · 7 Mai 2007

Re : Fonction CountIf et tableau vba

Bonjour Marco

a priori le 1er argument de la fonction "CountIf" est un objet "Range" et non un tableau...

il faut sans doute faire une boucle sur la plage concernée et alimenter un compteur..

bon après midi
@+

marcobosio · 7 Mai 2007

Re : Fonction CountIf et tableau vba

Bonjour Pierrot,
et merci de ta réponse !!

A ta connaissance, existe-t-il une autre façon que le countif pour compter les cellules d'un tableau qui correspondent à une certaine valeur ?

pierrejean · 7 Mai 2007

Re : Fonction CountIf et tableau vba

bonjour Marco

Salut Pierrot

non testée because ton fichier n'a pas le fichier source, une fonction qui devrait te donner le compte cherché

declarer
Public Etat()

Function compte(cherche As String)
compte = 0
For n = 0 To UBound(Etat)
If Etat(n) = cherche Then compte = compte + 1
Next n
End Function

ninbihan · 7 Mai 2007

Re : Fonction CountIf et tableau vba

Bonjour Marcobosio, Pierrot et Pierre Jean
Une variante sans fonction
Sheets("TDB").Range("A3").Offset(i, 2).Value = UBound(Etat) + 1 - Len(Replace(Join(Etat, ""), "J", ""))

Bon après midi

@+

Fonction CountIf et tableau vba

marcobosio

XLDnaute Nouveau

Pièces jointes

Pierrot93

XLDnaute Barbatruc

marcobosio

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

ninbihan

XLDnaute Impliqué

Discussions similaires