GEDDi
Messages postés206Date d'inscriptionlundi 22 novembre 1999StatutMembreDernière intervention 3 juillet 2008 20 nov. 2007 à 16:21
Bonjour,
Essayes ceci :
Sub test()
MsgBox findWord("Le verre est vide", "vide")
End Sub
Public Function findWord(szSentence As String, szWordToFind As String) As Boolean
Const phrase = "Le verre est vide"
findWord = CBool(InStr(1, szSentence, szWordToFind))
End Function