Discussion :

[Hercule55]

Bonjour,

J'ai regardé sur pas mal de discussions, ce sujet est souvent abordé mais les réponses émises ne marchent pas dans mon cas.

J'essaye de calculer le nombre de cellules non vide d'une colonne, sur plusieurs critères, de type :

Code :

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

1
2
3
Cells(5, 4) = WorksheetFunction.CountIfs(Sheets("Base").Columns(57), "<" & 30, ">" & 0)
Cells(5, 5) = WorksheetFunction.CountIfs(Sheets("Base").Columns(57), "<" & 60, ">" & 30)
etc etc ...

Est-ce une erreur de syntaxe du CountIf ?
Il y a-t-il d'autres solutions pour ce genre de démarche ?

Merci

[joe.levrai]

Bonjour,

CountIfs (NB.SI.ENS côté Excel) attend pour paramètre X plages et X critères

ici tu as mis une seule plage et deux critères accolés

Code :

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

WorksheetFunction.CountIfs(Sheets("Base").Columns(57), "<" & 30,Sheets("Base").Columns(57), ">" & 0)

serait plus approprié

[halaster08]

Bonjour,

Bon ca ne marche pas, et quand je rentre la boucle encore moins :

Merci d'être plus précis, un message d'erreur ? si oui lequel, si non quel est le problème ? un résultat faux ? quel est le résultat attendu ?
Ce genre de détail aide grandement pour répondre au mieux et au plus vite.

Est-ce une erreur de syntaxe du CountIf ?

D'après l'aide de la fonction Excel nb.si.ens la syntaxe est: =nb.si.ens(plage1;critère1;plage2;critère2; ...)

Code :

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

WorksheetFunction.CountIfs(Sheets("Base").Columns(57), "<" & 30, ">" & 0)

Respectes-tu cette syntaxe ?

Essaye donc ceci:

Code :

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

WorksheetFunction.CountIfs(Sheets("Base").Columns(57), "<" & 30, Sheets("Base").Columns(57), ">" & 0)

[halaster08]

Je ne peux utiliser " 30 * (i - 1) " car le code considère le contenu entre parenthèses comme un nouvel argument.

??
Chez moi pas de souci, j'ai copié collé ton code (juste modifié la colonne) et ça fonctionne

Par contre attention avec tes inégalités strictes des deux cotés tu ne prend jamais en compte dans ton comptage les chiffres 30,60...

[Hercule55]

En effet la macro s’exécute mais le résultat obtenu n'est pas le résultat attendu.

J'attends à ce qu'à chaque itération la macro calcule le nombre de cellule comprise en 30i et 30(1-i).
Pour calculer en fait le nombre de ligne datant d'un mois, de deux mois, de trois mois etc...

[halaster08]

Effectivement j'ai le même souci, tu peux le contourner en passant par des variables intermédiaires pour tes bornes:

Code :

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

1
2
3
bmin = 30 * (i - 1)
bmax = 30 * i
Cells(5, 3 + i) = WorksheetFunction.CountIfs(Sheets("Base").Columns(1), "<" & bmax, Sheets("Base").Columns(1), ">" & bmin)

[Hercule55]

Ah oui sympa l'astuce j'y pense jamais !

Merci beaucoup pour ton aide !

[Hercule55]

Je rencontre un autre problème avec cette ligne.

En effet, j'ai beau filtrer la feuille en amont selon d'autres colonnes, le CountIf compte à chaque fois toutes les valeurs de la colonne même celles filtrées.

Est ce que cela vient du "WorksheetFunction" qui du coup prend toute la feuille dans tout les cas ?

Merci

[halaster08]

En effet, j'ai beau filtrer la feuille en amont selon d'autres colonnes, le CountIf compte à chaque fois toutes les valeurs de la colonne même celles filtrées.

Je n'ai plus l'orthographe de la commande en tête mais recherche "specialcells xlvisible" tu devrais trouvé de quoi adapté ton code aux cellules filtrés

[Hercule55]

J'ai trouvé en effet la fonction dont tu me parles :

Mais j'obtiens le message d'erreur "Impossible de lire la propriété CountIfs de la classe WorksheetFunction" ...

[halaster08]

Il me semble que countifs(en multicritère) ne fonctionne que si tes plages sont de la même taille or tu en as restreint une aux cellules visible et pas l'autre

[Hercule55]

J'ai essayé avec en précisant la même taille :

Mais toujours le "Impossible de lire la propriété CountIfs de la classe WorksheetFunction"

[halaster08]

Mauvais idée de ma part désolé, apparemment countifs ne fonctionne pas sur des plages discontinues, donc utiliser .SpecialCells(xlCellTypeVisible) n'est pas une solution.

Pour résoudre ton problème de filtre, il va falloir je pense passer par une feuille intermédiaire dans laquelle tu copies le résultat du filtre (se fait assez simplement avec un filtre avancé) et fais le comptage

[joe.levrai]

Bonjour,

une autre solution serait d'appliquer des filtres automatiques basés sur tes critères, et de récupérer le nombre de lignes filtrées ?

[Hercule55]

Oui mais je m'intéresse justement au contenu de ces cellules filtrées !

J'ai finalement copier les valeurs filtrées vers une autre feuille puis j'ai pu utiliser mon CountIfs correctement et ca me va

Merci