bonjour a tous
dans 1 programme ,j'ai une boite de dialogue qui me permets de saisir
un nom ,ensuite le programme recherche dans 1 tableau toutes les lignes qui ont
un rapport avec ce nom
est ce qu'il est possible dans cette boite de dialogue de noter 2 informations
separares par exemple par un tiret , de facon a faire des recherche plus
precise
les 2 infos deviendraient 2 variables pour 1 meme recherche
merci pour une reponse
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
Hervé
Salut, Regarde si cela convient : Sub Rechercher() Dim Critere1 As String Dim Critere2 As String Dim Texte As String Dim Pos As Integer
Texte = InputBox("Saisir les critères " & _ "de recherche séparés par un tiret "" - """, _ "Recherche.")
If Texte = "" Then Exit Sub 'recherche le tiret Pos = InStr(Texte, "-") 'si absent, un seul critère de recherche 'sinon récupère les 2 critères If Pos = 0 Then Critere1 = Texte Else Critere1 = Left(Texte, Pos - 1) Critere2 = Mid(Texte, Pos + 1, Len(Texte) - Pos) End If
'ici la suite... End Sub
Hervé.
"srog" a écrit dans le message news:
bonjour a tous dans 1 programme ,j'ai une boite de dialogue qui me permets de saisir un nom ,ensuite le programme recherche dans 1 tableau toutes les lignes qui ont
un rapport avec ce nom est ce qu'il est possible dans cette boite de dialogue de noter 2 informations
separares par exemple par un tiret , de facon a faire des recherche plus precise les 2 infos deviendraient 2 variables pour 1 meme recherche merci pour une reponse
Salut,
Regarde si cela convient :
Sub Rechercher()
Dim Critere1 As String
Dim Critere2 As String
Dim Texte As String
Dim Pos As Integer
Texte = InputBox("Saisir les critères " & _
"de recherche séparés par un tiret "" - """, _
"Recherche.")
If Texte = "" Then Exit Sub
'recherche le tiret
Pos = InStr(Texte, "-")
'si absent, un seul critère de recherche
'sinon récupère les 2 critères
If Pos = 0 Then
Critere1 = Texte
Else
Critere1 = Left(Texte, Pos - 1)
Critere2 = Mid(Texte, Pos + 1, Len(Texte) - Pos)
End If
'ici la suite...
End Sub
Hervé.
"srog" <srogeau@aol.com> a écrit dans le message news:
20040911100027.01624.00000648@mb-m28.aol.com...
bonjour a tous
dans 1 programme ,j'ai une boite de dialogue qui me permets de saisir
un nom ,ensuite le programme recherche dans 1 tableau toutes les lignes
qui ont
un rapport avec ce nom
est ce qu'il est possible dans cette boite de dialogue de noter 2
informations
separares par exemple par un tiret , de facon a faire des recherche plus
precise
les 2 infos deviendraient 2 variables pour 1 meme recherche
merci pour une reponse
Salut, Regarde si cela convient : Sub Rechercher() Dim Critere1 As String Dim Critere2 As String Dim Texte As String Dim Pos As Integer
Texte = InputBox("Saisir les critères " & _ "de recherche séparés par un tiret "" - """, _ "Recherche.")
If Texte = "" Then Exit Sub 'recherche le tiret Pos = InStr(Texte, "-") 'si absent, un seul critère de recherche 'sinon récupère les 2 critères If Pos = 0 Then Critere1 = Texte Else Critere1 = Left(Texte, Pos - 1) Critere2 = Mid(Texte, Pos + 1, Len(Texte) - Pos) End If
'ici la suite... End Sub
Hervé.
"srog" a écrit dans le message news:
bonjour a tous dans 1 programme ,j'ai une boite de dialogue qui me permets de saisir un nom ,ensuite le programme recherche dans 1 tableau toutes les lignes qui ont
un rapport avec ce nom est ce qu'il est possible dans cette boite de dialogue de noter 2 informations
separares par exemple par un tiret , de facon a faire des recherche plus precise les 2 infos deviendraient 2 variables pour 1 meme recherche merci pour une reponse
