OVH Cloud OVH Cloud

compter le nombre de valeurs

3 réponses
Avatar
Pedro
Bonjour,

J'utilise Access 2000 et j'ai une table qui ressemble =E0=20
ceci:=20

Nom.... Mois1.... Mois2.... Mois3
Pierre. AAA ......CCC=20
Jean....BBB ......AAA ......DDD
Eric ...EEE ......AAA ......BBB=20

Comment pourais-je(=E0 l'aide requ=EAte ou VBA)compter le=20
nombre total de "AAA" pour tous les 3 mois . Dance cet=20
exemple r=E9sultat attendu: nombre total de "AAA"=3D3;=20
de "BBB" =3D2; "CCC"=3D 1...

Merci

Pedro

3 réponses

Avatar
phil
Avec un recordset, il faut parcourir tous tes
enregistrements, et tu fais incrémenter un compteur à
chaque fois que tu trouve un "AAA".



-----Message d'origine-----
Bonjour,

J'utilise Access 2000 et j'ai une table qui ressemble à
ceci:

Nom.... Mois1.... Mois2.... Mois3
Pierre. AAA ......CCC
Jean....BBB ......AAA ......DDD
Eric ...EEE ......AAA ......BBB

Comment pourais-je(à l'aide requête ou VBA)compter le
nombre total de "AAA" pour tous les 3 mois . Dance cet
exemple résultat attendu: nombre total de "AAA"=3;
de "BBB" =2; "CCC"= 1...

Merci

Pedro
.



Avatar
Pedro
Pourras - tu me mettre sur les rails, je ne possède que
des connaissances basiques.

Merci


-----Message d'origine-----
Avec un recordset, il faut parcourir tous tes
enregistrements, et tu fais incrémenter un compteur à
chaque fois que tu trouve un "AAA".



-----Message d'origine-----
Bonjour,

J'utilise Access 2000 et j'ai une table qui ressemble à
ceci:

Nom.... Mois1.... Mois2.... Mois3
Pierre. AAA ......CCC
Jean....BBB ......AAA ......DDD
Eric ...EEE ......AAA ......BBB

Comment pourais-je(à l'aide requête ou VBA)compter le
nombre total de "AAA" pour tous les 3 mois . Dance cet
exemple résultat attendu: nombre total de "AAA"=3;
de "BBB" =2; "CCC"= 1...

Merci

Pedro
.

.





Avatar
phil
Voila le code à insérer sur le clic d'un bouton, par
exemple

Private Sub Commande0_Click()
Dim rs As New Recordset ' ceci est un recordset
rs.Open "NomDeLaTable", CurrentProject.Connection,
adOpenDynamic, adLockOptimistic
Dim cpt As Integer 'le compteur
cpt = 0

Do While Not rs.EOF 'tant qu'on n'est pas au dernier
enregistrement
If rs.Fields![mois1] = "AAA" Then ' si mois1 est AAA
cpt = cpt + 1 ' on incrémente
End If
If rs.Fields![mois2] = "AAA" Then 'si mois2 est AAA...
cpt = cpt + 1
End If
If rs.Fields![mois3] = "AAA" Then
cpt = cpt + 1
End If
rs.MoveNext ' on passe à l'enregistrement suivant
Loop

MsgBox (cpt) 'avec l'exemple que tu as donné, ça affiche 3
End Sub

Et ça marche (j'ai testé !)

-----Message d'origine-----

Pourras - tu me mettre sur les rails, je ne possède que
des connaissances basiques.

Merci


-----Message d'origine-----
Avec un recordset, il faut parcourir tous tes
enregistrements, et tu fais incrémenter un compteur à
chaque fois que tu trouve un "AAA".



-----Message d'origine-----
Bonjour,

J'utilise Access 2000 et j'ai une table qui ressemble à
ceci:

Nom.... Mois1.... Mois2.... Mois3
Pierre. AAA ......CCC
Jean....BBB ......AAA ......DDD
Eric ...EEE ......AAA ......BBB

Comment pourais-je(à l'aide requête ou VBA)compter le
nombre total de "AAA" pour tous les 3 mois . Dance cet
exemple résultat attendu: nombre total de "AAA"=3;
de "BBB" =2; "CCC"= 1...

Merci

Pedro
.

.


.