Obtenir le nombre de chiffres différents dans une zone

Bonjour,

Après quelques recherches sur des moteurs de recherche et sur votre forum, je reste sans solution.

Pouvez vous m'éclairer sur la demande suivante?

Je souhaiterai, en D15, obtenir le nombre de chiffres différents dans la zone allant de F15 à BG15.

Ex: D15 = 3 / F15 =1 / G15 = 4 / H15 = 6 / I15 = 1 ... BG15 = 6

D15 = 3, car dans les cellules de la zone je retrouve 1, 4 et 6, 3 valeurs différentes.

Merci pour votre aide

J'ai trouvé une publication datant du 05/12/2008 à 14:30 par DUBOIS.

https://forum.excel-pratique.com/excel/formule-nbval-sans-doublons-8819

Cette solution devrait marcher pour moi, à l'exception prêt que je vais avoir des vides dans certaines cellules et que ca me met un erreur.

Bonjour à tous !

Et....

Une proposition en D15 :

=NB(UNIQUE(F15:I15;1))

La plage est à adapter à votre classeur.

Bonjour,

Function NbChiffres(ByVal AireRecherche As Range) As Integer

Dim I As Integer, J As Integer
Dim Matrice(9) As Integer
Dim ValStr As String

    NbChiffres = 0
    For I = LBound(Matrice) To UBound(Matrice)
        Matrice(I) = 0
    Next I

    For I = 1 To AireRecherche.Count
        ValStr = Trim(CStr(AireRecherche(I)))
        For J = 1 To Len(ValStr)
            Select Case Mid(ValStr, J, 1)
                Case 0
                  Matrice(0) = Matrice(0) + 1
                Case 1
                  Matrice(1) = Matrice(1) + 1
                Case 2
                  Matrice(2) = Matrice(2) + 1
                Case 3
                  Matrice(3) = Matrice(3) + 1
                Case 4
                  Matrice(4) = Matrice(4) + 1
                Case 5
                  Matrice(5) = Matrice(5) + 1
                Case 6
                  Matrice(6) = Matrice(6) + 1
                Case 7
                  Matrice(7) = Matrice(7) + 1
                Case 8
                  Matrice(8) = Matrice(8) + 1
                Case 9
                  Matrice(9) = Matrice(9) + 1

            End Select
        Next J
    Next I

    For J = LBound(Matrice) To UBound(Matrice)
       If Matrice(J) > 0 Then NbChiffres = NbChiffres + 1
    Next J

End Function
capture

J'adore!!!

J'étais en train de trafiquer des formules pour que cela fonctionne.

Mais là... C'est TOP.

Un grand merci.

Bonjour Eric,

Malgré toute ma bonne volonté, mon niveau en Excel ne me permet pas de comprendre le programme que vous me proposez.

Je vais rester sur la formule de JFL.

Encore un grand merci.

Bonne fin de journée.

Bonjour à tous de nouveau !

Les merveilleuses fonctions "modernes" d'Excel.....

Je vous remercie de ce retour.

Question : Peut-il y avoir plusieurs chiffres dans une cellule ?

Eric, Les valeurs pourront aller de 1 à 24.

JFL, J'aimerai réaliser la même formule pour une colonne F par exemple, mais quand je la colle, elle ne réagit pas pareil ???

bonjour

à tout hasard

pour les chiffres

NB(STXT(F15:L15;LIGNE(1:50);1)*1)

pour les nombres

=NB(F15:L15)

cordialement

Bonjour à tous de nouveau !

Si la plage est verticale, il est nécessaire de se priver du deuxième argument de la fonction UNIQUE.

Cela donne par exemple :

=NB(UNIQUE(F10:F15))

Ca y est mon tableau est prêt à l'emploi grâce à vos contributions.

Au plaisir.

re

pour ceux avec des vielles versions

SOMME(SI(EQUIV(SIERREUR(STXT(F15&G15&H15&I15&J15&K15&L15;LIGNE(INDIRECT("1:"&SOMME(NBCAR(F15:L15))));1)*1;"");SIERREUR(STXT(F15&G15&H15&I15&J15&K15&L15;LIGNE(INDIRECT("1:"&SOMME(NBCAR(F15:L15))));1)*1;"");0)=LIGNE(INDIRECT("1:"&SOMME(NBCAR(F15:L15))));1;0))
Rechercher des sujets similaires à "obtenir nombre chiffres differents zone"