Calculer automatiquement chaque occurence

[Snoop_1]

Bonjour,

Problème assez simple pour beaucoup j'imagine...

Globalement, j'ai des extractions d'une base de données et souhaite réaliser des statistiques simples. Par exemple, dans une colonne, j'aimerais calculer dans un tableau séparé combien de fois chaque mot apparait. Ce tableau ferait donc une petite liste simple de ce type:

a1: nom
b1: nombre de fois qu'il apparait dans la colonne XX

Comment puise-je réaliser cette opération?

Merci

 

[Dranreb]

Re : Calculer automatiquement chaque occurence

Si, comme je le crains, le Mac ne supporte pas les tableaux en guise de membres de collections, c'est fini. Je laisserai désormais les pommes à leur triste sort !
Et ma bonne volonté à tenter de leur apporter quelque chose n'aura été que de courte durée.

 

[DoubleZero]

Re : Calculer automatiquement chaque occurence

Re-bonjour,

@ Snoop_1,

Le fichier déposé en #13 a-t-il été testé 😕

 

[Snoop_1]

Re : Calculer automatiquement chaque occurence

@DZ: oui, je viens de le faire et j'ai passé un certain temps à l'adapter car je suis juste super nulle sur Excel et les macros, je préfère ne pas en parler! Bref, merci beaucoup car c'est la solution qui a fini par fonctionner et qui était à ma portée.

Vous n'avez rien compris:

Si si, j'ai posté ce problème sur un site qui traite d'Excel, pas Word ni PowerPoint... ce qui est déjà bien.

Merci encore à tous pour vos efforts et explications, je sais faire un truc de plus dans Excel... ce qui porte mes connaissances à 8 trucs... je ne désespère pas d'arriver à 10 en 2015!

A bientôt!

 

[Dranreb]

Re : Calculer automatiquement chaque occurence

Voulez vous me confirmer si le fichier posté en #11 fait aussi planter votre Excel ?

 

[DoubleZero]

Re : Calculer automatiquement chaque occurence

Re-bonjour,

Merci pour ce retour, Snoop_1.

... je sais faire un truc de plus dans Excel... ce qui porte mes connaissances à 8 trucs... je ne désespère pas d'arriver à 10 en 2015!...

Assurément 😀... Petit à petit... vous connaissez la suite !

Bon courage et à bientôt 🙂

 

[Snoop_1]

Re : Calculer automatiquement chaque occurence

Voulez vous me confirmer si le fichier posté en #11 fait aussi planter votre Excel ?

Alors il plantait... mais après je n'ai pas compris cette remarque "Sans Function mais un Sub Exécution, ça plante aussi ?"

On ne saura jamais...

Ceci dit, il semble qu'il y a une nouvelle version d'Office 2016 pour Mac... mais je serai surpris qu'il règle ces problèmes de Macro et autres...

Merci encore à tous,

 

[Dranreb]

Re : Calculer automatiquement chaque occurence

Contrairement à celui joint au #8 celui du #11 ne comportait plus de Function, ni de formule matricielle l'utilisant, mais une Sub Exécution et un bouton pour la lancer. Il ne devrait pas planter Excel à son ouverture, où alors il s'agit d'un problème qui n'a rien à voir avec mes fournitures. En revanche il peut toujours planter quand on clique sur le bouton. Est-ce le cas ?

 

[klin89]

Re : Calculer automatiquement chaque occurence

Bonsoir à tous, 🙂

A tester sur Mac :

Sub Compter_Doublons_Mac()
Dim a, b(), i As Long, e, n As Long, flag As Boolean
    Application.ScreenUpdating = False
    With Sheets(1)
        a = .Range("a1", .Range("a" & Rows.Count).End(xlUp)).Value
        ReDim b(1 To UBound(a, 1), 1 To 2)
        For Each e In a
            If n = 0 Then
                n = n + 1
                b(n, 1) = e
                b(n, 2) = 1
            Else
                For i = 1 To n
                    If e = b(i, 1) Then
                        b(i, 2) = b(i, 2) + 1
                        flag = True
                        Exit For
                    End If
                Next
                If Not flag Then
                    n = n + 1
                    b(n, 1) = e
                    b(n, 2) = 1
                End If
                flag = False
            End If
        Next
        With .Range("d1")
            .CurrentRegion.Clear
            .Resize(n, 2).Value = b
            With .CurrentRegion
                .Font.Name = "calibri"
                .VerticalAlignment = xlCenter
                .HorizontalAlignment = xlCenter
                .Borders(xlInsideVertical).Weight = xlThin
                .BorderAround Weight:=xlThin
            End With
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Evidemment si ta liste ne contient qu'une seule occurrence cela bug 🙄
klin89