Extraire des nombres.

[JJ1]

Bonjour à tous,

J'ai 2 séries de nombres via Mode() en lignes 3 et 4 et je voudrais extraire tous les nombres différents dans la zone bleue (sans tenir compte des N/A) ligne 8.

merci de votre aide.

 

[R@chid]

Re : Extraire des nombres.

Bonjour,
En BZ8,

=SI(COLONNES($BZ:BZ)>SOMME(SI(ESTNUM($BL3:$BY4);1/NB.SI($BL3:$BY4;$BL3:$BY4)));"";PETITE.VALEUR(SI(ESTNUM($BL3:$BY4)*(NB.SI($BY8:BY8;$BL3:$BY4)=0);$BL3:$BY4);1))

@ valider par Ctrl+Maj+Entree
@ tirer vers la droite
@ + +

 

[JJ1]

Re : Extraire des nombres.

Bonsoir Rachid

Merci pour cette super formule qui fonctionne parfaitement.

Bonne soirée.

 

[job75]

Re : Extraire des nombres.

Bojour JJ1, R@chid,

Avec cette fonction VBA qui renvoie une matrice :

Function NBDIF(matrice As Variant) As Variant
Dim d As Object, t
NBDIF = ""
If Application.CountA(matrice) < 2 Then
  If IsNumeric(CStr(matrice)) Then NBDIF = matrice
Else
  matrice = matrice 'plus rapide
  Set d = CreateObject("Scripting.Dictionary")
  For Each t In matrice
    If IsNumeric(CStr(t)) Then d(t) = ""
  Next
  If d.Count Then NBDIF = d.keys
End If
End Function

Fichier joint.

A+