Detecter un mot dans une phrase

Bonjour

Alors voilà je suis en train de développer un logiciel et je suis bloqué à un truc tout bête ><

Alors voilà j'ai un nombre qui varie tout le temps, il peut donc être entier ou decimal.

Seulement voilà, j'aimerai que par exemple si l'application detecte un "." (donc cela voudra dire que le nombre est decimal) que ca fasse quelque chose.

Donc comment savoir si dans tel textbox il y a un "." ou pas.

Merci d'avance =)

Regarde l'aide sur l'instruction Instr ou InstrB

Par exemple, InStr("12.4567", ".") te donnera 3.

Bonsoir,

il y a une ambiguïté certaine entre :

Citation:

---

Detecter un mot dans une phrase

---

et :

Citation:

---

Seulement voilà, j'aimerai que par exemple si l'application detecte un "." (donc cela voudra dire que le nombre est decimal) que ca fasse quelque chose.

Donc comment savoir si dans tel textbox il y a un "." ou pas.

---

Que peut donc contenir ta textbox ?
1) Une phrase limitée (dans sa globalité) à un nombre uniquement ? (et ce ne serait pas une phrase)
2) Une phrase contenant un nombre dans du texte ?

Si cas 2 :
a) ta phrase ne saurait contenir un point que pour un nombre ?
b) ta phrase pourrait contenir un point autre part que comme séparateur décimal d'un nombre ?

et :

Ta phrase ne peut-elle contenir qu'un seul nombre en son sein ?

Tu vois ? Sans précision, la discussion risque d'être tès longue ...

Merci pour vos réponses.

En effet excuse moi, je me suis mal exprimé.

Dans un textbox je recupère un nombre, exemple : 81
Ensuite mon application doit le diviser et afficher le resultat dans un autre textbox.
Et je veux que le resultat obtenu, si jamais il y a présence d'un "." que ça execute une action que je developperai, et que paradoxalement que si il n'y a pas de "." ca en execute une autre.

Vla =)

Regarde du côté des fonctions Int, Fix et Round.

Code:

---

1 2 3 4 5

If nombre - Fix(nombre) > 0 Then MsgBox "C'est un réel." Else MsgBox "C'est un entier." End if

---

Ah...

Ta "phrase" est donc finalement un nombre ?

Bien ... je ne sais pas où tu vas, mais voilà un exemple (bien incomplet en ce qui me concerne)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() If Len(Trim(Str(Int(Val(Text1.Text))))) = Len(Text1.Text) Then MsgBox "entier" ElseIf Val(Text1.Text) = 0 Then MsgBox "zéro ou pas numérique " Else MsgBox "decimal" End If End Sub

---

Tout n'est pas traité par cet exemple (notamment les saisie "bizarres"....)

Super ca marche

Merci beaucoup et a bientot :)