Statistique d'enregistrements suivant une colonne...

[olvforet]

Bonjour tout le monde...
J'ai un tableau excel d'environ 10 000 lignes concernant des adressses et une colonne concernant plus particulierement le type d'affection, selon si cela est une maison, une institution, un local commercial, etc...

Sur cette colonne, je souhaiterais avoir les statistiques sur le nombres d'enregistrements concernant chaque entité, c'est a dire le nombre d'enregistrements pour une maison, ou pour une institution ou pour un local commercial...

Un resultat dans ce genre,
9000 Maison
800 Local Commercial
200 Institution

Je simplifie mais l'idée est la...
J'ai essayé d'utiliser des fonctions statistiques, mais avec la version anglaise d'excel07, je galere un peu.
Quelqu'un aurait une solution ?

Merci d'avance,
Olivier

 

[JYLL]

Re : Statistique d'enregistrements suivant une colonne...

Bonjour olvforet et le Forum,

Avac la formule

Plage de Données = par ex : a1:a1000
Citére 'Maison"

=NB.SI(Plage de données;Critère)

Bon test.

 

[olvforet]

Re : Statistique d'enregistrements suivant une colonne...

Bonjour olvforet et le Forum,

Avac la formule

Plage de Données = par ex : a1:a1000
Citére 'Maison"

=NB.SI(Plage de données;Critère)

Bon test.

J'ai beaucoup trop de critere pour les citer, je dois en avoir quelque chose comme 1000 différents, d'ou l'interet d'en sortir un decompte automatique et d'exploiter par la suite les plus importantes...

 

[JYLL]

Re : Statistique d'enregistrements suivant une colonne...

Re bonjour olvforet et le Forum,

Voici une macro qui devrait faire ton affaire:

Sub Comptage
  Dim Type_Lieu(2000,2) as Variant
  For I = 1 to Range("A65536").end.(xlup).row
    J=1
      While Type_Lieu(j)<> ""
        If Type_Lieu(j) = Cells(I,1) then
          Type_Lieu(J,2)= cint(Type_Lieu(J,2))+1
          Goto Suite_I
       End If
       J=J+1
    Wend
    Type_Lieu(J,1)=Cells(I,1) 
    Type_Lieu(J,2)= 1
Suite_I: Next I

I= 1
While Type_Lieu(I,1)<>""
   Cells(I,10)=Type_Lieu(I,1)
   Cells(I,11)=Type_Lieu(I,2)
   I=I+1
Wend
Sub End

Les numéros de colonnes sont à adapter en fonction de tes données ici ces colonne A .

Bon test.

 

[olvforet]

Re : Statistique d'enregistrements suivant une colonne...

Re bonjour olvforet et le Forum,

Voici une macro qui devrait faire ton affaire:

Sub Comptage
  Dim Type_Lieu(2000,2) as Variant
  [COLOR="Red"]For I = 1 to Range("A65536").end.(xlup).row[/COLOR]
    J=1
      While Type_Lieu(j)<> ""
        If Type_Lieu(j) = Cells(I,1) then
          Type_Lieu(J,2)= cint(Type_Lieu(J,2))+1
          Goto Suite_I
       End If
       J=J+1
    Wend
    Type_Lieu(J,1)=Cells(I,1) 
    Type_Lieu(J,2)= 1
Suite_I: Next I

I= 1
While Type_Lieu(I,1)<>""
   Cells(I,10)=Type_Lieu(I,1)
   Cells(I,11)=Type_Lieu(I,2)
   I=I+1
Wend
Sub End

Les numéros de colonnes sont à adapter en fonction de tes données ici ces colonne A .

Bon test.

Mes données sont en colonne A, j'ai une erreur syntaxe a la ligne en rouge...
Merci sincerement pour ce qui a été fait, en retard, j'etais en déplacement...

 

[JYLL]

Re : Statistique d'enregistrements suivant une colonne...

Bonjour Olvforet et le Forum,

Tu as effectivement une erreur dans ton code, tu as un point en trop devant (Xlup).

For I = 1 to Range("A65536").end(xlup).row

Bon test.

 

[olvforet]

Re : Statistique d'enregistrements suivant une colonne...

Sub Comptage
Dim Type_Lieu(2000,2) as Variant
For I = 1 to Range("A65536").end.(xlup).row
J=1
While Type_Lieu(j)<> ""
If Type_Lieu(j) = Cells(I,1) then
Type_Lieu(J,2)= cint(Type_Lieu(J,2))+1
Goto Suite_I
End If
J=J+1
Wend
Type_Lieu(J,1)=Cells(I,1)
Type_Lieu(J,2)= 1
Suite_I: Next I

I= 1
While Type_Lieu(I,1)<>""
Cells(I,10)=Type_Lieu(I,1)
Cells(I,11)=Type_Lieu(I,2)
I=I+1
Wend
Sub End

L'erreur d'avant est resolu, merci...
Wrong number of dimensions here...
Je suis vraiment un boulet de la prog, j'avais pas prevenu...

 

[JYLL]

Re : Statistique d'enregistrements suivant une colonne...

re Bonjour Olvforet et le forum,

Voici la macro testée et corrigée:

Sub Comptage()
  Dim Type_Lieu(2000, 2) As Variant
  For I = 1 To Range("A65536").End(xlUp).Row
    J = 1
      While Type_Lieu(J, 1) <> ""
        If Type_Lieu(J, 1) = Cells(I, 1) Then
          Type_Lieu(J, 2) = CInt(Type_Lieu(J, 2)) + 1
          GoTo Suite_I
       End If
       J = J + 1
    Wend
    Type_Lieu(J, 1) = Cells(I, 1)
    Type_Lieu(J, 2) = 1
Suite_I: Next I

I = 1
While Type_Lieu(I, 1) <> ""
   Cells(I, 10) = Type_Lieu(I, 1)
   Cells(I, 11) = Type_Lieu(I, 2)
   I = I + 1
Wend
End Sub

Bon test.

 

[olvforet]

Re : Statistique d'enregistrements suivant une colonne...

Test concluant, je te remercie infiniment...
Heureusement qu'il existe encore des gens serviables sur cette terre, con a dire mais tellement vrai...
Longue vie à Excel Downloads...