Discussion :

[diablox9]

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,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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

[ChristianBosch]

salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub compter()
Dim i As Integer
Dim k As Integer
Dim derniereligne As Integer
Dim age As double
age = Range("a1").Value
derniereligne = Cells(Rows.Count, 4).End(xlUp).Row
k = 0
For i = 1 To derniereligne
On Error Resume Next
    If Range("d" & i).Value > age Then
        k = k + 1
    End If
Next
MsgBox ("There are " & k & " departments where life expectancy exceeds " & age & " years.")
End Sub

Mets le bouton dans la meme feuille sinon ca fonctionnera pas.

A+

CB

[Pierre Fauconnier]

Salut.

Pas besoin de boucles pour cela ==> Quand on programme VBA pour Excel, on pense d'abord Excel avant de penser VBA

application.countif(range("d2:d1000"),">" & range("a1").Value)

je ne connais pas ton classeur mais perso, je travaillerais avec des tableaux structurés et une plage nommée pour la valeur cherchée


application.countif(range("tableau1[Test]"),">" & range("ValeurCherchée").Value)