nb

[a10]

Bonjour

J ai 2 colonnes

1 10
1 15
2 5
3 20
4 18
1 1
1 1

Je recherche une formule
Qui me donne les références differentes de la première colonne
Dans ce cas le résultat est 5

A

 

[gosselien]

Re : nb

pourquoi ouvrir 2 posts à ce sujet ? on t'as déjà répondu sur l'autre fil et difficilement si tu n'es pas + clair ....

 

[Robert]

Re : nb

Bonsoir A10, Gosselien, bonsoir le forum,

Tout à fait d'accord avec Gosselien mais, sans vouloir offenser personne, je me permets quand même une solution avec un objet Dictionary volé sur le site de Jacques BOISGONTIER :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim d As Object 'déclare la variable d (Dictionnaire)
Dim nb As Integer 'déclare la variable nb (NomBre d'occurrences uniques)

With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" (à adapter à ton cas)
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
    Set pl = .Range("A1:A" & dl) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "Feuil1"
Set d = CreateObject("Scripting.Dictionary") 'définit le dictionnaire d
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    d(cel.Value) = "" 'alimente le dictionnaire
Next cel 'prochaine cellule de la boucle
nb = UBound(d.keys, 1) + 1 'définit le nombre nb d'occurrences uniques
MsgBox nb 'affiche nb
End Sub

[Édition]
Oooops désolé ! je navet pas vu que tu cherchais une formule...

 

[a10]

Re : nb

Merci
Je vais essayé de comprendre le code mais il me parait compliqué
A plus

 

[BOISGONTIER]

Re : nb

Bonsoir,

=SOMMEPROD(--(A1:A7<>B1:B7)) ?

JB

 

[R@chid]

Re : nb

Bonsoir @ tous,

Merci
Je vais essayé de comprendre le code mais il me parait compliqué
A plus

On t'a donné une réponse hier

Voir ce lien

@ + +

 

[a10]

Re : nb

Merci je vais essayer de comprendre