Comment compter les enregistrements d'une colonne

Le
francisco
Bonjour tout le monde

Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne

Amicalement Francisco
Merci tout le monde
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1297659
bonjour Francisco,

utilise la fonction NBVAL(A2:A65535)

isabelle


Bonjour tout le monde

Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne

Amicalement Francisco
Merci tout le monde


Frédéric Sigonneau
Le #1297655
Bonsoir,

En supposant un Recordset rst ouvert, son nombre d'enregistrement s'obtient avec
la propriété RecordCount :

NbEnregistrements=rst.RecordCount

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

francisco a écrit:
Bonjour tout le monde

Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne

Amicalement Francisco
Merci tout le monde




francisco
Le #1297642
Merci Isabelle Merci Frederic pour vos reponses
Amicalement Francisco
"Frédéric Sigonneau" message de news:
Bonsoir,

En supposant un Recordset rst ouvert, son nombre d'enregistrement
s'obtient avec

la propriété RecordCount :

NbEnregistrements=rst.RecordCount

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

francisco a écrit:
Bonjour tout le monde

Je cherche à savoir comment je peux faire en utilisant un recordset pour
pouvoir compter les enregistrements d'une colonne

Amicalement Francisco
Merci tout le monde







francisco
Le #1297641
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos
reponses d'avant car je ne savais pas qu'il fallait utiliser
rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un
autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon
champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou
cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox
"LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme
cela m'arrangerait bien
Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez
La totalité de mon code se trouve en dessous
Sub EtablirConnexion(FichierOuvrir As String)

Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String
Dim CritereCodeProduct As String

CritereCodeProduct = FrmSaisie.CboListeCodeProduct.Value

Rsql = "Select Ventes1999.CodeProduct WHERE
((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "');"

'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
rst.Open Rsql, cnt

Columns("A").Clear
i = 0
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend
MsgBox "LE NOMBRE EST :" & rst.RecordCount
rst.Close
Set rst = Nothing
End Sub
"francisco" c6ih7f$ovq$
Merci Isabelle Merci Frederic pour vos reponses
Amicalement Francisco
"Frédéric Sigonneau" message de news:
Bonsoir,

En supposant un Recordset rst ouvert, son nombre d'enregistrement
s'obtient avec

la propriété RecordCount :

NbEnregistrements=rst.RecordCount

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

francisco a écrit:
Bonjour tout le monde

Je cherche à savoir comment je peux faire en utilisant un recordset
pour



pouvoir compter les enregistrements d'une colonne

Amicalement Francisco
Merci tout le monde











Pierre CFI [mvp]
Le #1297638
bonjour
recordcount doit étre précedé d'un movelast et movefirst
donc
if not rst.eof then
rst.movelast
rst.movefirts
else
'y a rien
end if

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"francisco"
Execusez moi encore une fois Frederic ou Isabelle en tout cas merci pour vos
reponses d'avant car je ne savais pas qu'il fallait utiliser
rst.recordCount ni la fonction NBVAL mais maintenant je suis confronté à un
autre probleme lorsque j'utilise le recordset quelque soit la valeur de mon
champs il m'affiche -1 et je ne comprends pas pourquoi et je sais pas d'ou
cela peut venir c'est au niveau de ce que j'ai ecrit dans mon code MsgBox
"LE NOMBRE EST :" & rst.RecordCount si vous aviez une solution à ce probleme
cela m'arrangerait bien
Amicalement Francisco en tout cas deja merci pour l'aide que vous m'apportez
La totalité de mon code se trouve en dessous
Sub EtablirConnexion(FichierOuvrir As String)

Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String
Dim CritereCodeProduct As String

CritereCodeProduct = FrmSaisie.CboListeCodeProduct.Value

Rsql = "Select Ventes1999.CodeProduct WHERE
((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "');"

'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source > c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
rst.Open Rsql, cnt

Columns("A").Clear
i = 0
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend
MsgBox "LE NOMBRE EST :" & rst.RecordCount
rst.Close
Set rst = Nothing
End Sub
"francisco" c6ih7f$ovq$
Merci Isabelle Merci Frederic pour vos reponses
Amicalement Francisco
"Frédéric Sigonneau" message de news:
Bonsoir,

En supposant un Recordset rst ouvert, son nombre d'enregistrement
s'obtient avec

la propriété RecordCount :

NbEnregistrements=rst.RecordCount

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

francisco a écrit:
Bonjour tout le monde

Je cherche à savoir comment je peux faire en utilisant un recordset
pour



pouvoir compter les enregistrements d'une colonne

Amicalement Francisco
Merci tout le monde















Publicité
Poster une réponse
Anonyme