Recenser et dénombrer

[Ken Hutchinson]

Bonjour à tous,

J'ai un tableau avec différentes valeurs. Je voudrais recenser ces valeurs puis les dénombrer.

J'ai joint un fichier d'exemple.

En clair : je voudrais recenser toutes les valeurs et les compter
c'est à dire :
valeur 25 : 11
valeur 38 : 5

je n'ai pas d'idée... pouvez vous m'aider ?

merci beaucoup

 

[Guest]

Re : Recenser et dénombrer

Bonjour ken:

pour les valeurs 25:

=NB.SI(B10:O13;25)

Je te laisse le soin de faire le reste.

A+

 

[Ken Hutchinson]

Re : Recenser et dénombrer

Merci du tuyau mais les valeurs changent à chaque fois !!

d'une semaine sur l'autre il peut y avoir des valeurs qui disparaissent et de nouveaux qui arrivent...

 

[Guest]

Re : Recenser et dénombrer

Re Ken,

Une question une réponse.

Si tu veux plus il faut tout dire. Est-ce que le tableau comporte toujours le même nombre de cellules?

Ce que tu veux c'est faire une liste des valeurs contenue dans le tableaux puis compter le nombre d'occurence pour chaque valeur unique?

Je vais devoir partir alors si je ne réponds pas de suite quelqu'un d'autre passera par là sûrement.

A+

 

[Ken Hutchinson]

Re : Recenser et dénombrer

Salut,

Merci de ta réponse.

C'est exactement cela : faire une liste des valeurs contenue dans le tableaux puis compter le nombre d'occurence pour chaque valeur unique

Le tableau peux ne pas avoir la même taille à chaque fois...

En tout cas merci de vous pencher sur le problème.

 

[soenda]

Re : Recenser et dénombrer

Bonsoir le forum, Hasco, ken Hutchinson

Lorsque les valeurs se suivent (ou presque), j'utilise la méthode suivante:
- je récupère le MIN et MAX du tableau
- sur une colonne (exemple F) j'incrémente une série de MIN à MAX
- sur La colonne suivante (E) je rentre la formule =NB.SI(monTableau;F1)
(si 1 est la 1ère ligne), et double clic sur la poignée de recopie.

Lorsque les valeurs sont très dispersées ou
lorsque je dois effectuer régulièrement cette opération, j'utilise une Sub VBA.
Dans ce cas j'utilise la somme des nombres différents,
pour redimensionner le tableau VBA.

A plus

 

[ROGER2327]

Re : Recenser et dénombrer

Bonsoir à tous

Une proposition en VBA dans le classeur joint.​

Bonne nuit !
ROGER2327

 

[Ken Hutchinson]

Re : Recenser et dénombrer

Oui merci c'est le principe. Faut que je l'adapte à mon tableau. c'est pas gagné car à la différence de ton tableau dans le mien il y a des vides...

 

[abcd]

Re : Recenser et dénombrer

Bonjour,

Regarde ce message, peut-être y trouveras-tu des idées :
https://www.excel-downloads.com/thr...s-de-la-colonne-b-face-aux-memes-noms.113211/

abcd

 

[ROGER2327]

Re : Recenser et dénombrer

Bonjour.

À Ken Hutchinson :
Remplacer la ligne

    dat = transpose(Intersect(Cells(1, 1).CurrentRegion, Columns(1)).Value)

par

    dat = transpose(Range(Cells(1, 1), Cells(65536, 1).End(xlUp)).Value)

devrait faire l'affaire.
Bon courage pour la suite !​

ROGER2327

 

[Ken Hutchinson]

Re : Recenser et dénombrer

Hello,

je me suis débrouillé et ça fonctionne à merveille !!

Merci de votre aide.

 

[ChTi160]

Re : Recenser et dénombrer

Salut
Bonjour el fil
Bonjour le Forum

juste pour informer (sans prétention) ,à Roger qu'il existe une méthode Transpose qui peut éviter de passer par une Fonction personnelle exemple Function transpose(tab2D) dans le fichier .

Cela donne

With Worksheets("Feuil1")
    .Range(.Cells(1, 4), .Cells(.Cells(65536, 5).End(xlUp).Row, 5)) _
                                                               .ClearContents
    .Range("D1")[COLOR=Red].Resize([COLOR=Blue]UBound(ext, 2)[/COLOR], [COLOR=Blue]UBound(ext, 1)[/COLOR])[/COLOR] = _
           [COLOR=Red]Application.transpose[/COLOR](ext) '[COLOR=DarkGreen]à partir de la cellule D1
                                                          ' on redimensionne
   le nombre de lignes ([/COLOR][COLOR=Red][COLOR=Blue]UBound(ext, 2)[COLOR=DarkGreen])[/COLOR][/COLOR][/COLOR][COLOR=DarkGreen] et le nombre de Colonnes[/COLOR] _
                                                               [COLOR=Red][COLOR=Blue]UBound(ext, 1) [/COLOR][/COLOR]
l'inversion étant faite  [COLOR=DarkGreen]le nombre de lignes étant egal au nombre _
                     de  colonnes du tableau [COLOR=Red]ext[/COLOR] [/COLOR][COLOR=Red][COLOR=Blue]soit  UBound(ext, 2)[/COLOR][/COLOR]
[COLOR=DarkGreen]et le nombre de Colonnes étant égal aux nombres de ligne _
 du tableau [COLOR=Blue]ext[/COLOR][/COLOR] soit [COLOR=Red][COLOR=Blue]  UBound(ext, 1)[/COLOR][/COLOR]
End With

en espérant avoir pu aider
Bonne fin de journée

 

[ROGER2327]

Re : Recenser et dénombrer

Bonjour à tous.

Merci à ChTi160 de rappeler l'existence de la méthode Transpose intégrée à Excel®.​

C'est à dessein que je ne l'utilise pas dans cet exemple car j'ignore la taille réelle du tableau de données à traiter. Or, je sais par expérience que la méthode intégrée est très limitée et bloque dès lors qu'il ne s'agit plus de traiter une poignée de données.​

Cordialement,
ROGER2327

 

[ChTi160]

Re : Recenser et dénombrer

Re ROGER2327

je ne comprends pas ce que tu veux dire par

dans cet exemple car j'ignore la taille réelle du tableau de données à traiter. Or, je sais par expérience que la méthode intégrée est très limitée et bloque qu'il ne s'agit plus de traiter une poignée de données.

j'utilise cette méthode et je traite autant de lignes et de colonnes qu'excel m'en fourni celon le tableau à analyser ?????

Mais bon rien de bien grave , plus y aura de méthodes , plus le demandeur sera satisfait lol
Bonne fin de Soirée

 

[ROGER2327]

Re : Recenser et dénombrer

À ChTi160

(...) je traite autant de lignes et de colonnes qu'excel m'en fourni celon le tableau à analyser (...)

Exact ! J'ai le réflexe de ceux qui travaillent avec des utilisateurs d'Excel97® ou d'Excel2000®. Pour être exact, j'aurais dû le préciser.

Avec mes excuses,
ROGER2327