Compter les valeurs distint d'une cellule

Version imprimable

26/03/2021, 09h20
laurent27530

Compter les valeurs distint d'une cellule

Bonjour,

J'aimerai compter le nombre de valeurs distinct d'une cellule en excluant les espaces

exemple :
le port => 6
les ports => 7

Citation:

Envoyé par laurent27530

Bonjour,

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
 
Function NbCaracteres(ByVal ChaineATraiter As String) As Integer
 
Dim Tableau As Variant
 
    Application.Volatile
    Tableau = Split(ChaineATraiter, " ")
    NbCaracteres = Len(ChaineATraiter) - UBound(Tableau)
 
End Function

26/03/2021, 10h54
laurent27530

Effectivement tu comptes les caracteres.
En revanche je cherche a compter les nombres de caractere différents.

les sels => 3

Citation:

Envoyé par laurent27530

Ok,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function NbCaracteres(ByVal ChaineATraiter As String) As Integer
 
Dim I As Integer
Dim MonDico As Object
 
    Application.Volatile
    NbCaracteres = 0
    Set MonDico = CreateObject("Scripting.Dictionary")
 
    For I = 1 To Len(ChaineATraiter)
        If Mid(ChaineATraiter, I, 1) <> " " Then
           If Not MonDico.Exists(Mid(ChaineATraiter, I, 1)) Then
              MonDico.Add Mid(ChaineATraiter, I, 1), Mid(ChaineATraiter, I, 1)
              NbCaracteres = NbCaracteres + 1
           End If
        End If
    Next I
    Set MonDico = Nothing
 
 
End Function

26/03/2021, 11h25
laurent27530

Excellent

Il va falloir que j'analyse ta macro, pour pouvoir l'adapter le cas écheant.