Discussion :

[xaviou99]

Bonjour,
Je suis actuellement en train de coder et je suis un débutant en codage. J'ai cette formule pour faire la somme des cellules de ma colonne mais je sais pas quel ligne rajouter pour éviter que mon macro compte uniquement les nombres négatifs.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
Dim Fin As Long, Liste As Range
 
Sheets("STOCK").Select
Fin = Columns("k").Find("*", , , , , xlPrevious).Row
Set Liste = Range("k3:k" & Fin)
Me.Label5 = Application.Sum(Liste)
NumberFormat = "#.## €"
 
End Sub

Merci pour vos réponses

[joe.levrai]

Bonjour,

le titre parle des positifs, ta description parle des négatifs ?

L'un comme l'autre, tu peux utiliser SOMME.SI (CountIf en VBA, de la classe WorkSheetFunction)

[a_diard]

je pense qu'il faut utilise sumif

Application.SumIf(Liste, ">0")


countif indique combien de cellules répondent au critère.

bonne journée.

[xaviou99]

Je suis désolé, le réveil est difficile certain matin
Le titre est exact, je veux faire la somme des cellules étant positive dans la colonne.

Code :

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

Me.Label5 = Application.SumIf(Liste, ">0")

Avec ce code ça marche parfaitement. Je vous remercie pour vos réponses, bonne journée.

[joe.levrai]

Désolé j'ai écris sans me relire