Ce module indique dans la variable nbre le nombre de fois que le caractère lettre$ a été retrouvé dans la chaîne buffer$.
Source / Exemple :
' ********************************************************
' Comptes le nombre de caractères lettre$ dans un buffer
' ********************************************************
Public Function CompteCaract(buffer As String, lettre As String, nbre As Integer)
' Variables locales
Dim pos As Integer
Dim old_pos As Integer
' Début de la boucle
old_pos = 1
nbre = 0
pos = InStr(old_pos, buffer, lettre, vbBinaryCompare)
' Boucle
While pos <> 0
nbre = nbre + 1
old_pos = pos
pos = InStr(old_pos + 1, buffer, lettre, vbBinaryCompare)
Wend
End Function
Conclusion :
Le fonctionnement se fait par une boucle par décompte des positions avec un InStr()
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.