0/5 (4 avis)
Snippet vu 6 010 fois - Téléchargée 58 fois
' ******************************************************** ' 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
27 août 2005 à 19:39
Public Function CompteCar(Texte As String, Lettre As String) As Long
CompteCar = Len(Texte) - Len(Replace(Texte, Lettre, ""))
End Function
17 janv. 2003 à 21:50
je m'explique , pour me servir de cette fonction j'ai fait un truc comme ça :
Private Sub cmdCompter_Click()
Dim brol As Integer
comptagemot = CompteCaract(vers1txt.Text, Text1.Text, brol)
Label1.Caption = brol
Data1.Recordset.MoveNext
End Sub
seulement voilà j'ai plusieurs lettre à lui faire comptabiliser ! mais lui ne me comptabilise que la dernière ! comment je pe faire !!! ?? Merci d'avance !
8 janv. 2002 à 10:50
Ex. :
a = 'Z'
Dim brol as Integer
CompteCaract(text1.text,a,brol)
Dans brol, tu aura le nombre de fois que le caractère "Z" a été trouvé dans text1.text.
5 août 2001 à 15:51
CompteCaract (text1.text,a,)
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.