Compter le nbr de cell d'une colonne supérieure à une cell en data validation
diablox9
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
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
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
Bonjour,
une facon de faire, code a mettre dans le VBA de la Feuille
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
