Synthèse et données statistiques

Fermé
nany974
Messages postés
53
Date d'inscription
jeudi 28 février 2013
Statut
Membre
Dernière intervention
1 juillet 2022
- 26 mars 2013 à 14:36
Bonjour,

Voilà, j'ai besoin de votre aide car je suis novice en excel, voire nulle... je l'avoue !
je cherche à faire des statistiques à partir d'un fichier excel existant.
Pour les statistiques 2013, j'aimerai me simplifier le travail.
J'ai une fiche par enfant (environ 500 enfants suivis), j'aimerai en tirer plusieurs informations :

Ce qui me manque c'est quelques données statistiques, j'avais demandé de l'aide dans une conversation précédente mais ayant modifié un peu mes fiches patients, je ne parviens pas à adapter les formules, macros et autres vu que mon manque de connaissance en excel.

voici le modèle de document, à savoir qu'en réalité, j'ai environ 500 onglets personnalisés où l'on note des codes correspondant aux rdv que les enfants ont eu chez nous. Pour les actes, j'ai réussi à créer quelquechose (un tableau récapitulatif).
https://www.cjoint.com/c/CCAnHc8Uov7

ce qui me manque c'est :

1) une feuille de synthèse qui reprend une ligne par enfant avec différents items :
NOM (B1) PRENOM (E1) DATE DE NAISSANCE (K1) SEXE (O1) si DECEDE (A3) 1er RDV B15 COMMUNE D'HABITATION (F100)

genre :
DUPONT GERARD 01/01/2001 12 ANS MASCULIN 02/01/2010 PARIS

2) une autre feuille où il y aurait un récapitulatif avec des données statistiques :

File active :
Anciens cas,
Nouveaux cas (grâce à la case 1er RDV B15)


Répartition par sexe :
Nombre de filles,
Nombre de garçons (grâce à la case sexe O1)

Répartition par âge :
Inférieur à 5 ans,
de 5 à 9 ans,
de 10 à 14 ans,
de 15 à 19 ans;
plus de 20 ans (grâce à la case date de naissance K1),

Enfants décédés (grâce à la case A3)



VIA55 m'avait gentillement aidée mais je ne parviens pas à adapter sa macro à mon nouveau modèle. :

voici la macro

Sub complete()
nf = Worksheets.Count 'compte les feuilles du classeur

For n = 1 To nf - 1 ' boucle sur les feuilles

'anciens et nouveaux
dd = Sheets(n).Range("B26").Value
If Year(dd) < 2012 Then ancien = ancien + 1 Else nouveau = nouveau + 1

'sexe
sx = Sheets(n).Range("O1").Value
If sx = "M" Then garcon = garcon + 1 Else fille = fille + 1

'decedés (si quelque chose est inscrit en A3)
dc = Sheets(n).Range("A3").Value
If dc <> "" Then decede = decede + 1

'ages
dn = Sheets(n).Range("K1").Value
age = 2012 - Year(dn)
If age < 5 Then age1 = age1 + 1 Else If age < 10 Then age2 = age2 + 1 Else If age < 15 Then age3 = age3 + 1 Else If age < 20 Then age4 = age4 + 1 Else age5 = age5 + 1
Next n

'complete recapitulatif
With Sheets("RECAPITULATIF")
.Range("D26").Value = ancien
.Range("D27").Value = nouveau
.Range("D33").Value = fille
.Range("D34").Value = garcon
.Range("D35").Value = decede
.Range("D39").Value = age1
.Range("D40").Value = age2
.Range("D41").Value = age3
.Range("D42").Value = age4
.Range("D43").Value = age5

End With

End Sub



J'aimerai dans la mesure du possible, que la formule ou macro soit la même d'une année sur l'autre, et ne pas avoir à la modifier vu mon manque de connaissances sur excel.

merci d'avance de ce que vous ferez pour m'aider.
consciente que c'est un gros boulot que je vous demande.