COMMENT COMPTER SANS LES DOUBLONS??

[leo456]

QUI POURRAIT TROUVER LA SOLUTION AU PROBLEME SUIVANT :


VOICI LES CELLULES A COMPTER:


UNE MAISON
UNE TABLE
UN LIT
UNE MAISON
UN LIT
UNE MAISON


RESULTAT: 1X MAISON
1X LIT
1 X TABLE



J AIMERAIS SAVOIR SI IL EXISTE UN MOYEN POUR COMPTER LES CELLULES SANS PRENDRE EN COMPTE LES DOUBLONS.
NOTER QUE JE NE PEUX PAS UTILISER LA FONCTION 'NBSI' CAR LA LISTE EN QUESTION CONTIENT 2000 CELLULES ET QUE CE SONT DES TITRES DE FILMS EXTREMENT VARIES...


MERCI D AVANCE A CELUI OU CELLE QUI AURAIT UNE PETITE SOLUTION!!!

 

[_Thierry]

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

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]

 

[JeanMarie]

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