Discussion :

[acaro]

Bonjour

Je souhaiterai compter le nombre de fois où apparait un caractère précis dans une cellule.
Par exemple dans les cellules suivantes j'aimerai compter le nombre de virgules :
"14699, 14700, 14701" renverrai 3
"14699" renverrai 0

J'aimerai que la valeur s'affiche dans la cellule d'à côté et ceux sur tout une colonne.
Exemple :
On vérifie la colonne [A] et on rempli le résultat [B]

Quelqu'un pour m'aider ?
ps je suis en VBA 7.1

Merci !

[EricDgn]

Bonjour,

Une façon de faire est de créer une fonction, de ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function NbT(r As Range, s As String) As Long
    Dim v As String, n As Long, k As Long
    v = r.Value
    n = 0
    k = InStr(v, s)
    While k > 0
        n = n + 1
        v = Mid(v, k + 1)
        k = InStr(v, s)
    Wend
    NbT = n
End Function

que l'on peut ensuite utiliser par exemple dans la cellule B2 pour compter le nombre de , dans la cellule A2:
=NbT(A2;",")

Bonne continuation.

[patricktoulon]

re
bonsoir rien de plus simple et ca marche mémé pour une chaine dans une chaine

formule cellule de base : "=NBCH(A1;",")"

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function NBCH(r, char As String) As Long
    NBCH = UBound(Split(r, char))
End Function
'
'en vba tu l'exploite pareil
' et c'est valable pour les chaine
Sub test()
    MsgBox NBCH("blablablablabla", "bla")
End Sub

[Philippe Tulliez]

Bonjour,

"14699, 14700, 14701" renverrai 3
"14699" renverrai 0

J'ai du mal avec cette logique car soit le premier cas renvoie 2 et le second 0 soit ce serait 3 et 1

Si ma logique rejoint la tienne, nul besoin de VBA pour cela. Une simple soustraction du nombre de caractères de la chaîne complète et de la chaîne sans les virgules te donnera le résultat
Avec une formule Excel (si la chaîne est en cellule A2

Code :

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

=NBCAR(A2)-NBCAR(SUBSTITUE(A2;",";""))

En vba (Solution qui s'ajoute bien entendu aux autres propositions)

Code :

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

1
2
3
4
5
Sub t()
  Dim txt As String
  txt = Range("A2").Value
  MsgBox Len(txt) - Len(Replace(txt, ",", ""))
End Sub

[patricktoulon]

bon jour Philippe

non la logique voudrais que ça renvoie 2
l'array créé par le split est en base 0


j'ai eue la même idée que toi avec len- le len du replace

sauf que si on travaille sur une sous chaine
len("blablablablabla")-len(replace("blablablablabla","bla","")) donne le len de la base ( je te laisse tester si tu veux )

NBCAR oui j'y avais pas pensé sur le coup good mais je pense que pour des subs chaines il y aura le même problème

edit:

en attendant je me suis amusé a convertir vba la formule par evaluate

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function EVALUATE_VBA_NBCAR(cel As String, char as string )
    Dim formula
    formula = Replace(Replace("LEN(""C1"")-LEN(SUBSTITUTE(""C1"", ""|"",""""))", "C1", cel), "|", char)
    EVALUATE_VBA_NBCAR = Evaluate(formula)
End Function
'
Sub test()
    MsgBox EVALUATE_VBA_NBCAR("toto,toto,riri,fifi", ",")
    MsgBox EVALUATE_VBA_NBCAR(Cells(1, 3).Value, ",")
End Sub

formule

Code :

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

=EVALUATE_VBA_NBCAR(C1;",")

[acaro]

Merci à tous, c'est parfait :

Voici le code final qui me permet de remplir dans la colonne d'à côté le nombre d’occurrence de virgule.

En effet je me suis trompée lors de la rédaction de ma problématique :
"14699, 14700, 14701" renverrai 2
"14699" renverrai 0

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub count()
 
  For i = 2 To Range("A" & Rows.count).End(xlUp).Row
  Dim txt As String
  txt = Range("A" & i).Value
Range("B" & i) = Len(txt) - Len(Replace(txt, ",", ""))
 
Next i
 
End Sub

Merci à tous