Comptage de valeur dans une colonne sur excel

sarahc -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Comment calculer le nombre de meme valeur dans une colonne .

j'ai 5000 lignes et dedans jai environs 228 valeurs différentes. je voudrais savoir pour chaque valeur combien comporte de ligne

exemple :
maman : 200( fois) lignes
papa: 256 (fois ) lignes

je peux pas utiliser la formule nb.si(;"") car je peux pas à chaque fois rentré la valeur c'est beaucoup trop long .

Quelqu'un aurait un idée svp ???

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour, 

    Const col As String = "A" 'colonne de travail
Const lig_dep As Byte = 2 'ligne de départ
Const onglet As String = "feuil2" 'feuille restitution
Const adresse As String = "A2" 'cellule départ restitution)

Sub papa_maman_etc()
Dim Lig_fin As Integer, lig As Integer, nbre As Integer, ref as string
Dim dico As Object

Lig_fin = Cells(Cells.Rows.Count, col).End(xlUp).Row
Set dico = CreateObject("scripting.dictionary")

For lig = lig_dep To Lig_fin
     ref = Cells(lig, col)
     If Not dico.exists(ref) Then
          nbre = Application.CountIf(Columns(col), ref)
          dico.Add ref, nbre
     End If
Next
Application.ScreenUpdating = False
With Sheets(onglet)
     .Range(adresse).Resize(dico.Count, 1) = Application.Transpose(dico.keys)
     .Range(adresse).Offset(0, 1).Resize(dico.Count, 1) = Application.Transpose(dico.items)
     .Activate
End With
End Sub
    0