Seuil et nombre

Bonsoir a tous,

J'utilise au travail de plus en plus excel pour présenter des résultats.

Je cherche donc à créer une fonction qui prend en paramètre une plage de cellule et un seuil et qui calcul le nombre de cellules contenant des nombres supérieurs à ce seuil.

J'aimerais votre aide sur le travail que j'ai déjà effectué mais qui n'aboutit pas. Je bloque ..

Function somme (nombres as double) as intègre

somme = ...

End function

Sub rechercheseuil()

Dim p as range

Dim seuil as double

seuil = "Quel nombre prenez vous pour seuil"

Set p = Activesheet.Range ("A1 : D10")

For i to p.Rows.count

For j to p.Columns.count

End sub

Désolé pour ce gruyère mais les fonctions ça ne rentre pas..

Anto'

Bonsoir,

Une fonction personnalisée qui à deux paramètres et à insérer dans un module et à utiliser comme n'importe quelle fonction.

Function compterNbCellules(plage As Range, seuil As Double)
    compterNbCellules = plage.Cells.Count - seuil
End Function

Exemple d'utilisation :

=compterNbCellules(A1:C4;4)

Sinon, la formule suivante donnera le nombre total de cellules d'une plage :

=LIGNES(A1:D4) * COLONNES(A1:D4)

Bonjour, merci pour votre réponse, mais j'ai encore besoin d'un petit coup de pouce

Function compter(plage As Range, seuil As Double) as intègre

compter = plage.Cells.Count - seuil

End Function

Sub macro()

Dim x As Integer, plage As Range

Set plage = Selection

x = InputBox("Entrer un seuil")

MsgBox (compter(x))

End Sub

Malgré mes nombreuses tentatives, je n'y arrive toujours pas..

Antoine

Bonjour,

Il y avait quelques incohérences (par exemple "seuil" déclaré comme Double dans la fonction et "x" déclaré comme Integer dans l'appel de fonction). Essaye les codes suivants :

Sub TestCompterNbCellules()
    Dim x As Double, bloc As Range
    Set bloc = Application.InputBox(prompt:="Sélectionner une plage", Type:=8)
    x = InputBox("Entrer un seuil")
    MsgBox (compter(bloc, x))
End Sub
Function compter(plage As Range, seuil As Double) As Integer
    compter = plage.Cells.Count - seuil
End Function

Remarque : la fonction compter à deux paramètres, donc il faut les renseigner dans l'ordre au moment de l'appel de celle-ci