Compter quand <>0

Bonjour,

Je voudrais émettre une macro qui compte a chaque fois que j'ai un chiffre différent de zéro dans une colonne. Voila le code que je tape avec la fonction CountIf, mais je ne trouve pas quelque chose de cohérent ...

Code:

---

1 2 3 4

'Nombres de référence en stock <>0 Valeur = Application.WorksheetFunction.CountIf(Worksheets("Analyse S").Range("$E4:$E6000"), [<>0]) Sheets("Indicateurs").Cells(3, Sheets("Indicateurs").Cells(3, Columns.Count).End(xlToLeft).Column + 1) = Valeur

---

Pouvez vous m'aider ?

J'aurais le même travail a faire également quand supérieur à 0 mais je penses que ca ne va pas marcher non plus

Bonjour Yullll,


C'est plutôt cette syntaxe :

Code:

---

Valeur = Application.WorksheetFunction.CountIf(Worksheets("Analyse S").Range("$E4:$E6000"), "<>0")

---

Merci beaucoup effectivement, le problème venait de ma syntaxe.
Avec ton code cela marche parfaitement !!!
Maintenant j'essaye de faire en sorte qu'il m'additionne les valeurs positive dans la colonne.
Puis qu'il fasse la même chose pour les valeurs négatives.
Aurais tu une idée ??

Bonjour,

CountIf pour compter le nombre de cellules répondant à un critère

pour additionner le nombre de cellules répondant à un critère : SumIf

La syntaxe est (presque) la même

Merci beaucoup joe.levrai ,

Effectivement avec Sumif et la même syntaxe cela fonctionne très bien !!!

Bonne après-midi