Utilisé or et if en même temps

Signaler
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013
-
cs_ShayW
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
Bonjour,

et-il possible d'utilisé or et if en même temps.
désoler je ne trouve pas la solution donc je préféré vous demandé.

ce code n'est pas bon je vous le place quand même.

If InStr(LCase$(Vstring1), LCase$(txtFind)) <> 0 Or if Check_recherche_desc.Value = checked then  InStr(LCase$(Vstring2)), LCase$(txtFind)) <> 0 Then
'.......
end if


Merci d'avance

5 réponses

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
47
Bonjour

Cela serait plus simple si tu nous disais ce que
tu veux faire
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013

je lance une recherche d'un mot dans Vstring1 ex: toto que je tape dans le champ txtFind en même je veut vérifier si la Check_recherche_desc.Value = checked est coché alors je vérifie aussi si ce mot ce trouve aussi dans Vstring2, mais seulement si Check_recherche_desc.Value = checked
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
47
Un peut d'ordre dans les évenements ce n'est pas
clair
Vstring1 est un string
txtFind c'est le textbox pour le mot à rechercher
je tape dans textFind quel évenement ?
Private Sub txtFind_KeyPress(KeyAscii As Integer)

en même je veut vérifier

en meme temps que quoi ?
j'essaie de comprendre

il y a un textbox named textFind
il y a un checkbox named Check_recherche_desc
je lance le prog textFind est vide
Check_recherche_desc not checked
je frappe toto dans le textfind
après que ce passe t'il ?
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013

ok j'ai trouvé la solution j'ai fait simple

Dim Vstring1 As String
Dim Vstring2 As String

Private Sub Command1_Click()
If InStr(LCase$(Vstring1), LCase$(txtFind)) <> 0 Then
Me.Caption = "ce texte a été trouvé dans Vstring1"
If InStr(LCase$(Vstring2), LCase$(txtFind)) <> 0 Then
Me.Caption = Me.Caption & " ce texte a été aussi trouvé dans Vstring2"
End If

End If
End Sub

Private Sub Form_Load()
Vstring1 = "kldfjhkjlhjkhtoto"
Vstring2 = "poiupiototosdfdfqgdfhgfhjkj"
End Sub
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
47
Simple c'est toujours mieux