compter les nombres d'occurences de caractères dans une colonne en évitant les doublons dans une autre colonne

Version imprimable

26/07/2012, 18h01
mimi7344

compter les nombres d'occurences de caractères dans une colonne en évitant les doublons dans une autre colonne

Bonjour,

J'aurais svp besoin de votre aide. Dans l'exemple ci-dessous, je souhaiterais savoir comment faire pour retrouver le nombre d'occurence de chaque caractère (bleu, vert, rouge) à l'intérieur de la colonne 2, et ce en évitant les doublons dans la colonne 1 (le chiffre 2 se répète dans cette exemple).

Colonne 1, Colonne 2
1, bleu
2, vert
5, rouge
2, vert
6, vert
3, bleu

En plus clair, je devrais etre capable de demander :
- dans la colonne 2, combien de fois X chaque caractère est répété ?
- si dans la colonne 1 il y a deux numéros qui se répètent, ce qui donne un doublon, faire X - 1, si 2 doublons faire X - 2, si 3 faire X - 3, etc.

Si possible, les résultats s'afficheront sous la forme suivante :
Bleu, 2
vert, 2 (3 moins le doublon, le 2 qui se répète dans la colonne 1)
rouge, 1

Merci d'avance pour votre aide précieuse !

Mimi :ccool:

Bonsoir,

En ajoutant la référence "Microsoft scripting runtime" au projet VBA,
et si :
- les clés numériques sont en colonne A
- les couleur sont en colonne B
- les résultats couleurs et compteurs associé en colonnes C et D.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
'Ajouter la référence "Microsoft scripting runtime"
 
Sub CompteurAvecFiltre()
 
    Dim filtre As New Dictionary
    Dim compteurs As New Dictionary
 
    Dim vals As Variant
    Dim lastline As Long
    lastline = Range("A1").End(xlDown).Row
 
    vals = Range("A1:B" & lastline)
 
    Dim li As Long
    Dim key As String
    For li = 1 To UBound(vals, 1)
        If compteurs.Exists(vals(li, 2)) Then
            If Not (filtre.Exists(vals(li, 1) & vals(li, 2))) Then
                compteurs.Item(vals(li, 2)) = CLng(compteurs.Item(vals(li, 2))) + 1
            End If
        Else
            Call compteurs.Add(vals(li, 2), 1)
            Call filtre.Add(vals(li, 1) & vals(li, 2), 1)
        End If
    Next li
 
 
    Dim vali As Long
    Range("C1").Value = "Code"
    Range("D1").Value = "Compteur"
 
    For vali = 0 To compteurs.Count - 1
        Range("C1").Offset(vali).Value = compteurs.Keys(vali)
        Range("D1").Offset(vali).Value = compteurs.Items(vali)
    Next vali
 
 
    Set filtre = Nothing
    Set compteurs = Nothing
End Sub

27/07/2012, 10h30
BANT_53

aide potentielle

bonjour,
j'ai fait un tableau croisé en enlevant Total Lignes et Total colonnes
en ligne couleurs, en colonnes nombre, calcul = nombre
et en bout je mets une formule NBVAL par ligne

cdlt
27/07/2012, 11h25
Philippe Tulliez

Bonjour,
J'aurais tendance à passer également par le Tableau Croisé dynamique mais je placerais l'étiquette Couleur, en ligne et en Valeurs ainsi le nombre est automatiquement sélectionné.