Discussion :

[v.miette]

Bonjour à tous,

Avec ma collègue, nous sommes entrain de développer une base de données piscicole sur nos protocoles de pêche.
Nous avons plusieurs tables :

> Données de capture
> Probabilité
> Protocole
> Résultat IPR
> Stations

En logique, voici comment cela fonctionne.
>> Un protocole est mis en place pour une pêche.
>> Cette pêche se réalise dans une station
>> Dans cette station, nous avons des données de capture
>> Cela donne un résultat IPR et des probabilités etc...

Dans les données de capture, voici l'architecture :
- Clé primaire
- Clé du protocole
- Code TAXON (nom des espèces des poissons)
- Effectifs
- Poids
- Taille

Sur un protocole, nous pouvons avoir plusieurs espèces (TAXON).

L'idée, et donc notre problématique est la suivante :
Nous souhaiterions avoir une requête (ou un état ?) sur la station avec les différentes pêche réalisées au fil des ans.

Exemple :

Sur la rivière ...
> en 2021 : 5 Brochets ; 3 Aspes ; 4 Chabots ... 0 XXXXXXXX
> en 2020 : 0 Brochet ; 2 Aspes ; 0 Chabot ; 1 Vandoise ; ... 0 XXXXXXXXX

Mais le hic est qu'il y a une multitude d'espèces et qu'on souhaiterait uniquement les espèces non vides (supérieur à zéro), hélas, nous n'arrivons pas à schématiser cela.
Auriez-vous une idée ?

Merci par avance.
Cordialement,

[marot_r]

Bonjour.

Où se trouve l'info stations dans tes données ?

Et pour faire ce que tu veux le plus simple est de faire une requête d'analyse croisée dynamique.
Tu vas obtenir quelque chose comme :

Année	Espèce A	Espèce B
2020	1
2201		2

Certe si une espèce n'est pas présente une année tu vas avoir une colonne vide pour cette année mais c'est vachement plus simple et facile à vivre.

Si tu tiens à avoir la structure que tu décris alors il faut faire du code VBA.
Ce n'est pas super compliqué mais cela va être probablement plus lent et les données obtenues seront sans doute difficiles à exploiter.

Voici une solution possible :

Faire une requête de regroupement par année et espèces, triée par année et espèce.

Crée une table pour stocker les résultats :
tblResultat

Annee (Entier long ou Entier)
Decompte (Texte Long)

Utiliser ensuite le code VBA suivant.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
public sub CompterPoisson()
   dim db as dao.database:set db=currentdb
 
   call db.execute("delete tblResult.* from tblResult", dbFailOnError) 'vide la table de résultat
 
   dim source as dao.recordset:  set result=db.openrecordset("qryComptagePoisson")
   dim result as dao.recordset: set result=db.openrecordset("tblResultat")
   dim memAnnee as long: memAnnee=-1
   dim decompte as string
 
   do while not source.eof()
 
       if memAnnee<>source![Annee] and memAnnee <> -1 then
            'Enregistre les résultats pour l'année
            result.add
            result![Annee]=memAnnee
            result![Decompte]=decompte
            result.update
 
            decompte=""
            memAnnee = source![Annee]
       end if
 
       if  decompte <> "" then
          'Ajoute le séparateur
          decompte=decompte & ";"
       end if
 
       decompte=decompte & source![Taxon] & ":" & source![Decompte]
 
       source.movenext
   loop
 
   if memAnnee <> -1 then
       'Enregistre les résultats pour la dernière année
       result.add
       result![Annee]=memAnnee
       result![Decompte]=decompte
       result.update
  end if
 
   result.close: set result=nothing
   source.close: set source=nothing
   db.close: set db=nothing
end sub

A+

[v.miette]

Bonjour marot_r !

Merci à toi pour ta réponse et ta solution !
Ca fonctionne super ! Nous n'avions pas en connaissance la requête d'analyse croisée dynamique.

Problème résolu grâce à toi.
Merci beaucoup.

Bonne journée.