Compter des caracteres

Version imprimable

08/06/2009, 10h54
psychosiffleur

Compter des caracteres

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
08/06/2009, 11h01
Minick

Salut,

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

Code:

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

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

Code:

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

++
Minick
08/06/2009, 11h02
LeForestier

Bonjour,
CountA est une fonction excel..

Code:

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

A+
08/06/2009, 11h15
psychosiffleur

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

Code:

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.
08/06/2009, 11h18
LeForestier

Si tu mettais exactement la formule que tu a dans ton code ont pourrais peut-être mieux comprendre !!
08/06/2009, 11h22
psychosiffleur

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

Code:

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.
08/06/2009, 11h33
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:

1 2 Sheets("Feuil" & 1).Select NB = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(3, 12)))
08/06/2009, 11h39
psychosiffleur

Tout à fait, je suis dans un module général.

Le soucis n'est pas dans les feuilles en elles meme, c'est que lorsque je compte les cases avec un caractère dedans, la fonction ne me retourne pas le bon nombre de case pleines.

Voir l'édit de mon poste précédant, et ça devrait fonctionner avec des variables.
Tester avec
Code:

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

08/06/2009, 11h53
psychosiffleur
Bon alors j'ai essayer d'adapter ton code :
Code:

1 2 travail.Sheets("Stat ").Select travail.Worksheets("Stat ").Range("AC" & j) = Application.WorksheetFunction.CountA(Range(Cells(case_debut, i), Cells(case_fin, i)))
Mais ca me met une erreur, je pense que ca doit etre pour la selection des case.
case debut et case fin contiennent la(es) lettre(s) de la case.

En faisant autrement peut etre

Code:

1
2
3
4
 
    With classeur.Worksheets("1er sem " & annee).Range(case_debut & i & ":" & case_fin & i)
        travail.Worksheets("Stat").Range("AC" & j) = .Count - .SpecialCells(xlCellTypeBlanks).Count
    End With

++
Minick

Pour les lettres utilises Range :

Code:

1
2
Range(Lettre & i) ' Une seule cellule
Range(Lettre1 & i & ":" & Lettre & J ' une plage

08/06/2009, 12h13
LeForestier

Citation:

Envoyé par psychosiffleur

Bon alors j'ai essayer d'adapter ton code :

travail.Sheets("Stat ").Select
travail.Worksheets("Stat ").Range("AC" & j) = Application.WorksheetFunction.CountA(Range(Cells(case_debut, i), Cells(case_fin, i)))

Mais ca me met une erreur, je pense que ca doit etre pour la selection des case.
case debut et case fin contiennent la(es) lettre(s) de la case.

Tu finira par tout dire... :mouarf: si case_debut est au format "AB" par exemple déja que c'est une colonne, et dans cells c'est D'ABORD la ligne, ça devrait être Cells(i ,case_debut)
Change alors par..

Code:

Range(case_debut & i & ":" & case_fin & i)

EDIT:
Mais ça va jamais marcher, c'est le classeur et la feuille où tu veux compter qui doit être sélectionnée...:mouarf:

Code:

classeur.Worksheets("1er sem " & annee).Activate 'Pas Select, ça ira pas

EDIT2:
Attention, dans..

Code:

travail.Worksheets("Stat ").

tu a un espace, est-ce le cas aussi sur l'onglet ?
08/06/2009, 13h53
psychosiffleur
Alors wii, effectivement, si on met ligne colonne dans le bon sens ca va un peu mieux ^^. Alors ensuite ca compte bien pour certaine ligne mais pas pour toutes. Certaines lignes qui sont remplies ca me renvoie 2 tandis que pour d'autre ca me renvoie le nombre correcte.

donc maintenant j'ai ceci:
Code:

1 2 classeur.Worksheets("1er sem " & annee).Activate travail.Worksheets("Stat ").Range("AC" & j) = Application.WorksheetFunction.CountA(Range(Cells(i, case_debut), Cells(i, case_fin)))
Le fait que les caractères dans les cases ne soient pas tous les même peut-il jouer sur la valeur retournée ??
08/06/2009, 14h45
LeForestier

Pppffff...

Code:

Range(case_debut & i & ":" & case_fin & i)
08/06/2009, 14h56
psychosiffleur

Merci bien, dsl j'ai pas relu au dessus :oops:

En tout cas ca fonctionne maintenant

Merci pour ton aide et ta patience.:ccool: