bien le bonjour,
je cherche simplement à tester si les 2 premières lettre d'un mot sont des
voyelles, ai fait ceci mais la function renvoie toujours VRAI
merci de votre avis
Pascal
Public Function TestVoyelle(Mot As String) As Boolean
Const sVoyelle As String = "aeiouyAEIOUY"
'teste si les 2 premières lettres du mot sont des voyelles
If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle,
MidB(Mot, 2, 1)) Then
TestVoyelle = True
End If
End Function
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
Pascal
sorry je travaillai sur les octets MIDB en remplacant par MID, tout va bien
c'est comme cela que l'on apprend pascal
"Pascal" a écrit dans le message de news: u%
bien le bonjour, je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis Pascal
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle, MidB(Mot, 2, 1)) Then TestVoyelle = True End If End Function
sorry je travaillai sur les octets MIDB
en remplacant par MID, tout va bien
c'est comme cela que l'on apprend
pascal
"Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
u%23j9zoBCIHA.5044@TK2MSFTNGP03.phx.gbl...
bien le bonjour,
je cherche simplement à tester si les 2 premières lettre d'un mot sont des
voyelles, ai fait ceci mais la function renvoie toujours VRAI
merci de votre avis
Pascal
Public Function TestVoyelle(Mot As String) As Boolean
Const sVoyelle As String = "aeiouyAEIOUY"
'teste si les 2 premières lettres du mot sont des voyelles
If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle,
MidB(Mot, 2, 1)) Then
TestVoyelle = True
End If
End Function
sorry je travaillai sur les octets MIDB en remplacant par MID, tout va bien
c'est comme cela que l'on apprend pascal
"Pascal" a écrit dans le message de news: u%
bien le bonjour, je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis Pascal
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle, MidB(Mot, 2, 1)) Then TestVoyelle = True End If End Function
Pascal
bon sorry je me suis un peu emballé, cette function ne fonctionne pa convenablement
toujours besoin de votre aide merci Pascal
"Pascal" a écrit dans le message de news: u%
bien le bonjour, je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis Pascal
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle, MidB(Mot, 2, 1)) Then TestVoyelle = True End If End Function
bon sorry je me suis un peu emballé, cette function ne fonctionne pa
convenablement
toujours besoin de votre aide merci
Pascal
"Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
u%23j9zoBCIHA.5044@TK2MSFTNGP03.phx.gbl...
bien le bonjour,
je cherche simplement à tester si les 2 premières lettre d'un mot sont des
voyelles, ai fait ceci mais la function renvoie toujours VRAI
merci de votre avis
Pascal
Public Function TestVoyelle(Mot As String) As Boolean
Const sVoyelle As String = "aeiouyAEIOUY"
'teste si les 2 premières lettres du mot sont des voyelles
If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle,
MidB(Mot, 2, 1)) Then
TestVoyelle = True
End If
End Function
bon sorry je me suis un peu emballé, cette function ne fonctionne pa convenablement
toujours besoin de votre aide merci Pascal
"Pascal" a écrit dans le message de news: u%
bien le bonjour, je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis Pascal
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles If InStr(1, sVoyelle, MidB(Mot, 1, 1)) And InStr(1, sVoyelle, MidB(Mot, 2, 1)) Then TestVoyelle = True End If End Function
Patrick Philippot
Pascal wrote:
je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis
A vue de nez:
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles
TestVoyelle = (InStr(1, sVoyelle, Mid(Mot, 1, 1)) > 0) And (InStr(1, sVoyelle, Mid(Mot, 2, 1)) > 0) End Function
Cordialement.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Pascal wrote:
je cherche simplement à tester si les 2 premières lettre d'un mot
sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI
merci de votre avis
A vue de nez:
Public Function TestVoyelle(Mot As String) As Boolean
Const sVoyelle As String = "aeiouyAEIOUY"
'teste si les 2 premières lettres du mot sont des voyelles
TestVoyelle = (InStr(1, sVoyelle, Mid(Mot, 1, 1)) > 0) And (InStr(1,
sVoyelle, Mid(Mot, 2, 1)) > 0)
End Function
Cordialement.
--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis
A vue de nez:
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles
TestVoyelle = (InStr(1, sVoyelle, Mid(Mot, 1, 1)) > 0) And (InStr(1, sVoyelle, Mid(Mot, 2, 1)) > 0) End Function
Cordialement.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Pascal
Bon sang c'est d'une évidence! je te remercie cela fonctionne très bien
Pascal
"Patrick Philippot" a écrit dans le message de news: %238i%
Pascal wrote:
je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis
A vue de nez:
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles
TestVoyelle = (InStr(1, sVoyelle, Mid(Mot, 1, 1)) > 0) And (InStr(1, sVoyelle, Mid(Mot, 2, 1)) > 0) End Function
Cordialement.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Bon sang c'est d'une évidence!
je te remercie cela fonctionne très bien
Pascal
"Patrick Philippot" <patrick.philippot@mainsoft.xx.fr> a écrit dans le
message de news: %238i%23w1BCIHA.5360@TK2MSFTNGP03.phx.gbl...
Pascal wrote:
je cherche simplement à tester si les 2 premières lettre d'un mot
sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI
merci de votre avis
A vue de nez:
Public Function TestVoyelle(Mot As String) As Boolean
Const sVoyelle As String = "aeiouyAEIOUY"
'teste si les 2 premières lettres du mot sont des voyelles
TestVoyelle = (InStr(1, sVoyelle, Mid(Mot, 1, 1)) > 0) And (InStr(1,
sVoyelle, Mid(Mot, 2, 1)) > 0)
End Function
Cordialement.
--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Bon sang c'est d'une évidence! je te remercie cela fonctionne très bien
Pascal
"Patrick Philippot" a écrit dans le message de news: %238i%
Pascal wrote:
je cherche simplement à tester si les 2 premières lettre d'un mot sont des voyelles, ai fait ceci mais la function renvoie toujours VRAI merci de votre avis
A vue de nez:
Public Function TestVoyelle(Mot As String) As Boolean Const sVoyelle As String = "aeiouyAEIOUY" 'teste si les 2 premières lettres du mot sont des voyelles
TestVoyelle = (InStr(1, sVoyelle, Mid(Mot, 1, 1)) > 0) And (InStr(1, sVoyelle, Mid(Mot, 2, 1)) > 0) End Function
Cordialement.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr