Comptage de valeur dans une colonne sur excel
Fermé
sarahc
-
21 juin 2011 à 15:43
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 21 juin 2011 à 16:34
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 21 juin 2011 à 16:34
A voir également:
- Comptage de valeur dans une colonne sur excel
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Liste déroulante excel - Guide
- Calculer une moyenne sur excel - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
21 juin 2011 à 16:34
21 juin 2011 à 16:34
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