Discussion :

[Pilote1152]

Bonjour,

Je rencontre un problème dans le codage VBA pour compter le nombre de fois où la même valeur (en l'occurrence ici l'année) se répète pour les mêmes lignes de mon tableau structuré.

J'ai essayé en vain le code suivant:
application.worksheetfunction.Countif(t_Membres,2018)
une version en ajoutant entre crochets l'intitulé de la colonne où s'effectue la recherche ne marche pas d'avantage !

Merci de votre aide et remarques

Bonne soirée

[Philippe Tulliez]

Bonjour,
La fonction dans Excel c'est =NB.SI(t_Membre[Année];2018) soit en anglais =COUNTIF(t_Membre[Année],2018)
et donc en VBA

Code :

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

 MsgBox Application.WorksheetFunction.CountIf(Range("t_Membre[Année]"), 2018)

[Pilote1152]

Bonjour,
La fonction dans Excel c'est =NB.SI(t_Membre[Année];2018) soit en anglais =COUNTIF(t_Membre[Année],2018)
et donc en VBA

Code :

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

 MsgBox Application.WorksheetFunction.CountIf(Range("t_Membre[Année]"), 2018)

Merci Philippe cela est parfait!
J'avais bien essayé avec range mais mal placé les "" !!!!!

Il existe donc pas d'autres moyens que de recourir ainsi à la fonction Excel . J'aurai imaginé qu'en filtrant artificiellement sur l'année on aurait pu lire le nombre d'occurrence comme il apparaitrait dans la ligne "Totaux" .....

En tout cas encore mille mercis pour la solution et le retour rapide

[Pierre Fauconnier]

Salut...

Juste mon petit grain de sel, histoire de pouvoir saluer Philippe

Perso, je préfère NB.SI.ENS ( COUNTIFS en anglais), histoire de prendre l'habitude d'utiliser la formule actuelle plutôt que l'obsolète, NB.SI.ENS permettant 127 critères...

[Philippe Tulliez]

Bonjour,

Il existe donc pas d'autres moyens que de recourir ainsi à la fonction Excel

Si bien entendu

Code :

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

MsgBox Evaluate("=COUNTIF(t_Membre[Année],2018)")

ou pour faire plaisir à Pierre dont je viens de prendre connaissance de la réponse

Code :

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

 MsgBox Evaluate("=COUNTIFS(t_Membre[Année],2018)")

[Pilote1152]

Bonsoir et encore mercis à vous 2 pour ces précisions complémentaires.