Compter le nbr de cell d'une colonne supérieure à une cell en data validation

diablox9 -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 2 avril 2021 à 17:58

Bonjour j'aimerais compter le nombre de cellules de la colonne D supérieures à une valeur d'une cellule (A1) qui est en data validation,

Sub Count()
Dim nbr As Integer
nbr = Application.CountIf(Range("D2:D1000"), ">79")
MsgBox ("There are " & nbr & " departments where life expectancy exceeds 79 years.")
End Sub

Je sais que ce code permet de compter le nombre de cellules supérieures à 79, mais qu'en est-il si en cellule A1 par exemple, cette valeur peut changer avec une data validation?

Je vous remercie d'avance,
Cordialement

A voir également:

Compter le nbr de cell d'une colonne supérieure à une cell en data validation
Ethernet n'a pas de configuration ip valide - Guide
Déplacer une colonne excel - Guide
App data - Guide
Starlink direct to cell prix - Accueil - Opérateurs & Forfaits
Trier une colonne excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,
une facon de faire, code a mettre dans le VBA de la Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Ans = Target.Value
        nbr = Application.CountIf(Range("D2:D1000"), ">" & Ans)
        MsgBox ("There are " & nbr & " departments where life expectancy exceeds " & Ans & " years.")
    End If
End Sub

Discussions similaires

Impossible d'utiliser ce numéro de téléphone pour la validat

Ma commande est en cours de validation sur Fnac

je cherche la date et le lieu de naissance d une personne

Votre réponse

Discussions similaires