Quantite de n° identique

Bonjour.

je cherche a trier dans Excel numéro de 1 à 260 .

Certaines numéro sont plusieurs fois, comment trier pour savoir combien de fois il y a le même Numéro.

j'ai crée un tableau sur 30 colonne et 50 ligne.

merci d'avance.

Bonjour,

Je pense que tu dois joindre un fichier avec des explications et la forme du résultat attendu

oui merci se serai sympas.

Bonsoir,

Sans information de ta part, un exemple avec l'objet "Dictionary", codé en dur.

2 feuilles (onglets) : "Données" et "Résultat".

Pour l'exemple la feuille "Données" comprend un tableau de valeurs comprises ente 1 et 260...

Procédure à lancer avec Ctrl+A

Option Explicit
Public Sub Décompter()
'Ctrl+a pour lancer la procédure
Dim Ws_1 As Worksheet, Ws_2 As Worksheet
Dim plage As Range, c As Range
Dim monDico

    Application.ScreenUpdating = False

    Set Ws_1 = Worksheets("Données")
    Set Ws_2 = Worksheets("Résultat")
    Set monDico = CreateObject("Scripting.Dictionary")

    With Ws_2
        .Cells.ClearContents
    End With

    With Ws_1
        Set plage = .Range(.Cells(2, 2), .Cells(51, 31))
        For Each c In plage
            monDico(c.Value) = monDico(c.Value) + 1
        Next c
    End With

    With Ws_2
        .[A1].Resize(monDico.Count, 1) = Application.Transpose(monDico.keys)
        .[B1].Resize(monDico.Count, 1) = Application.Transpose(monDico.items)
        .[A1].Sort Key1:=[A1], Order1:=xlAscending, Header:=xlNo
    End With

    Set Ws_1 = Nothing: Set Ws_2 = Nothing: Set plage = Nothing

End Sub

super

Mais avec une formule dans 2 colonne qui se ferait chaque fois en automatique ,lorsqu'on inscrit des n°?

ex: Des qu'on inscrit un N° il s'affiche automatiquement, sous le numéro avec la quantité en dessous du Nombre.

Merci d'avance.

N° N° N° N° N° N°N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° N° Numéro Nombre

125 1 1 1 2

47 12 1

24 24 2 12

24

Re,

Précises ta demande avec un fichier et des exemples de résultats que tu souhaites obtenir.

Ta demande prête à interprétation

Bonjour

Je crains que comme l'a écrit Jean-Eric, un fichier exemple en Excel soit indispensable pour comprendre

Sinon, la formule

=NB.SI(ici Ta plage à compter;ici ton N° ou la cellule contenant le N°)

te donnera le résultat

Cordialement

SUR 30 COLONNE N°:

LA 1°COLONNE IL Y DES NUMERO EN 1 ET 300 ( 2.6.5.58.65.36.85.256.300.)

LA 2° ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨ ( 1.2.26.36.42.58)

SOUS LA COLONNE NUMERO IL Y A N° 1 2 6 5 26 36 58 65 85 256 300 NOMBRE QUELCONQUE

SOUS LA COLONNE NOMBRE IL Y A 1 2 1 1 1 2 2 1 1 1 1 LA QUANTITE DE DOUBLON

Re,

Peux-tu répondre aux questions posées par Amadéus et moi-même avec l'envoi d'un fichier?

J'ai retenu :

1 - un tableau de 50 lignes x 30 colonnes, soit 1500 valeurs

2 - ces 1500 valeurs sont numériques et comprises entre 1 et 260 (dont les origines sont à définir)

3 - tu souhaites compter le nombre d’occurrences de ces valeurs (nombre de fois où elles apparaissent) .

4 - ceci par formule sur 2 colonnes (pas de VBA)

Un nouvel exemple, utilisant la fonction "NB.SI"

ok il y a juste une chose qui vas pas.

la colonne ou il a les nombre de 1 à 260.

je voudrai savoir si se sera possible.

Que la 1° colonne jaune qui s"affiche seulement si il y a une quantité sur la colonne a cote.

Bonjour,

Soluce 1 avec VBA sans les valeurs nulles.

Peux-tu nous dire comment est alimenté le tableau 50 x 30?

A te relire

Option Explicit
Public Sub Décompter()
'Ctrl+a pour lancer la procédure
Dim Ws_1 As Worksheet, Ws_2 As Worksheet
Dim plage As Range, c As Range
Dim monDico

    Application.ScreenUpdating = False

    Set Ws_1 = Worksheets("Données")
    Set Ws_2 = Worksheets("Résultat")
    Set monDico = CreateObject("Scripting.Dictionary")

    With Ws_1
        Set plage = .Range(.Cells(2, 2), .Cells(51, 31))
        For Each c In plage
            If c > 0 Then monDico(c.Value) = monDico(c.Value) + 1
        Next c
    End With

    With Ws_2
        .Cells.ClearContents
    End With

    With Ws_2
        .[A1].Resize(monDico.Count, 1) = Application.Transpose(monDico.keys)
        .[B1].Resize(monDico.Count, 1) = Application.Transpose(monDico.items)
        .[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlNo
    End With

    Set Ws_1 = Nothing: Set Ws_2 = Nothing: Set plage = Nothing

End Sub

bonjour.

j"ai 2 formule mais elle ne fonctionne pas elle doit comporté des erreur et je n"arrive pas a la résoudre?

La formule si dessous ne fonctionne pas elle sélectionne toute les donné . elle se trouve dans la 1° colonne jaune.

=SIERREUR(PETITE.VALEUR(SI((NB.SI(AD$1:AD1;Q$3:Y$36)=0)*(Q$3:Y$36<>"");Q$3:Y$36);1);"")

la formule si dessous fonctionne pas elle me donne la quantité de numéro identique dans le tableau.elle se trouve dans la 2° colonne jaune.

=SI(AD2="";"";NB.SI(Q$3:Y$36;AD2))

Merci