Le if s'execute meme si la condition est fausseRésolu

Question

Bonjour, voila je lorsque je met ce code, l'action if s'execute toujours, ce qui fait buger l'aplication, pourtant la condition n'est pas vraie :s qu'en pencez vous?

If txtdata.Text Like "[Nombre de beep]*" Then
txtbeep.SetFocus
txtbeep.Text = Data
txtbeep.SelStart = 0
txtbeep.SelLength = 16
txtbeep.SelText = ""
nbrbeep = txtbeep.Text
Do Until nbrbeep = 0
nbrbeep = nbrbeep - 1
Beep 1000, 170
Sleep 100
Loop
Exit Sub
Else
End If


Voila je trouve ca louche, le seul probleme est que le if s'execute toujours :s

cs_DARKSIDIOUS · Accepted Answer

Bien sûr que si :

If txtdata.Text Like "Nombre de beep*" Then

Sans les crochets donc ! (les crochets veulent dire soit les caractères à tester, soit une plage de caractères).

cs_DARKSIDIOUS · Answer

Heu... tu cherche à faire quoi avec ton like là ???

Ton test if correspond à :

If txtdata.Text Like "[bdemNopr ]*" Then

c'est-à-dire que la condition est vrai si ton texte contient au moins une occurence des lettes entre crochet, donc il suffit que ton textbox contienne un "e" ou un espace par exemple pour que ta condition soit remplie !

jmfmarques · Answer

Cherches ailleurs ce que tu as pu faire de travers !
Ton If n'est pas responsable.
Le preuve :

Private Sub Command1_Click()
  If txtdata.Text Like "[Nombre de beep]*" Then
    MsgBox "pareil"
  Else
    MsgBox "pas pareil"
  End If
End Sub

alex_sex · Answer

A et il n'y a pas moyen, qu'il faut qu'il y est tout?

jmfmarques · Answer

Utilise alors Instr !

alex_sex · Answer

Merci t'es genial :)

Dolphin Boy · Answer

Salut, enlève les crochets.

Le if s'execute meme si la condition est fausse

7 réponses

Votre réponse

Discussions similaires