Discussion :

[charlieda]

Bonjour à toutes et à tous,

Je voulais, sur les conseils du forum, utiliser sous.total pour compter dans un tableau filtré mais il y a une condition. Malgré la patience et les conseils de différentes personnes, je ne suis pas arrivé au résultat voulu.

J'ai donc trouvé sur le net cette formule qui fonctionne bien excepté qu'elle prend en compte les cellules vides et je voudrais qu'elle ne compte pas les cellules vides.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function CompterPositifs(Plage As Range)
    Dim C As Range
    Application.Volatile
    For Each C In Plage
        If C.EntireRow.Hidden = False And C.Value > 0 Then
            CompterPositifs = CompterPositifs + 1
        End If
    Next C
End Function

Comment puis je faire pour que les cellules vides ne soient pas comptées ?

Merci pour vos avis et aides.

Bon week end

[jerome.vaussenat]

Salut,

J'ai fais des essais et pour moi le résultat est conforme; les cellules vides ne sont pas comptabilisées.

Après il peut y avoir un hic si la zone sélectionnée contient des fonctions SI qui demandent de ne rien faire sous la forme de

Code :

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

=SI(B8="";"";"toto")

Dans ce cas, il faut modifier ton code de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
Function CompterPositifs(Plage As Range)
    Dim C As Range
    Application.Volatile
    For Each C In Plage
        If C.EntireRow.Hidden = False And C.Value <> "" Then
            CompterPositifs = CompterPositifs + 1
        End If
    Next C
End Function

on ne vérifies pas que le contenu de la cellule et supérieur à 0 mais qu'il est vide.

En espérant que j'ai pas tout faux.

GG

[charlieda]

Bonjour Jerome,

Je te remercie pour cette réponse dominicale.


Effectivement la colonne a le calcul suivant

Code :

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

1
2
 
=SI(ESTVIDE(T16);"";+[@[Exit_value]]-[@[Entry_value]])

Ton code fonctionne parfaitement.
Il compte bien toutes les cellules qui ne sont pas vides. Très bien mais .....

- Je voudrais qu'il me compte les cellules qui sont positives

J'ai donc ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function CompterPositifs(Plage As Range)
    Dim C As Range
    Application.Volatile
    For Each C In Plage
        If C.EntireRow.Hidden = False And C.Value > 0 Then
            CompterPositifs = CompterPositifs + 1
        End If
    Next C
End Function

Et pour les cellules négatives, j'ai celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function CompterNegatifs(Plage As Range)
    Dim C As Range
    Application.Volatile
    For Each C In Plage
        If C.EntireRow.Hidden = False And C.Value < 0 Then
            CompterNegatifs = CompterNegatifs + 1
        End If
    Next C
End Function

Le problème est que dans la colonne, il peut y avoir des cellules vides qui sont calculées comme positives.

Merci d'avance pour ton aide.

Bon dimanche

[Philippe Tulliez]

Bonjour,

Le problème est que dans la colonne, il peut y avoir des cellules vides qui sont calculées comme positives.

C'est très curieux ce que tu annonces car une cellule vide d'excel vaut 0 donc si l'on teste ce qui est supérieur à 0 (>0) on calculera bien les positifs

[charlieda]

Bonjour Philippe,

J'ai également essayé en modifiant ma formule

Code :

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

1
2
 
=SI(ESTVIDE(T16);"OUVERT";+[@[Exit_value]]-[@[Entry_value]])

J'ai donc un OUVERT à la place de la cellule vide et c'est quand même "comptabilisé" comme positif.
La colonne est en format Nombre.

Je ne comprends pas du tout.

Merci

[Philippe Tulliez]

Bonjour,
La fonction ESTVIDE, renvoie FAUX si la cellule que tu testes contient une fonction qui renvoie une chaîne vide.
Utilise plutôt NB.VIDE qui dénombre le nombre de cellules vides en ce compris celles qui contiennent une fonction qui renvoie une chaîne vide