cathodique
XLDnaute Barbatruc
Bonjour,
Depuis une petite BD (qui s'allongera au fil du temps), je voudrais via un formulaire faire un comptage global ou par année suivant un choix dans la combobox.
Je voudrai faire un comptage dans l'ordre suivant par Espèce, par Cat. (catégorie) et par caractère. et aussi compter le nombre de décès par année (colonne F contient la date de décès).
Attention, pour caractere, ils sont en doublons car chaque NoDossier peut changer de cat. au fil du temps.
Pour info, un NoDossier n'a jamais de catégorie "Cd" en doublon. Ce qui n'est pas le cas de autres Catégories.
Je ne sais pas si j'ai bien expliqué mon objectif. En feuille Recap, j'ai mis les différents résultats escomptés.
J'ai commencé comme ci-dessous mais je me suis emmêlé les pinceaux.
J'ai voulu adapter les exemples (de ma précédente discussion )de @patricktoulon , de @laurent950 ou de @dysorthographie (la plus complexe pour moi car jamais utilisé ADO).
Je voudrai en gros obtenir le modèle d'array en feuille Recap pour alimenter la listbox.
En vous remerciant par avance.
Depuis une petite BD (qui s'allongera au fil du temps), je voudrais via un formulaire faire un comptage global ou par année suivant un choix dans la combobox.
Je voudrai faire un comptage dans l'ordre suivant par Espèce, par Cat. (catégorie) et par caractère. et aussi compter le nombre de décès par année (colonne F contient la date de décès).
Attention, pour caractere, ils sont en doublons car chaque NoDossier peut changer de cat. au fil du temps.
Pour info, un NoDossier n'a jamais de catégorie "Cd" en doublon. Ce qui n'est pas le cas de autres Catégories.
Je ne sais pas si j'ai bien expliqué mon objectif. En feuille Recap, j'ai mis les différents résultats escomptés.
J'ai commencé comme ci-dessous mais je me suis emmêlé les pinceaux.
VB:
Option Explicit
Dim tb
Dim Dico As Object
Sub essai1()
Dim i As Long, d As Object, L As Byte
Dim année
Set d = CreateObject("scripting.dictionary")
tb = [Table].Value
année = 2024 ' sera remplacé par la combobox
For i = 1 To UBound(tb)
d(tb(i, 4)) = "" 'récupère nb espèce sans doublon
Next i
Dim Tr() 'debut tableau resultat
For i = 0 To d.Count - 1
ReDim Preserve Tr(1 To d.Count, 1 To 10)
Tr(i + 1, 1) = année
Tr(i + 1, 2) = d.keys()(i)
Next i
For i = 1 To UBound(tb)
If Year(tb(i, 1)) = année Then
'je me noie ici
End If
Next i
End SubJ'ai voulu adapter les exemples (de ma précédente discussion )de @patricktoulon , de @laurent950 ou de @dysorthographie (la plus complexe pour moi car jamais utilisé ADO).
Je voudrai en gros obtenir le modèle d'array en feuille Recap pour alimenter la listbox.
En vous remerciant par avance.