VBA - compter des valeurs supérieures

Bonjour,

Je dois créer une macro qui me permettrait de compter des valeurs supérieures à 5000 sur une colonne.

Je viens de débuter en VBA, ainsi je ne sais pas trop comment procéder.

Merci de votre aide!

Bonjour

pas besoin de macro

pour denombrer les valeurs > 5000 de la colonne O

=NB.SI(O:O;">5000")

mais si vous preferez une macro toujours pour la colonne O

Sub Macro()
Dim compteur As Integer
compteur = 0
For Each c In Range("O1:O" & Range("O" & Rows.Count).End(xlUp).Row)
If c.Value >= 5000 Then
compteur = compteur + 1
End If
Next
MsgBox compteur
End Sub

Bonjour

Merci pour votre réponse

Seulement je suis obligée d'utiliser une macro selon les consignes en ma possession (car j'avais utilisé cette même formule)

mais si vous préférez une macro toujours pour la colonne O

Sub Macro()
Dim compteur As Integer
compteur = 0
For Each c In Range("O1:O" & Range("O" & Rows.Count).End(xlUp).Row)
If c.Value >= 5000 Then
compteur = compteur + 1
End If
Next
MsgBox compteur
End Sub

je vous remercie!!