Discussion :

[djoumusic]

Bonjour,
j'aimerai pouvoir compter le nombre d'argument dans une cellule excel..
du type (+12+12+14) donnerai le resultat de 3 puisque 3 chiffres sont additionés..
et ensuite pouvoir avoir comme données : nombre de 12 2,
nombre de 14 1
puisque le chiffre 12 est utilisé 2 fois et le chiffre 14 une seule fois..

est ce possible,
vers quel fonction, il faut que j'aille...
merci enormement..

Julien

[Didier Gonard]

Bonjour,

Dans l'éditeur vba, tu fais affichage, Explorateur d'objets, dans la colonne Classes, tu descend pour cliquer sur Strings, dans les membres de strings tu as tout ce qu'il faut, tu surlignes un élément et tu appuies sur F1 => l'aide jaillit.

vois en particulier InStr et InStrRev, Len, Mid , right left.

tu auras peut-être intérêt à te construire des fonctions à partir de ça, il y tout ce qu'il faut dans les tutos Excel du forum

Il existe peut-être des fonctions natives plus proches, mais ça ne me vient pas à l'esprit..

cordialement,

Didier

[jp014]

Bonsoir

Un exemple de code pour compter le nombre de valeurs numériques.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Function compter(cellule_avec_valeur As Range)
If cellule_avec_valeur = "" Then
    compter = 0
    Exit Function
End If
Dim i As Integer
Dim i1 As Byte
Dim premier As Boolean
Dim suivant As Boolean
Dim val1 As String
 
val1 = CStr(cellule_avec_valeur.Value)
For i = 1 To Len(CStr(cellule_avec_valeur.Value))
    ' on recherche la première position
    If IsNumeric(Mid(val1, i, 1)) Then
    ElseIf premier = True Then ' la valeur n'est pas numérique
        i1 = i1 + 1
        premier = False
        suivant = True ' pour sauter le test suivant
    End If
 
    If IsNumeric(Mid(val1, i, 1)) And premier = False And premier = False Then premier = True
 
    suivant = False
Next i
If premier = True Then i1 = i1 + 1
compter = i1
End Function

A tester

JP014

[Didier Gonard]

Bonjour,

Selon le contexte exact de djoumusic, perso, je me baserai plus sur la détection de ses séparateurs (le + dans son exemple, mais ça peut varier) pour isoler ce qu'il y a entre les deux (d'où InStr)...

Si, ce qui n'est pas précisé ici, il y a un nombre à virgule, ta fonction jp014 va décompter un item de plus etc...


cordialement,

Didier

[jp014]

Bonsoir

Bonjour,

Selon le contexte exact de djoumusic, perso, je me baserai plus sur la détection de ses séparateurs (le + dans son exemple, mais ça peut varier) pour isoler ce qu'il y a entre les deux (d'où InStr)...

Si, ce qui n'est pas précisé ici, il y a un nombre à virgule, ta fonction jp014 va décompter un item de plus etc...


cordialement,

Didier

Le problème est de savoir si une virgule est un séparateur de valeur ou si elle fait partie de la valeur numérique.

Bon Week end
JP

[djoumusic]

merci a vous gtous,
je vais essayer vos exemples..
les chiffres a virgules, ne represente qu'un nombre..
2,65 = 1

cdt

le message et surtout le code de mercatog, est le bon...
c'est super !
il ne me manque plus qu'a detailler l'interieur de ma celle...
j'entend par là
pour voir dire si dans ma cellule le calcul est +9+9+6+6+3
que j'ai
nombre de 9 = 2
nombre de 6 = 2
nombre de 3 = 1

vous avez une idée ??

[mercatog]

combien d'arguments donnera 4.5+6.12 ?

ma proposition pour trouver le nombre d'arguments

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function NbNum(Rng As Range) As Integer
Dim Tablo, Sign, Contenu
Dim i As Byte
Sign = Array("=", "+", "-", "*", "/")
Contenu = CStr(Rng.Formula)
If IsNumeric(Left(Contenu, 1)) Then NbNum = 1
For i = 0 To UBound(Sign)
    If InStr(Contenu, Sign(i)) > 0 Then
        Tablo = Split(Contenu, Sign(i))
        NbNum = NbNum + UBound(Tablo)
    End If
Next i
End Function