Discussion :

[psychosiffleur]

Bonjour à toutes et à tous,

Alors une petite question, j'utilise application.counta pour compter le nombre de case remplis sur une zone donnée (par exemple de A1 à D1). Mais quand je fais ca ca me retourne un ou zero alors qu'il y a plus de case que ca qui sont remplis.
Dans mes cases se trouvent des caractères et je voulais savoir s'il y a une autre fonction qui existe pour faire ces calculs.

Merci d'avance

Cordialement

[Minick]

Salut,

A mon avis tu utilises mal la fonction
Tu fais surement ceci, l'argument en chaine:

Code :

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

Application.WorksheetFunction.CountA("A1:D1")

Il faut faire ceci, l'argument doit etre une plage:

Code :

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

Application.WorksheetFunction.CountA(Range("A1:D4"))

++
Minick

[LeForestier]

Bonjour,
CountA est une fonction excel..

Code :

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

NB = Application.WorksheetFunction.CountA(Range("A1:D1"))

A+

[psychosiffleur]

OK merci, mais comme j'ai plusieurs classeur ouvert je l'ecris comme ca:

Code :

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

Application.WorksheetFunction.CountA(classeur.Worksheets("1er sem " & annee).[case_debut & i:case_fin & i])

et ca me compte toujours pas toutes les valeurs dans les cases sur l'intervalle.

[LeForestier]

Si tu mettais exactement la formule que tu a dans ton code ont pourrais peut-être mieux comprendre !!

[psychosiffleur]

Oui c'est vrai désolé.
et ceci est dans une double boucle for.

Code :

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

travail.Worksheets("Stat").Range("AC" & j) = Application.WorksheetFunction.CountA(classeur.Worksheets("1er sem " & annee).[case_debut & i:case_fin & i])

je stocke dans case d'un classeur le nombre de case rempli sur un intervalle se trouvant dans un autre classeur.

[LeForestier]

1ère remarque, vu que tu change de feuille ton code devrait se trouver dans un module général et non dans un module de feuille ! Est-ce le cas ?
2°) la fonction CountA ne supporte pas le nom de la feuille, faut..

Code :

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

1
2
Sheets("Feuil" & 1).Select
NB = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(3, 12)))