Compter les cellules d'une valeur supérieur

Bonjour à tous,

Je cherche à compter les lignes ayant des cellules avec des valeurs supérieur à 1,15 dans la colonne D ( de D4 jusqu'à la fin) de la feuille "Data" et inscrire le résultat dans la cellule I9 de la feuille "Macro".

J'ai écrit cette macro mais elle ne semble pas fonctionner.

Je profite de ce post pour remercier les membres de ce forum très réactifs et compétents.

Merci

Sub COMPTFITC()

'Comptage > 1.15 RATIO FITC

With Sheets("Data")

DerniereLignedata = .Range("D65536").End(xlUp).Row

Dim R1 As Range

Set R1 = Range("D4:D" & DerniereLignedata)

Dim supfitc As Long

Dim Lim1 As Double

Lim1 = 1.15

supfitc = Application.WorksheetFunction.CountIfs(R1, ">=" & Lim)

Sheets("Macro").Range("I9") = supfitc

End With

End Sub

Bonjour

Une formule suffit :

=NB.SI.ENS(Data!D4:D1000000;">1,15")

Bye !

Bonjour rorotada, gmb,

Je propose cette formule : =NB.SI(Data!D4:D1000000;">1,15")

Mais je crois bien que rorotada préfère en VBA :

Ctrl e ➯ résultat en I9

dhany

Un grand merci c'est exactement ce qu'il me faut. Et oui je préfère le vba

Merci pour ton retour ! je te laisse passer ce sujet en résolu, ainsi que le précédent : il suffit de cliquer sur la coche V (située près du bouton EDIT) ; seul l'auteur du sujet peut le faire, et ça permet aussi de clôturer le fil de la discussion ; tu sauras que tu as réussi quand tu verras un petit rond vert avec une coche, comme ceci :

J'ai vu que tu avais déjà réussi à le faire pour cet autre sujet :

dhany

@rorotada : relis mon message précédent, car j'ai modifié le texte initial, et je l'ai aussi complété.

Oui désolé j'avais oublié^^ merci

merci à toi de l'avoir fait.