Discussion :

[tiuse]

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

[jfontaine]

Question : as tu vraiment besoin d'une macro?

Sinon il existe une formule

Code :

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

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

Pour ton code

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

Code :

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

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

[mordrhim]

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 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