0/5 (1 avis)
Snippet vu 2 167 fois - Téléchargée 40 fois
Public Function NbeDeChDansCh(sChaineAAnalyser As String, sChaineDeComparaison As String) As Long NbeDeChDansCh = UBound(Split(LCase(sChaineAAnalyser), LCase(sChaineDeComparaison))) End Function Private Sub Command1_Click() MsgBox NbeDeChDansCh("abcdabefab", "ab") 'renvoit 3 End Sub
21 janv. 2003 à 19:14
Je ne sais pas si c'est très rapide, mais ça a le mérite d'être simple !
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.