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

Fermé

diablox9 - 2 avril 2021 à 02:19
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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
Excel colonne a disparue ✓ - Forum Excel
Figer une colonne excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 avril 2021 à 17:58

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

liste de noms par ordre alphabétique

je veut créer des codes

Formule magique excel??????

Gmail impossible sans numéro de téléphone

Impossible d'utiliser numéro de téléphone validation

Discussions similaires

Newsletters