Compter le nombre d'occurrences de chaque mot

Bonjour tout le monde,

En faite, j'essaie de calculer le nombre d'occurrences de chaque mot qui existe dans la feuille 1. Il faut que je fasse un macro qui permet d'afficher le nombre de chaque mot sur la feuille 2.
J'ai fait un essai, mais il ma parait que le nombre d'occurrences n'est pas bon ( par exemple pour le mot "un" il m'affiche 21 alors qu'il apparait 97 fois) , ainsi que j'arrive pas à afficher le résultat dans la feuille 2.
Est ce que quelqu'un pourra m'aider SVP

Merci d'avance

Cordialement

bonjour,

proposition de correction de ton code

Sub aargh()
    dl = Cells(Rows.count, 1).End(xlUp).Row 'nombre de lignes colonne A
    Range("A1").Resize(dl, 1).Copy Range("c1") 'copie colonne A en colonne C
    Range("C1").Resize(dl, 1).RemoveDuplicates Columns:=1, Header:=xlNo 'suppression des doublons
    Range("d1").FormulaR1C1 = "=COUNTIF(r1C1:R" & dl & "C1,RC[-1])" 'comptage des mots
    dlu = Cells(Rows.count, 3).End(xlUp).Row 'nombre de mots uniques
    Range("d1").AutoFill Destination:=Range("D1:D" & dlu) 'copie de la formule de comptage des mots
End Sub

Merci beaucoup , le code marche parfaitement.

est ce possible de mettre le résultat dans la deuxième feuille svp ? pcq j'y arrive pas

Bonjour,

Une proposition sans VBA avec Power Query.

Cdlt.

bonsoir à tous,

code adapté pour écriture des résultats dans une autre feuille

Sub aargh()
    Set ws1 = Sheets("feuil1") 'feuille source
    Set ws2 = Sheets("feuil2") 'feuille résultat

    dl = ws1.Cells(Rows.count, 1).End(xlUp).Row
    With ws2
        ws1.Range("A1").Resize(dl, 1).Copy .Range("A1")
        .Range("A1").Resize(dl, 1).RemoveDuplicates Columns:=1, Header:=xlNo
        .Range("B1").FormulaR1C1 = "=COUNTIF(" & ws1.Name & "!r1C1:R" & dl & "C1,RC[-1])"
        dlu = .Cells(Rows.count, 1).End(xlUp).Row
        .Range("B1").AutoFill Destination:=.Range("B1:B" & dlu)
    End With
End Sub

Bonjour Jean-Eric

Merci pour votre retour

Votre solution fonctionne parfaitement. Mais je dois le faire avec VBA

Merci

Bonjour H2SO4,

Votre code marche parfaitement, c'est ce que je cherchais.

Merci beaucoup