Compter les enregistrements

[frdl]

Bonjour,

Je dispose d'une base de données, sur une feuille excel.

Je vousdrais connaitre la fonction qui me permet de renvoyer le nombre d'enregistrments correspondant à certains critères, et ce sous visual basic.

Merci d'avance.

 

[Wilfried]

Salut Frdl

Qu'est ce que tu entend par "enregistrement correpondant à certains critères? Aurais tu un ou deux exemples concret de ce que tu veu faire pour que nous puissions mieux te renseigner?

A+ Wilfried ;op

 

[CBernardT]

Bonjour Frdl et Wilfried

J'ai considéré que les critères étaient des critères numériques.

Deux exemples dans la macro :
1- Une recherche de nombres dans une plage > ou = à 1000 ;
2- Une recherche de nombres dans une plage compris entre 8000 et 9000 :
3- Le résultat est inscrit en cellule Q3.

Sub CompterNombres()
'Nombre de valeurs dans la plage K3:K30 > ou = à 8000
Range("Q3") = Application.CountIf(Range("K3:K30"), ">=8000")
'Nombre de valeurs dans la plage K3:K30 comprises entre 8000 et 9000
Range("Q3") = Application.CountIf(Range("K3:K30"), ">8000") - Application.CountIf(Range("K3:K30"), ">9000")
End Sub

Cordialement

CBernardT

 

[frdl]

Merci, mais le Pb est que je suis sur une recherche de selection muliticritères !

Je continue à chercher et ne desespère pas !

Merci encore

 

[frdl]

Voila ce que j'ai terminé par faire :

Sheets("Data").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=compteur2
Selection.AutoFilter Field:=1, Criteria1:="=FR0003500008"
Valeur = Application.WorksheetFunction.Subtotal(2, Range("DataCloture"))


Merci