Discussion :

[pnoel-bi]

Bonjour à tous,

Je cherche à réaliser un compteur de nombre de lignes en fonction d'un critére d'une colonne.

Voici un exemple pour comprendre :


Critere Compteur
A 1
A 2
A 3
B 1
C 1
C 2
D 1


Avez vous une idée pour réaliser ce compteur de comptage.

Merci d'avance

[loufab]

Bonjour,

Dans un premier temps je réalise une requête dont la colonne contenant la valeur à compter est triée.

Ensuite j'effectue un parcours de mes enregistrements via DAO pour le compteur.

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
 
dim OldValeur as variant
dim cpt as long
 
... 'ici ouverture du recordset DAO (cf tuto DAO)
 
while not rst.eof
 
if oldValeur = rst.fields("nom de la colonne").value then
   cpt = cpt+1
else
   cpt=1
endif
 
oldValeur = rst.fields("nom de la colonne").value
 
'ici traitement de la valeur du compteur
rst.movenext
 
wend

Code a adapter à ton cas.

[pnoel-bi]

Merci pour votre support,

Dans un premier temps je fais l'accès à la table avec le tri.
Ensuite la boucle commence, il n'y a pas de message d'erreur.

Comment récupérer les information dans une création de table par exemple avec les informations

Merci d'avance

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
Public Function Rent_Tri_Cpt()
 
Dim OldValeur As Variant
 Dim cpt As Long
 
 '... 'ici ouverture du recordset DAO
 
Dim Rs As DAO.Recordset
 Dim oDb As DAO.Database
 Set oDb = CurrentDb
 Set Rs = oDb.OpenRecordset("SELECT Fiches_Utilisateurs_V2.EDS, Fiches_Utilisateurs_V2.Type_PF_Revision FROM Fiches_Utilisateurs_V2 GROUP BY Fiches_Utilisateurs_V2.EDS, Fiches_Utilisateurs_V2.Type_PF_Revision HAVING (((Fiches_Utilisateurs_V2.Type_PF_Revision) = 'CGP'))ORDER BY Fiches_Utilisateurs_V2.EDS; ", dbOpenDynaset)
 
'SELECT Fiches_Utilisateurs_V2.EDS, Fiches_Utilisateurs_V2.Type_PF_Revision INTO BASE_V1
 'FROM Fiches_Utilisateurs_V2
  'ORDER BY Fiches_Utilisateurs_V2.EDS;
 
 
  While Not Rs.EOF
 
 If OldValeur = Rs.Fields("EDS").Value Then
    cpt = cpt + 1
 Else
    cpt = 1
 End If
 
 OldValeur = Rs.Fields("EDS").Value
 
 'ici traitement de la valeur du compteur
 Rs.MoveNext
 
  Wend
 
 
 End Function

[loufab]

Soit via DAO un recordset et un addnew.

Soit avec un une requête INSERT sous VBA.

Le tout dans la boucle.

[pnoel-bi]

Bonjour et merci cela fonctionne,

Dernier point à la fin de la lecture de la table, la boucle ne sort pas correctement (il y a un message d'erreur).

Aucun enregistrement en cours

Slts

[loufab]

Bonjour,

Tu dois faire un appel à une propriété du recordset Dao après le movenext.

Cordialement,

[pnoel-bi]

Terminé

Merci Loufab