Discussion :

[chris_ij32]

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 .
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

[Daniel.C]

Bonjour,
Dans H3 :

Code :

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

=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 :

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

=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.

[chris_ij32]

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

[Daniel.C]

Code :

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

=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 ?

[chris_ij32]

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 .
Sinon en vba avec le code suivant (qui ne fonctionne pas, en fait ça recrée un graphique, ça ne récupère pas l'existant):

Code :

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

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

[Daniel.C]

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

[chris_ij32]

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 :

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

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.

Cordialement
Chris

[Daniel.C]

Code :

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

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

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

Code :

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

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