Bonjour je cherche une sub qui pourrait me renvoyer 5 entiers tq le premier soit le nombre de cells de la 1ere colonne ou j'ai des nombres positifs le deuxieme le nombre de cells positives de la deuxieme colonne etc...

voici un essai pour la premiere colonne mais bon ca marche pas trop lol merci a vous tous pour le help


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub numberofpositivecells()
Dim i As Integer
Dim nocf As Integer
nocf = 0
For i = 4 To 65536
If Cells(i, 2).Value > 0 Then
nocf = nocf + 1
End If
Next
End Sub