Sub Count Positifs Cells

Version imprimable

12/07/2007, 17h21
tiuse

Sub Count Positifs Cells
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:

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

Question : as tu vraiment besoin d'une macro?

Sinon il existe une formule

Code:

=NB.SI(A:A;">0")

Pour ton code

Il te faut déclarer tes variables en double car integer limité a 32 767
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub numberofpositivecells() Dim i As Double Dim nocf As Double nocf = 0 For i = 4 To 65536 If Cells(i, 1).Value > 0 Then nocf = nocf + 1 End If Next i End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub numberofpositivecells()
    Dim i As Long, j As Long
    Dim nocf As Integer
 
    For j = 1 To 5
        nocf = 0
        For i = 4 To Cells(65536, j).End(xlUp).Row
            If Cells(i, j).Value > 0 Then
                Cells(i, j).Interior.ColorIndex = 3
                nocf = nocf + 1
            End If
        Next
        Message = Message & "!! Colonne " & j & ", " & nocf & " positifs!! "
    Next
    MsgBox Message
End Sub

han jfontaine a posté avant moa