COMMENT COMPTER SANS LES DOUBLONS??

Bonjour Hervé, Robert, Soft, Léo, le Forum

Ne pas oublier que sans VBA on peut utiliser 'Advanced Filter' (Filtre Avancé) pour obtenir une liste sans Doublon. (Voir Menu Données / Filtre / Filtre Avancé)

En VBA pour faire idem qu'Hervé mais sans Algo, cela donnerait un truc dans le genre :

Option Explicit

Sub AdvancedFilter()
Dim RangeSource As Range
Dim RangeCible As Range

    Set RangeSource = Range(Range('A1'), Range('A65536').End(xlUp))
    Set RangeCible = Range('B1')
     
    RangeSource.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=RangeCible, Unique:=True
   
End Sub

Cliquez pour agrandir...

Il est interressant de connaître cette méthode surtout pour le faire manuellement, la fenêtre 'Filtre Avancé' est assez simple à gérer si on a préalablement sélectionné la plage à filtrer et que l'on copie vers une autre location sans oublier de cocher 'Enregistrements Uniques'

Bon après midi
[ol]@+Thierry[/ol]

Bonour

Dans la même lignée de la réponse de Michel, une autre formule.

=SOMME((FREQUENCE(EQUIV(B3:B2002&'';B3:B2002&'';0);LIGNE(B1:B2000))>0)*1)-((NB.VIDE(B3:B2002)>0)*1)

Avec toutes ces réponses, Léo va être comblé.

@+Jean-Marie