Nombre de valeur négative dans une plage de cellule

Bonjour,

Je chercher tout simplement la syntaxe en vba pour rechercher le nombre de valeur négative dans une plage de cellule.

Il y a bien dans excel la formule NB.SI... mais en VBA ?

Je voudrais ajouter un message si la condition est remplie.

msgbox "Vous avez x mois dont les heures sont négatives"

Merci par avance et sinon bon Noël

Bonjour,

un exemple à adapter.

Cdlt.

Public Sub CountValues()
Dim rng As Range, n As Double
    With ActiveSheet
        Set rng = .Range("A1:A10")
        n = WorksheetFunction.CountIf(rng, "<0")
        MsgBox "Il y a " & n & " valeur(s) négatives.", 64, "valeurs négatives"
    End With
End Sub

Bonjour Jean-Eric

Merci pour l'information, je vais tester (En repos pour cette fin de semaine)

Je vous tiens informé.

Merci pour ce soutien et vous souhaite de bonnes fêtes

Cordialement

Bonjour JEAN-ERIC

Je me suis remis à l'ouvrage et j'ai mis en application tes recommandations, ça fonctionne très bien. J'ai fait quelques aménagements pour que ce contrôle soit fait également sur le tableau final d'analyse.

Sub Controle_Heures_Negatives()
Dim rng As Range, n As Double

    With ActiveSheet
        Set rng = Worksheets("Heures potentielles").Range("N97:Y116")
        n = WorksheetFunction.CountIf(rng, "<0")
        If n <> 0 Then MsgBox "Il y a " & n & " valeur(s) négatives dans le récapitulatif des heures de vos salariés." & _
        Chr(10) & "Vous ne pouvez pas avoir d'heures potentielles négatives sur un ou plusieurs productifs." & _
        Chr(10) & "Des absences sont vraisemblablement affectées sans heures de présence initiales.", 64, "valeurs négatives"
        Worksheets("Heures potentielles").Activate
    End With
End Sub

J'ai intégré cette ligne de code dans un module pour y faire référence dans d'autres feuilles majeures.

Merci beaucoup pour l'information.

Bonne journée.