Cette fonction peut s'avérer très utile dans certain cas.
La syntaxe n'est pas très compliquée mais elle est un peu difficile à retrouver donc pour éviter de perdre du temps, conservez cette fonction bien au chaud...
Source / Exemple :
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
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.