Une autre solution :
Dim Chaine As String
Dim NbOcc As Integer
Chaine = "523392499"
'Nombre d'occurence du "2" :
NbOcc = Len(Chaine) - Len(Replace(Chaine, "2", ""))
Une autre solution :
Dim Chaine As String
Dim NbOcc As Integer
Chaine = "523392499"
'Nombre d'occurence du "2" :
NbOcc = Len(Chaine) - Len(Replace(Chaine, "2", ""))
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.