NB.SI.ENS en VBA ou comment récupérer le contenu d'une zone de liste

Bonjour,
À partir d'une liste d'adhérents, je voudrais remplir une feuille de statistiques.
Les critères sont :
- par catégorie jeunes, adultes et seniors calculé dans le UF sans souci,
- par le choix du loisir dans une zone de liste, et là ça se complique.
Dans la feuilles STATS, la fonction NB.SI.ENS fonctionne parfaitement mais juste à partir de la V2007. Or ce tableau doit fonctionner aussi sur les versions antérieures.
Catégorie | Cot2012 | Broderie | Cinéma | Cuisine | etc.
Jeunes | 422 € | 2 6
Adultes | 340 € | 7 4
Seniors etc.

Formule pour l'année de cotisation : =SOMME.SI.ENS(l_mont_cot;l_id_adh;"JEU*";l_annee_adh;2012)
Formule pour les loisirs : =NB.SI.ENS(l_id_adh;"JEU*";l_loisirs;I$2)
J'ai essayé avec somme prod mais il me retourne 0.

Donc pour "essayer" de contourner le problème, j'envisage de faire une boucle pour récupérer le loisir choisi et l'ajouter dans les colonnes/lignes respectives et :cry:.
Le code sous trouve dans le mod_traitement, sub écrit_adhérent et presque à la fin mise à jour du tableau annuel des statistiques.

Merci pour votre aide.
Cordialement
Chris

Bonjour,
Dans H3 :

Code:

---

=SOMMEPROD((l_mont_cot)*(GAUCHE(l_id_adh;3)="JEU")*(l_annee_adh=2012))

---

D'autre part, plutôt que de définir des noms faisant une colonne de taille, tu as intérêt à définir des noms définis dynamiques, par exemple :
l_id_adh
sera défini par :

Code:

---

=DECALER(ADHERENTS!$A$4;;;NBVAL(ADHERENTS!$A:$A)-3)

---

ce qui permet d'optimiser les formules. Il faut cependant qu'il n'y ait pas de cellules vides dans la plage de données.

Bonjour et merci pour ta réponse.
Sommeprod fonctionne très bien pour la catégorie.
Que pourrais-je mettre pour mes loisirs à la place de nb.si.ens ?
=NB.SI.ENS(l_id_adh;"JEU*";l_loisirs;I$2)
Encore merci pour ton aide.
Cordialement
Chris

Code:

---

=SOMMEPROD((GAUCHE(l_id_adh;3)="JEU")*(l_loisirs=I$2))

---

Ote-moi d'un doute. Je ne suis pas en train de faire tes devoirs ? :lol:

Encore merci, ça fonctionne nickel !
Du coup plus besoin de faire la mise à jour en VBA.
Pour finaliser le tout, j'aimerai afficher le graphique dans un autre formulaire quand je clique sur le bouton Statistiques.
Le graphique existe déjà dans la feuille PAR_ADH, il "suffit" donc de l'afficher dans un formulaire, j'ai bien pensé à exporter mon graphique en image, puis insérer l'image dans le formulaire, mais il doit y avoir plus professionnel :oops:.
Sinon en vba avec le code suivant (qui ne fonctionne pas:cry:, en fait ça recrée un graphique, ça ne récupère pas l'existant):

Code:

---

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

Sub aff_graphique() 'début en col G jusqu'en P, et lignes 3 à 5 Dim arrData(7 To 16, 3 To 5) Dim i As Integer For i = 7 To 16 ' Les valeurs de la colonne G remplissent la première ' série du tableau. Si ces valeurs sont des chaînes, ' elles deviennent des étiquettes de lignes. Dim arrValues(7 To 16, 3 To 5) arrData(i, 1) = Worksheets("PAR_ADH").Range("G" & i + 1).Value ' Les valeurs de la colonne B remplissent ensuite la seconde série. arrData(i, 2) = Worksheets(1) _ .Range("I" & i + 1).Value Next i MSChart1.SeriesType = VtChSeriesType2dArea MSChart1.ChartType = VtChChartType2dBar MSChart1.ChartData = arrData End Sub

---

Sur la ligne en rouge, il me dit que l'indice n'appartient pas à la sélection, je pense que c'est arrData le problème.

Merci encore pour ton aide.
Cordialement
Chris

Citation:

---

j'ai bien pensé à exporter mon graphique en image, puis insérer l'image dans le formulaire, mais il doit y avoir plus professionnel

---

C'est ce qu'il y a de plus pratique. Si tu veux te compliquer la vie, regarde du côté du contrôle ChartSpace :

http://excel.developpez.com/faq/?pag...phiqueUserForm

Encore merci.
Je te dérange une dernière fois enfin je l'espère.
Je choisis la plus simple : exporter le graphique en image puis l'intégrer dans le contrôle du formulaire. Le graphique sur la feuille s'appelle Graphique1, je n'arrive pas à le renommer.

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() 'graph_stat et nom_fic en variant graph_stat = Sheets("PAR_ADH").ChartObjects(1).Chart nom_fic = ActiveWorkbook.Path & "\" & "graphe.gif" graph_stat.Export Filename:=nom_fic, FilterName:="GIF" f_stat_adh.im_graph.Picture = LoadPicture(nom_fic) End Sub

---

En changeant chartobjects(1) avec le nom du graphique, même erreur.
Ça me génère une erreur 438, propriété ou méthode non gérée par cet objet.
:cry:
Cordialement
Chris

Citation:

---

Code:

---

graph_stat = Sheets("PAR_ADH").ChartObjects(1).Chart

---

---

Il s'agit d'un objet, il faut donc mettre :

Code:

---

Set graph_stat = Sheets("PAR_ADH").ChartObjects(1).Chart

---