Discussion :

[Yullll]

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 :

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

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

[antonysansh]

Bonjour Yullll,


C'est plutôt cette syntaxe :

Code :

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

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

[Yullll]

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

[joe.levrai]

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

[Yullll]

Merci beaucoup joe.levrai ,

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

Bonne après-midi