Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Jac" | je suis à la recherche de la fonction de calcul qui me permettrait de | compter combien de fois la lettre "e" se trouve dans un champ.
Une mini fonction :
Function fnHowMuch(s As Variant, f As String) As Integer '// Si A = a remplacer vbBinaryCompare par vbTextCompare If Len(s) > 0 Then fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare)) Else fnHowMuch = 0 End If End Function
et donc : = fnHowMuch([le champ],"e")
dans une requête ou un textbox : = fnHowMuch([le champ];"e")
"Jac"
| je suis à la recherche de la fonction de calcul qui me permettrait de
| compter combien de fois la lettre "e" se trouve dans un champ.
Une mini fonction :
Function fnHowMuch(s As Variant, f As String) As Integer
'// Si A = a remplacer vbBinaryCompare par vbTextCompare
If Len(s) > 0 Then
fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare))
Else
fnHowMuch = 0
End If
End Function
et donc :
= fnHowMuch([le champ],"e")
dans une requête ou un textbox :
= fnHowMuch([le champ];"e")
"Jac" | je suis à la recherche de la fonction de calcul qui me permettrait de | compter combien de fois la lettre "e" se trouve dans un champ.
Une mini fonction :
Function fnHowMuch(s As Variant, f As String) As Integer '// Si A = a remplacer vbBinaryCompare par vbTextCompare If Len(s) > 0 Then fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare)) Else fnHowMuch = 0 End If End Function
et donc : = fnHowMuch([le champ],"e")
dans une requête ou un textbox : = fnHowMuch([le champ];"e")
"Jac" | je suis à la recherche de la fonction de calcul qui me permettrait de | compter combien de fois la lettre "e" se trouve dans un champ.
Une mini fonction :
Function fnHowMuch(s As Variant, f As String) As Integer '// Si A = a remplacer vbBinaryCompare par vbTextCompare If Len(s) > 0 Then fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare)) Else fnHowMuch = 0 End If End Function
et donc : = fnHowMuch([le champ],"e")
dans une requête ou un textbox : = fnHowMuch([le champ];"e")
"3stone" <home@sweet_home.be> a écrit dans le message de news:
%23P$Id1l9HHA.3696@TK2MSFTNGP04.phx.gbl...
Salut,
"Jac"
| je suis à la recherche de la fonction de calcul qui me permettrait de
| compter combien de fois la lettre "e" se trouve dans un champ.
Une mini fonction :
Function fnHowMuch(s As Variant, f As String) As Integer
'// Si A = a remplacer vbBinaryCompare par vbTextCompare
If Len(s) > 0 Then
fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare))
Else
fnHowMuch = 0
End If
End Function
et donc :
= fnHowMuch([le champ],"e")
dans une requête ou un textbox :
= fnHowMuch([le champ];"e")
"Jac" | je suis à la recherche de la fonction de calcul qui me permettrait de | compter combien de fois la lettre "e" se trouve dans un champ.
Une mini fonction :
Function fnHowMuch(s As Variant, f As String) As Integer '// Si A = a remplacer vbBinaryCompare par vbTextCompare If Len(s) > 0 Then fnHowMuch = Len(s) - Len(Replace(s, f, "", , , vbBinaryCompare)) Else fnHowMuch = 0 End If End Function
et donc : = fnHowMuch([le champ],"e")
dans une requête ou un textbox : = fnHowMuch([le champ];"e")