recherche un caractère dans un string

[neuba]

Je veux rechercher un caractère dans un string directement en VBA et compter le nombre de fois que le caractère se repète dans le string.
Peux-t-on definir des variable de type caractère comme dans Pascal en VBA.
Merci

 

[danielgre]

base ton script sur la fonction comme suit

i = 1
a = InStr(i, "bonjour", "j")
a contiendra le numero d'emplacement du 1er j lorsque i = 1,
puis tu decale i avpres la 1er occurence, etc...

 

[C@thy]

BONJOUR Neuba,

voici un exemple de code :

Function NbOccurences(Cel As Range, Car As String, _
Optional Casse As Boolean = False) As Long
Dim Ofs As Long, Critere as Integer
If Casse Then Critere = vbBinaryCompare Else Critere = vbTextCompare
Do
Ofs = InStr(Ofs + 1, CStr(Cel.Value), Car, Critere)
If Ofs > 0 Then NbOccurences = NbOccurences + 1
Loop Until Ofs = 0
End Function