[EXCEL] Macro - Nombre d'occurence Résolu/Fermé

Question

Bonjour,
Je cherche intégrer à une macro Excel qui calcule le nombre d'apparition d'une cellule.

Tous les mois, je recupere une colonne de mots. Ces mots sont differents tous les mois et apparaissent plusieurs fois.

Ex :

Colonne A

Choucroute
Pistache
Cassoulet
Pasteque
Mangue
Pistache
Choucroute


Je souhaiterai avoir une macro qui me calcul le nombre d'apparition de chacun des mots de cette colonne. Sachant que les mots seront differents le mois suivants.

Merci par avance.

blob37 · Answer

bah un tableau croisé te le fera aussi.

Astrackt · Answer

Cette macro sera utilisé par opérateur. Je veux qu'il declenche la macro et voit le résultat. L'opérateur ne doit pas intervenir sur le tableau.

lermite222 · Answer

Bonjour,
A adapter avec tes adresses
Sub NBocc()
Dim TB, LigDeb As Integer, LigFin As Long, i As Long
Dim lig As Long, NB As Integer
    LigDeb = 4 'line oùcommencer
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        .Cells(LigDeb - 1, 1).AutoFilter
        LigFin = .Range("A65536").End(xlUp).Row
        For lig = LigDeb To LigFin
            .Cells(LigDeb - 1, 1).AutoFilter field:=1, _
            Criteria1:=.Cells(lig, 1)
            NB = 0
            For i = LigDeb To LigFin
                If Not .Rows(i).Hidden Then NB = NB + 1
            Next i
            .Cells(lig, 2) = NB
        Next lig
        .Cells(LigDeb - 1, 1).AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

A+

Astrackt · Answer

Merci beaucoup!
C'est parfait.

Sigismond · Answer

Bonjour,

Pourquoi se casser la tête avec une macro ou un tableau croisé dynamique alors qu'une simple fonction NB.SI() fait le travail et plus efficacement si la liste est grosse.

Cordialement,

Sigismond

[EXCEL] Macro - Nombre d'occurence

5 réponses

Discussions similaires