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
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))Au cas où :
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))