XL 2016 Compter sans doublons

cp4 à dit:

Bonjour @KTM,

Je t'avoue que je ne maitrise pas du tout les collections. Je n'ai jamais pris le temps pour essayer de les comprendre. Cependant, un message explicite est affiché suite au plantage sur la ligne

VB:

un.Add cel.Value, CStr(cel.Value)

J'ai rajouté une gestion d'erreur classique, vois si le résultat est bon

Code:

Option Explicit

Sub unique()
    Dim un As New Collection, ls As Integer, ind As Integer, annee As Integer, cel As Range
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    With Sheets("Base")
        annee = .[K1]
        ls = .Range("A2").End(xlDown).Row
        For Each cel In .Range("A3:A" & ls)
            ind = Year(CDate(.Range("B" & cel.Row)))
            If ind = annee Then
                On Error Resume Next
                un.Add cel.Value, CStr(cel.Value)
                On Error GoTo 0
            End If
        Next cel
        .[K3].Value = un.Count
    End With
End Sub

Bonne journée.

Cliquez pour agrandir...

KTM à dit:

Merci Tout fonctionne.
Je peux donc poursuivre.
Encore Merci.

Cliquez pour agrandir...

job75 à dit:

Bonjour KTM, cp4,

Juste pour signaler que le VBA n'est pas indispensable, avec ces formules matricielles en K3 et K4 :

Code:

=NB(LN(EQUIV(A$3:A$13&K$1;A$3:A$13&ANNEE(B$3:B$13);0)=LIGNE(A$3:A$13)-2))

Code:

=NB(LN(EQUIV(A$3:A$13&K$1&MOIS(K$2);A$3:A$13&ANNEE(B$3:B$13)&MOIS(B$3:B$13);0)=LIGNE(A$3:A$13)-2))

A+

Cliquez pour agrandir...