bonsoir ,
une petite aide bienvenue
ai reçu le code suivant qui permet l'affichage des dossiers d'un
répertoire
================================ > With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
.ListItems.Add , , s, 1
Next i
End With
============================== > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
dans un textBox on saisirai la recherche la listview n'afficherai que le
contenu contenant tout ou ne partie du textbox
ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
n'arrive pas à l'emnbôiter dans tout cela
Bien à tous
Pascal
bonsoir ,
une petite aide bienvenue
ai reçu le code suivant qui permet l'affichage des dossiers d'un
répertoire
================================ > With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
.ListItems.Add , , s, 1
Next i
End With
============================== > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
dans un textBox on saisirai la recherche la listview n'afficherai que le
contenu contenant tout ou ne partie du textbox
ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
n'arrive pas à l'emnbôiter dans tout cela
Bien à tous
Pascal
bonsoir ,
une petite aide bienvenue
ai reçu le code suivant qui permet l'affichage des dossiers d'un
répertoire
================================ > With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
.ListItems.Add , , s, 1
Next i
End With
============================== > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
dans un textBox on saisirai la recherche la listview n'afficherai que le
contenu contenant tout ou ne partie du textbox
ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
n'arrive pas à l'emnbôiter dans tout cela
Bien à tous
Pascal
Bonsoir Pascal,
Avec ceci ?
Dim i As Long
With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
If InStr(Me.Dir1.List(i), Text1) Then
.ListItems.Add , , _
Mid(Me.Dir1.List(i), _
InStrRev(Me.Dir1.List(i), "") + 1)
End If
Next i
End With
Hervé.
"Pascal" a écrit dans le message de news:
> bonsoir ,
> une petite aide bienvenue
> ai reçu le code suivant qui permet l'affichage des dossiers d'un
> répertoire
> ================================ > > With Me.ListView1
> .ListItems.Clear
>
> For i = 0 To Me.Dir1.ListCount - 1
> s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> .ListItems.Add , , s, 1
> Next i
>
> End With
> ============================== > > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
> dans un textBox on saisirai la recherche la listview n'afficherai que
> contenu contenant tout ou ne partie du textbox
> ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
> n'arrive pas à l'emnbôiter dans tout cela
>
> Bien à tous
>
> Pascal
>
Bonsoir Pascal,
Avec ceci ?
Dim i As Long
With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
If InStr(Me.Dir1.List(i), Text1) Then
.ListItems.Add , , _
Mid(Me.Dir1.List(i), _
InStrRev(Me.Dir1.List(i), "") + 1)
End If
Next i
End With
Hervé.
"Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
eX5jZjaAGHA.220@TK2MSFTNGP10.phx.gbl...
> bonsoir ,
> une petite aide bienvenue
> ai reçu le code suivant qui permet l'affichage des dossiers d'un
> répertoire
> ================================ > > With Me.ListView1
> .ListItems.Clear
>
> For i = 0 To Me.Dir1.ListCount - 1
> s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> .ListItems.Add , , s, 1
> Next i
>
> End With
> ============================== > > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
> dans un textBox on saisirai la recherche la listview n'afficherai que
> contenu contenant tout ou ne partie du textbox
> ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
> n'arrive pas à l'emnbôiter dans tout cela
>
> Bien à tous
>
> Pascal
>
Bonsoir Pascal,
Avec ceci ?
Dim i As Long
With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
If InStr(Me.Dir1.List(i), Text1) Then
.ListItems.Add , , _
Mid(Me.Dir1.List(i), _
InStrRev(Me.Dir1.List(i), "") + 1)
End If
Next i
End With
Hervé.
"Pascal" a écrit dans le message de news:
> bonsoir ,
> une petite aide bienvenue
> ai reçu le code suivant qui permet l'affichage des dossiers d'un
> répertoire
> ================================ > > With Me.ListView1
> .ListItems.Clear
>
> For i = 0 To Me.Dir1.ListCount - 1
> s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> .ListItems.Add , , s, 1
> Next i
>
> End With
> ============================== > > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
> dans un textBox on saisirai la recherche la listview n'afficherai que
> contenu contenant tout ou ne partie du textbox
> ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
> n'arrive pas à l'emnbôiter dans tout cela
>
> Bien à tous
>
> Pascal
>
merci hervé ,
cela me convient très bien
Pascal
"Hervé" a écrit dans le message de news:
> Bonsoir Pascal,
> Avec ceci ?
>
> Dim i As Long
>
> With Me.ListView1
> .ListItems.Clear
> For i = 0 To Me.Dir1.ListCount - 1
> If InStr(Me.Dir1.List(i), Text1) Then
> .ListItems.Add , , _
> Mid(Me.Dir1.List(i), _
> InStrRev(Me.Dir1.List(i), "") + 1)
> End If
> Next i
> End With
>
> Hervé.
>
> "Pascal" a écrit dans le message de news:
>
> > bonsoir ,
> > une petite aide bienvenue
> > ai reçu le code suivant qui permet l'affichage des dossiers d'un
> > répertoire
> > ================================ > > > With Me.ListView1
> > .ListItems.Clear
> >
> > For i = 0 To Me.Dir1.ListCount - 1
> > s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> > .ListItems.Add , , s, 1
> > Next i
> >
> > End With
> > ============================== > > > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
> > dans un textBox on saisirai la recherche la listview n'afficherai que
le
> > contenu contenant tout ou ne partie du textbox
> > ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
> > n'arrive pas à l'emnbôiter dans tout cela
> >
> > Bien à tous
> >
> > Pascal
> >
>
>
merci hervé ,
cela me convient très bien
Pascal
"Hervé" <hmsilvePasDePub@wanadoo.fr> a écrit dans le message de news:
OCyZB2aAGHA.4004@TK2MSFTNGP15.phx.gbl...
> Bonsoir Pascal,
> Avec ceci ?
>
> Dim i As Long
>
> With Me.ListView1
> .ListItems.Clear
> For i = 0 To Me.Dir1.ListCount - 1
> If InStr(Me.Dir1.List(i), Text1) Then
> .ListItems.Add , , _
> Mid(Me.Dir1.List(i), _
> InStrRev(Me.Dir1.List(i), "") + 1)
> End If
> Next i
> End With
>
> Hervé.
>
> "Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
> eX5jZjaAGHA.220@TK2MSFTNGP10.phx.gbl...
> > bonsoir ,
> > une petite aide bienvenue
> > ai reçu le code suivant qui permet l'affichage des dossiers d'un
> > répertoire
> > ================================ > > > With Me.ListView1
> > .ListItems.Clear
> >
> > For i = 0 To Me.Dir1.ListCount - 1
> > s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> > .ListItems.Add , , s, 1
> > Next i
> >
> > End With
> > ============================== > > > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
> > dans un textBox on saisirai la recherche la listview n'afficherai que
le
> > contenu contenant tout ou ne partie du textbox
> > ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
> > n'arrive pas à l'emnbôiter dans tout cela
> >
> > Bien à tous
> >
> > Pascal
> >
>
>
merci hervé ,
cela me convient très bien
Pascal
"Hervé" a écrit dans le message de news:
> Bonsoir Pascal,
> Avec ceci ?
>
> Dim i As Long
>
> With Me.ListView1
> .ListItems.Clear
> For i = 0 To Me.Dir1.ListCount - 1
> If InStr(Me.Dir1.List(i), Text1) Then
> .ListItems.Add , , _
> Mid(Me.Dir1.List(i), _
> InStrRev(Me.Dir1.List(i), "") + 1)
> End If
> Next i
> End With
>
> Hervé.
>
> "Pascal" a écrit dans le message de news:
>
> > bonsoir ,
> > une petite aide bienvenue
> > ai reçu le code suivant qui permet l'affichage des dossiers d'un
> > répertoire
> > ================================ > > > With Me.ListView1
> > .ListItems.Clear
> >
> > For i = 0 To Me.Dir1.ListCount - 1
> > s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> > .ListItems.Add , , s, 1
> > Next i
> >
> > End With
> > ============================== > > > je souhaiterai le modifier pour n'afficher que les dossiers recherchés
> > dans un textBox on saisirai la recherche la listview n'afficherai que
le
> > contenu contenant tout ou ne partie du textbox
> > ja sais(du moins je pense) qu'il fait utiliser la fonction INSTR mais
> > n'arrive pas à l'emnbôiter dans tout cela
> >
> > Bien à tous
> >
> > Pascal
> >
>
>
rehello,
une petite question supplémentaire
comment peut on y inclure la recherche en majuscule et minuscule à la fois
ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
rehello,
une petite question supplémentaire
comment peut on y inclure la recherche en majuscule et minuscule à la fois
ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
rehello,
une petite question supplémentaire
comment peut on y inclure la recherche en majuscule et minuscule à la fois
ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
"Pascal" a écrit dans le message de
news:%
> rehello,
> une petite question supplémentaire
> comment peut on y inclure la recherche en majuscule et minuscule à la
> ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
Hello,
L'astuce est toute simple:
tu fais larecherche avec instr non pas sur
les textes eux même mais sur leurs conversions en
majuscules (ou en minuscules d'ailleurs, le tout
étant de comparer des choses comparables).
UCase$() transforme en majuscules (UPPER case)
LCase$() transforme en minuscules (LOWER case)
Donc voici, il suffit de changer la ligne:
'If InStr(Me.Dir1.List(i), Text1) Then
Par:
Dim sText As String
Dim sCurItem As String
sText = UCase(Text1.Text)
sCurItem = UCase$(Me.Dir1.List(i))
If InStr(sCurItelm, sText) <> 0 Then
Au passage, 2 choses à noter:
- Il faut éviter d'utiliser directement
Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
- Instr retourne un Entier, pas un booléen, donc il est plus correct
d'écrire
if Instr(toto, tutu) <> 0 Then
Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
heureux hasard. Il vaut donc mieux faire un test correct, en
comparant le résultat à un entier
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"Pascal" <inconnu@hotmail.com> a écrit dans le message de
news:%23byrj8cAGHA.2908@TK2MSFTNGP10.phx.gbl...
> rehello,
> une petite question supplémentaire
> comment peut on y inclure la recherche en majuscule et minuscule à la
> ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
Hello,
L'astuce est toute simple:
tu fais larecherche avec instr non pas sur
les textes eux même mais sur leurs conversions en
majuscules (ou en minuscules d'ailleurs, le tout
étant de comparer des choses comparables).
UCase$() transforme en majuscules (UPPER case)
LCase$() transforme en minuscules (LOWER case)
Donc voici, il suffit de changer la ligne:
'If InStr(Me.Dir1.List(i), Text1) Then
Par:
Dim sText As String
Dim sCurItem As String
sText = UCase(Text1.Text)
sCurItem = UCase$(Me.Dir1.List(i))
If InStr(sCurItelm, sText) <> 0 Then
Au passage, 2 choses à noter:
- Il faut éviter d'utiliser directement
Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
- Instr retourne un Entier, pas un booléen, donc il est plus correct
d'écrire
if Instr(toto, tutu) <> 0 Then
Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
heureux hasard. Il vaut donc mieux faire un test correct, en
comparant le résultat à un entier
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
"Pascal" a écrit dans le message de
news:%
> rehello,
> une petite question supplémentaire
> comment peut on y inclure la recherche en majuscule et minuscule à la
> ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
Hello,
L'astuce est toute simple:
tu fais larecherche avec instr non pas sur
les textes eux même mais sur leurs conversions en
majuscules (ou en minuscules d'ailleurs, le tout
étant de comparer des choses comparables).
UCase$() transforme en majuscules (UPPER case)
LCase$() transforme en minuscules (LOWER case)
Donc voici, il suffit de changer la ligne:
'If InStr(Me.Dir1.List(i), Text1) Then
Par:
Dim sText As String
Dim sCurItem As String
sText = UCase(Text1.Text)
sCurItem = UCase$(Me.Dir1.List(i))
If InStr(sCurItelm, sText) <> 0 Then
Au passage, 2 choses à noter:
- Il faut éviter d'utiliser directement
Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
- Instr retourne un Entier, pas un booléen, donc il est plus correct
d'écrire
if Instr(toto, tutu) <> 0 Then
Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
heureux hasard. Il vaut donc mieux faire un test correct, en
comparant le résultat à un entier
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Hello,
Encore plus simple : Ajoute vbTextCompare à Instr
If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
...
"Jean-Marc" a écrit dans le message de
43a27586$0$652$
> "Pascal" a écrit dans le message de
> news:%
> > rehello,
> > une petite question supplémentaire
> > comment peut on y inclure la recherche en majuscule et minuscule à la
fois
> > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
>
> Hello,
>
> L'astuce est toute simple:
> tu fais larecherche avec instr non pas sur
> les textes eux même mais sur leurs conversions en
> majuscules (ou en minuscules d'ailleurs, le tout
> étant de comparer des choses comparables).
>
> UCase$() transforme en majuscules (UPPER case)
> LCase$() transforme en minuscules (LOWER case)
>
> Donc voici, il suffit de changer la ligne:
> 'If InStr(Me.Dir1.List(i), Text1) Then
>
> Par:
>
> Dim sText As String
> Dim sCurItem As String
>
> sText = UCase(Text1.Text)
> sCurItem = UCase$(Me.Dir1.List(i))
>
> If InStr(sCurItelm, sText) <> 0 Then
>
>
> Au passage, 2 choses à noter:
> - Il faut éviter d'utiliser directement
> Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
>
> - Instr retourne un Entier, pas un booléen, donc il est plus correct
> d'écrire
> if Instr(toto, tutu) <> 0 Then
>
> Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> heureux hasard. Il vaut donc mieux faire un test correct, en
> comparant le résultat à un entier
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
Hello,
Encore plus simple : Ajoute vbTextCompare à Instr
If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
...
"Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
43a27586$0$652$ba620e4c@news.skynet.be...
> "Pascal" <inconnu@hotmail.com> a écrit dans le message de
> news:%23byrj8cAGHA.2908@TK2MSFTNGP10.phx.gbl...
> > rehello,
> > une petite question supplémentaire
> > comment peut on y inclure la recherche en majuscule et minuscule à la
fois
> > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
>
> Hello,
>
> L'astuce est toute simple:
> tu fais larecherche avec instr non pas sur
> les textes eux même mais sur leurs conversions en
> majuscules (ou en minuscules d'ailleurs, le tout
> étant de comparer des choses comparables).
>
> UCase$() transforme en majuscules (UPPER case)
> LCase$() transforme en minuscules (LOWER case)
>
> Donc voici, il suffit de changer la ligne:
> 'If InStr(Me.Dir1.List(i), Text1) Then
>
> Par:
>
> Dim sText As String
> Dim sCurItem As String
>
> sText = UCase(Text1.Text)
> sCurItem = UCase$(Me.Dir1.List(i))
>
> If InStr(sCurItelm, sText) <> 0 Then
>
>
> Au passage, 2 choses à noter:
> - Il faut éviter d'utiliser directement
> Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
>
> - Instr retourne un Entier, pas un booléen, donc il est plus correct
> d'écrire
> if Instr(toto, tutu) <> 0 Then
>
> Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> heureux hasard. Il vaut donc mieux faire un test correct, en
> comparant le résultat à un entier
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>
Hello,
Encore plus simple : Ajoute vbTextCompare à Instr
If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
...
"Jean-Marc" a écrit dans le message de
43a27586$0$652$
> "Pascal" a écrit dans le message de
> news:%
> > rehello,
> > une petite question supplémentaire
> > comment peut on y inclure la recherche en majuscule et minuscule à la
fois
> > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
>
> Hello,
>
> L'astuce est toute simple:
> tu fais larecherche avec instr non pas sur
> les textes eux même mais sur leurs conversions en
> majuscules (ou en minuscules d'ailleurs, le tout
> étant de comparer des choses comparables).
>
> UCase$() transforme en majuscules (UPPER case)
> LCase$() transforme en minuscules (LOWER case)
>
> Donc voici, il suffit de changer la ligne:
> 'If InStr(Me.Dir1.List(i), Text1) Then
>
> Par:
>
> Dim sText As String
> Dim sCurItem As String
>
> sText = UCase(Text1.Text)
> sCurItem = UCase$(Me.Dir1.List(i))
>
> If InStr(sCurItelm, sText) <> 0 Then
>
>
> Au passage, 2 choses à noter:
> - Il faut éviter d'utiliser directement
> Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
>
> - Instr retourne un Entier, pas un booléen, donc il est plus correct
> d'écrire
> if Instr(toto, tutu) <> 0 Then
>
> Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> heureux hasard. Il vaut donc mieux faire un test correct, en
> comparant le résultat à un entier
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
Hello,
Méthode possible effectivement, mais alors le premier argument
optionnel de Instr n'est plus optionnel, et il faut écrire:
If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
Sinon, tu as un "Type Mismatch".
Voir a ce sujet:
http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
Argumebnt Start:
Optional. Numeric expression that sets the starting position
for each search. If omitted, search begins at the first character
position. If start contains Null, an error occurs.
The start argument is required if compare is specified.
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"FL" <FL@(nospam).com> a écrit dans le message de
news:%
> Hello,
>
> Encore plus simple : Ajoute vbTextCompare à Instr
>
> If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> ...
>
>
>
> "Jean-Marc" a écrit dans le message de
news:
> 43a27586$0$652$
> > "Pascal" a écrit dans le message de
> > news:%
> > > rehello,
> > > une petite question supplémentaire
> > > comment peut on y inclure la recherche en majuscule et minuscule à
> fois
> > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> >
> > Hello,
> >
> > L'astuce est toute simple:
> > tu fais larecherche avec instr non pas sur
> > les textes eux même mais sur leurs conversions en
> > majuscules (ou en minuscules d'ailleurs, le tout
> > étant de comparer des choses comparables).
> >
> > UCase$() transforme en majuscules (UPPER case)
> > LCase$() transforme en minuscules (LOWER case)
> >
> > Donc voici, il suffit de changer la ligne:
> > 'If InStr(Me.Dir1.List(i), Text1) Then
> >
> > Par:
> >
> > Dim sText As String
> > Dim sCurItem As String
> >
> > sText = UCase(Text1.Text)
> > sCurItem = UCase$(Me.Dir1.List(i))
> >
> > If InStr(sCurItelm, sText) <> 0 Then
> >
> >
> > Au passage, 2 choses à noter:
> > - Il faut éviter d'utiliser directement
> > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> >
> > - Instr retourne un Entier, pas un booléen, donc il est plus correct
> > d'écrire
> > if Instr(toto, tutu) <> 0 Then
> >
> > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > heureux hasard. Il vaut donc mieux faire un test correct, en
> > comparant le résultat à un entier
> >
> > --
> > Jean-marc
> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > "There are only 10 kind of people
> > those who understand binary and those who don't."
> > mailto: remove '_no_spam_' ;
> >
>
>
Hello,
Méthode possible effectivement, mais alors le premier argument
optionnel de Instr n'est plus optionnel, et il faut écrire:
If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
Sinon, tu as un "Type Mismatch".
Voir a ce sujet:
http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
Argumebnt Start:
Optional. Numeric expression that sets the starting position
for each search. If omitted, search begins at the first character
position. If start contains Null, an error occurs.
The start argument is required if compare is specified.
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
"FL" <FL@(nospam).com> a écrit dans le message de
news:%23wMKYhhAGHA.3928@tk2msftngp13.phx.gbl...
> Hello,
>
> Encore plus simple : Ajoute vbTextCompare à Instr
>
> If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> ...
>
>
>
> "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
news:
> 43a27586$0$652$ba620e4c@news.skynet.be...
> > "Pascal" <inconnu@hotmail.com> a écrit dans le message de
> > news:%23byrj8cAGHA.2908@TK2MSFTNGP10.phx.gbl...
> > > rehello,
> > > une petite question supplémentaire
> > > comment peut on y inclure la recherche en majuscule et minuscule à
> fois
> > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> >
> > Hello,
> >
> > L'astuce est toute simple:
> > tu fais larecherche avec instr non pas sur
> > les textes eux même mais sur leurs conversions en
> > majuscules (ou en minuscules d'ailleurs, le tout
> > étant de comparer des choses comparables).
> >
> > UCase$() transforme en majuscules (UPPER case)
> > LCase$() transforme en minuscules (LOWER case)
> >
> > Donc voici, il suffit de changer la ligne:
> > 'If InStr(Me.Dir1.List(i), Text1) Then
> >
> > Par:
> >
> > Dim sText As String
> > Dim sCurItem As String
> >
> > sText = UCase(Text1.Text)
> > sCurItem = UCase$(Me.Dir1.List(i))
> >
> > If InStr(sCurItelm, sText) <> 0 Then
> >
> >
> > Au passage, 2 choses à noter:
> > - Il faut éviter d'utiliser directement
> > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> >
> > - Instr retourne un Entier, pas un booléen, donc il est plus correct
> > d'écrire
> > if Instr(toto, tutu) <> 0 Then
> >
> > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > heureux hasard. Il vaut donc mieux faire un test correct, en
> > comparant le résultat à un entier
> >
> > --
> > Jean-marc
> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > "There are only 10 kind of people
> > those who understand binary and those who don't."
> > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> >
>
>
Hello,
Méthode possible effectivement, mais alors le premier argument
optionnel de Instr n'est plus optionnel, et il faut écrire:
If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
Sinon, tu as un "Type Mismatch".
Voir a ce sujet:
http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
Argumebnt Start:
Optional. Numeric expression that sets the starting position
for each search. If omitted, search begins at the first character
position. If start contains Null, an error occurs.
The start argument is required if compare is specified.
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"FL" <FL@(nospam).com> a écrit dans le message de
news:%
> Hello,
>
> Encore plus simple : Ajoute vbTextCompare à Instr
>
> If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> ...
>
>
>
> "Jean-Marc" a écrit dans le message de
news:
> 43a27586$0$652$
> > "Pascal" a écrit dans le message de
> > news:%
> > > rehello,
> > > une petite question supplémentaire
> > > comment peut on y inclure la recherche en majuscule et minuscule à
> fois
> > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> >
> > Hello,
> >
> > L'astuce est toute simple:
> > tu fais larecherche avec instr non pas sur
> > les textes eux même mais sur leurs conversions en
> > majuscules (ou en minuscules d'ailleurs, le tout
> > étant de comparer des choses comparables).
> >
> > UCase$() transforme en majuscules (UPPER case)
> > LCase$() transforme en minuscules (LOWER case)
> >
> > Donc voici, il suffit de changer la ligne:
> > 'If InStr(Me.Dir1.List(i), Text1) Then
> >
> > Par:
> >
> > Dim sText As String
> > Dim sCurItem As String
> >
> > sText = UCase(Text1.Text)
> > sCurItem = UCase$(Me.Dir1.List(i))
> >
> > If InStr(sCurItelm, sText) <> 0 Then
> >
> >
> > Au passage, 2 choses à noter:
> > - Il faut éviter d'utiliser directement
> > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> >
> > - Instr retourne un Entier, pas un booléen, donc il est plus correct
> > d'écrire
> > if Instr(toto, tutu) <> 0 Then
> >
> > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > heureux hasard. Il vaut donc mieux faire un test correct, en
> > comparant le résultat à un entier
> >
> > --
> > Jean-marc
> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > "There are only 10 kind of people
> > those who understand binary and those who don't."
> > mailto: remove '_no_spam_' ;
> >
>
>
Très juste !
Merci
"Jean-Marc" a écrit dans le message de
43a27bee$0$10742$
> Hello,
>
> Méthode possible effectivement, mais alors le premier argument
> optionnel de Instr n'est plus optionnel, et il faut écrire:
>
> If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>
> Sinon, tu as un "Type Mismatch".
> Voir a ce sujet:
> http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>
> Argumebnt Start:
>
> Optional. Numeric expression that sets the starting position
> for each search. If omitted, search begins at the first character
> position. If start contains Null, an error occurs.
>
> The start argument is required if compare is specified.
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
>
>
> "FL" <FL@(nospam).com> a écrit dans le message de
> news:%
> > Hello,
> >
> > Encore plus simple : Ajoute vbTextCompare à Instr
> >
> > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> > ...
> >
> >
> >
> > "Jean-Marc" a écrit dans le message de
> news:
> > 43a27586$0$652$
> > > "Pascal" a écrit dans le message de
> > > news:%
> > > > rehello,
> > > > une petite question supplémentaire
> > > > comment peut on y inclure la recherche en majuscule et minuscule à
la
> > fois
> > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> > >
> > > Hello,
> > >
> > > L'astuce est toute simple:
> > > tu fais larecherche avec instr non pas sur
> > > les textes eux même mais sur leurs conversions en
> > > majuscules (ou en minuscules d'ailleurs, le tout
> > > étant de comparer des choses comparables).
> > >
> > > UCase$() transforme en majuscules (UPPER case)
> > > LCase$() transforme en minuscules (LOWER case)
> > >
> > > Donc voici, il suffit de changer la ligne:
> > > 'If InStr(Me.Dir1.List(i), Text1) Then
> > >
> > > Par:
> > >
> > > Dim sText As String
> > > Dim sCurItem As String
> > >
> > > sText = UCase(Text1.Text)
> > > sCurItem = UCase$(Me.Dir1.List(i))
> > >
> > > If InStr(sCurItelm, sText) <> 0 Then
> > >
> > >
> > > Au passage, 2 choses à noter:
> > > - Il faut éviter d'utiliser directement
> > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> > >
> > > - Instr retourne un Entier, pas un booléen, donc il est plus correct
> > > d'écrire
> > > if Instr(toto, tutu) <> 0 Then
> > >
> > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > > heureux hasard. Il vaut donc mieux faire un test correct, en
> > > comparant le résultat à un entier
> > >
> > > --
> > > Jean-marc
> > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > > mailto: remove '_no_spam_' ;
> > >
> >
> >
>
Très juste !
Merci
"Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
43a27bee$0$10742$ba620e4c@news.skynet.be...
> Hello,
>
> Méthode possible effectivement, mais alors le premier argument
> optionnel de Instr n'est plus optionnel, et il faut écrire:
>
> If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>
> Sinon, tu as un "Type Mismatch".
> Voir a ce sujet:
> http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>
> Argumebnt Start:
>
> Optional. Numeric expression that sets the starting position
> for each search. If omitted, search begins at the first character
> position. If start contains Null, an error occurs.
>
> The start argument is required if compare is specified.
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>
>
>
> "FL" <FL@(nospam).com> a écrit dans le message de
> news:%23wMKYhhAGHA.3928@tk2msftngp13.phx.gbl...
> > Hello,
> >
> > Encore plus simple : Ajoute vbTextCompare à Instr
> >
> > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> > ...
> >
> >
> >
> > "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
> news:
> > 43a27586$0$652$ba620e4c@news.skynet.be...
> > > "Pascal" <inconnu@hotmail.com> a écrit dans le message de
> > > news:%23byrj8cAGHA.2908@TK2MSFTNGP10.phx.gbl...
> > > > rehello,
> > > > une petite question supplémentaire
> > > > comment peut on y inclure la recherche en majuscule et minuscule à
la
> > fois
> > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> > >
> > > Hello,
> > >
> > > L'astuce est toute simple:
> > > tu fais larecherche avec instr non pas sur
> > > les textes eux même mais sur leurs conversions en
> > > majuscules (ou en minuscules d'ailleurs, le tout
> > > étant de comparer des choses comparables).
> > >
> > > UCase$() transforme en majuscules (UPPER case)
> > > LCase$() transforme en minuscules (LOWER case)
> > >
> > > Donc voici, il suffit de changer la ligne:
> > > 'If InStr(Me.Dir1.List(i), Text1) Then
> > >
> > > Par:
> > >
> > > Dim sText As String
> > > Dim sCurItem As String
> > >
> > > sText = UCase(Text1.Text)
> > > sCurItem = UCase$(Me.Dir1.List(i))
> > >
> > > If InStr(sCurItelm, sText) <> 0 Then
> > >
> > >
> > > Au passage, 2 choses à noter:
> > > - Il faut éviter d'utiliser directement
> > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> > >
> > > - Instr retourne un Entier, pas un booléen, donc il est plus correct
> > > d'écrire
> > > if Instr(toto, tutu) <> 0 Then
> > >
> > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > > heureux hasard. Il vaut donc mieux faire un test correct, en
> > > comparant le résultat à un entier
> > >
> > > --
> > > Jean-marc
> > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> > >
> >
> >
>
Très juste !
Merci
"Jean-Marc" a écrit dans le message de
43a27bee$0$10742$
> Hello,
>
> Méthode possible effectivement, mais alors le premier argument
> optionnel de Instr n'est plus optionnel, et il faut écrire:
>
> If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>
> Sinon, tu as un "Type Mismatch".
> Voir a ce sujet:
> http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>
> Argumebnt Start:
>
> Optional. Numeric expression that sets the starting position
> for each search. If omitted, search begins at the first character
> position. If start contains Null, an error occurs.
>
> The start argument is required if compare is specified.
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
>
>
> "FL" <FL@(nospam).com> a écrit dans le message de
> news:%
> > Hello,
> >
> > Encore plus simple : Ajoute vbTextCompare à Instr
> >
> > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> > ...
> >
> >
> >
> > "Jean-Marc" a écrit dans le message de
> news:
> > 43a27586$0$652$
> > > "Pascal" a écrit dans le message de
> > > news:%
> > > > rehello,
> > > > une petite question supplémentaire
> > > > comment peut on y inclure la recherche en majuscule et minuscule à
la
> > fois
> > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> > >
> > > Hello,
> > >
> > > L'astuce est toute simple:
> > > tu fais larecherche avec instr non pas sur
> > > les textes eux même mais sur leurs conversions en
> > > majuscules (ou en minuscules d'ailleurs, le tout
> > > étant de comparer des choses comparables).
> > >
> > > UCase$() transforme en majuscules (UPPER case)
> > > LCase$() transforme en minuscules (LOWER case)
> > >
> > > Donc voici, il suffit de changer la ligne:
> > > 'If InStr(Me.Dir1.List(i), Text1) Then
> > >
> > > Par:
> > >
> > > Dim sText As String
> > > Dim sCurItem As String
> > >
> > > sText = UCase(Text1.Text)
> > > sCurItem = UCase$(Me.Dir1.List(i))
> > >
> > > If InStr(sCurItelm, sText) <> 0 Then
> > >
> > >
> > > Au passage, 2 choses à noter:
> > > - Il faut éviter d'utiliser directement
> > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> > >
> > > - Instr retourne un Entier, pas un booléen, donc il est plus correct
> > > d'écrire
> > > if Instr(toto, tutu) <> 0 Then
> > >
> > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > > heureux hasard. Il vaut donc mieux faire un test correct, en
> > > comparant le résultat à un entier
> > >
> > > --
> > > Jean-marc
> > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > > mailto: remove '_no_spam_' ;
> > >
> >
> >
>
merci à vous deux pour le cours
Pascal
"FL" <FL@(nospam).com> a écrit dans le message de news:Très juste !
Merci
"Jean-Marc" a écrit dans le message de
news:43a27bee$0$10742$
> Hello,
>
> Méthode possible effectivement, mais alors le premier argument
> optionnel de Instr n'est plus optionnel, et il faut écrire:
>
> If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>
> Sinon, tu as un "Type Mismatch".
> Voir a ce sujet:
> http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>
> Argumebnt Start:
>
> Optional. Numeric expression that sets the starting position
> for each search. If omitted, search begins at the first character
> position. If start contains Null, an error occurs.
>
> The start argument is required if compare is specified.
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
>
>
> "FL" <FL@(nospam).com> a écrit dans le message de
> news:%
> > Hello,
> >
> > Encore plus simple : Ajoute vbTextCompare à Instr
> >
> > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> > ...
> >
> >
> >
> > "Jean-Marc" a écrit dans le message
> > de
> news:
> > 43a27586$0$652$
> > > "Pascal" a écrit dans le message de
> > > news:%
> > > > rehello,
> > > > une petite question supplémentaire
> > > > comment peut on y inclure la recherche en majuscule et minuscule
> > > > à
la
> > fois
> > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> > >
> > > Hello,
> > >
> > > L'astuce est toute simple:
> > > tu fais larecherche avec instr non pas sur
> > > les textes eux même mais sur leurs conversions en
> > > majuscules (ou en minuscules d'ailleurs, le tout
> > > étant de comparer des choses comparables).
> > >
> > > UCase$() transforme en majuscules (UPPER case)
> > > LCase$() transforme en minuscules (LOWER case)
> > >
> > > Donc voici, il suffit de changer la ligne:
> > > 'If InStr(Me.Dir1.List(i), Text1) Then
> > >
> > > Par:
> > >
> > > Dim sText As String
> > > Dim sCurItem As String
> > >
> > > sText = UCase(Text1.Text)
> > > sCurItem = UCase$(Me.Dir1.List(i))
> > >
> > > If InStr(sCurItelm, sText) <> 0 Then
> > >
> > >
> > > Au passage, 2 choses à noter:
> > > - Il faut éviter d'utiliser directement
> > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> > >
> > > - Instr retourne un Entier, pas un booléen, donc il est plus
> > > correct
> > > d'écrire
> > > if Instr(toto, tutu) <> 0 Then
> > >
> > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > > heureux hasard. Il vaut donc mieux faire un test correct, en
> > > comparant le résultat à un entier
> > >
> > > --
> > > Jean-marc
> > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > > mailto: remove '_no_spam_' ;
> > >
> >
> >
>
merci à vous deux pour le cours
Pascal
"FL" <FL@(nospam).com> a écrit dans le message de news:
OxCzIXiAGHA.272@TK2MSFTNGP09.phx.gbl...
Très juste !
Merci
"Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
news:
43a27bee$0$10742$ba620e4c@news.skynet.be...
> Hello,
>
> Méthode possible effectivement, mais alors le premier argument
> optionnel de Instr n'est plus optionnel, et il faut écrire:
>
> If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>
> Sinon, tu as un "Type Mismatch".
> Voir a ce sujet:
> http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>
> Argumebnt Start:
>
> Optional. Numeric expression that sets the starting position
> for each search. If omitted, search begins at the first character
> position. If start contains Null, an error occurs.
>
> The start argument is required if compare is specified.
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>
>
>
> "FL" <FL@(nospam).com> a écrit dans le message de
> news:%23wMKYhhAGHA.3928@tk2msftngp13.phx.gbl...
> > Hello,
> >
> > Encore plus simple : Ajoute vbTextCompare à Instr
> >
> > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> > ...
> >
> >
> >
> > "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message
> > de
> news:
> > 43a27586$0$652$ba620e4c@news.skynet.be...
> > > "Pascal" <inconnu@hotmail.com> a écrit dans le message de
> > > news:%23byrj8cAGHA.2908@TK2MSFTNGP10.phx.gbl...
> > > > rehello,
> > > > une petite question supplémentaire
> > > > comment peut on y inclure la recherche en majuscule et minuscule
> > > > à
la
> > fois
> > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> > >
> > > Hello,
> > >
> > > L'astuce est toute simple:
> > > tu fais larecherche avec instr non pas sur
> > > les textes eux même mais sur leurs conversions en
> > > majuscules (ou en minuscules d'ailleurs, le tout
> > > étant de comparer des choses comparables).
> > >
> > > UCase$() transforme en majuscules (UPPER case)
> > > LCase$() transforme en minuscules (LOWER case)
> > >
> > > Donc voici, il suffit de changer la ligne:
> > > 'If InStr(Me.Dir1.List(i), Text1) Then
> > >
> > > Par:
> > >
> > > Dim sText As String
> > > Dim sCurItem As String
> > >
> > > sText = UCase(Text1.Text)
> > > sCurItem = UCase$(Me.Dir1.List(i))
> > >
> > > If InStr(sCurItelm, sText) <> 0 Then
> > >
> > >
> > > Au passage, 2 choses à noter:
> > > - Il faut éviter d'utiliser directement
> > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> > >
> > > - Instr retourne un Entier, pas un booléen, donc il est plus
> > > correct
> > > d'écrire
> > > if Instr(toto, tutu) <> 0 Then
> > >
> > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > > heureux hasard. Il vaut donc mieux faire un test correct, en
> > > comparant le résultat à un entier
> > >
> > > --
> > > Jean-marc
> > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> > >
> >
> >
>
merci à vous deux pour le cours
Pascal
"FL" <FL@(nospam).com> a écrit dans le message de news:Très juste !
Merci
"Jean-Marc" a écrit dans le message de
news:43a27bee$0$10742$
> Hello,
>
> Méthode possible effectivement, mais alors le premier argument
> optionnel de Instr n'est plus optionnel, et il faut écrire:
>
> If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>
> Sinon, tu as un "Type Mismatch".
> Voir a ce sujet:
> http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>
> Argumebnt Start:
>
> Optional. Numeric expression that sets the starting position
> for each search. If omitted, search begins at the first character
> position. If start contains Null, an error occurs.
>
> The start argument is required if compare is specified.
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
>
>
> "FL" <FL@(nospam).com> a écrit dans le message de
> news:%
> > Hello,
> >
> > Encore plus simple : Ajoute vbTextCompare à Instr
> >
> > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
> > ...
> >
> >
> >
> > "Jean-Marc" a écrit dans le message
> > de
> news:
> > 43a27586$0$652$
> > > "Pascal" a écrit dans le message de
> > > news:%
> > > > rehello,
> > > > une petite question supplémentaire
> > > > comment peut on y inclure la recherche en majuscule et minuscule
> > > > à
la
> > fois
> > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
> > >
> > > Hello,
> > >
> > > L'astuce est toute simple:
> > > tu fais larecherche avec instr non pas sur
> > > les textes eux même mais sur leurs conversions en
> > > majuscules (ou en minuscules d'ailleurs, le tout
> > > étant de comparer des choses comparables).
> > >
> > > UCase$() transforme en majuscules (UPPER case)
> > > LCase$() transforme en minuscules (LOWER case)
> > >
> > > Donc voici, il suffit de changer la ligne:
> > > 'If InStr(Me.Dir1.List(i), Text1) Then
> > >
> > > Par:
> > >
> > > Dim sText As String
> > > Dim sCurItem As String
> > >
> > > sText = UCase(Text1.Text)
> > > sCurItem = UCase$(Me.Dir1.List(i))
> > >
> > > If InStr(sCurItelm, sText) <> 0 Then
> > >
> > >
> > > Au passage, 2 choses à noter:
> > > - Il faut éviter d'utiliser directement
> > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus propre)
> > >
> > > - Instr retourne un Entier, pas un booléen, donc il est plus
> > > correct
> > > d'écrire
> > > if Instr(toto, tutu) <> 0 Then
> > >
> > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
> > > et que la valeur FALSE soit représentée par zéro en VB n'est qu'un
> > > heureux hasard. Il vaut donc mieux faire un test correct, en
> > > comparant le résultat à un entier
> > >
> > > --
> > > Jean-marc
> > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > > mailto: remove '_no_spam_' ;
> > >
> >
> >
>
Bonsoir Pascal,
Tu peux aussi mettre >Option Compare Text< en tête de module (par exemple
sous >Option Explicit<), ce qui évite de devoir le préciser pour chaque
instruction InStr. Si une des instruction InStr doit avoir un autre type
comparaison (binaire), il suffit de le préciser seulement pour
concernée (vbBinaryCompare).
Hervé.
"Pascal" a écrit dans le message de news:
%
> merci à vous deux pour le cours
> Pascal
>
> "FL" <FL@(nospam).com> a écrit dans le message de news:
>
>> Très juste !
>>
>> Merci
>>
>>
>>
>> "Jean-Marc" a écrit dans le message de
> news:
>> 43a27bee$0$10742$
>> > Hello,
>> >
>> > Méthode possible effectivement, mais alors le premier argument
>> > optionnel de Instr n'est plus optionnel, et il faut écrire:
>> >
>> > If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>> >
>> > Sinon, tu as un "Type Mismatch".
>> > Voir a ce sujet:
>> > http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>> >
>> > Argumebnt Start:
>> >
>> > Optional. Numeric expression that sets the starting position
>> > for each search. If omitted, search begins at the first character
>> > position. If start contains Null, an error occurs.
>> >
>> > The start argument is required if compare is specified.
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ;
>> >
>> >
>> >
>> > "FL" <FL@(nospam).com> a écrit dans le message de
>> > news:%
>> > > Hello,
>> > >
>> > > Encore plus simple : Ajoute vbTextCompare à Instr
>> > >
>> > > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
>> > > ...
>> > >
>> > >
>> > >
>> > > "Jean-Marc" a écrit dans le message
>> > > de
>> > news:
>> > > 43a27586$0$652$
>> > > > "Pascal" a écrit dans le message de
>> > > > news:%
>> > > > > rehello,
>> > > > > une petite question supplémentaire
>> > > > > comment peut on y inclure la recherche en majuscule et
>> > > > > à
>> la
>> > > fois
>> > > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
>> > > >
>> > > > Hello,
>> > > >
>> > > > L'astuce est toute simple:
>> > > > tu fais larecherche avec instr non pas sur
>> > > > les textes eux même mais sur leurs conversions en
>> > > > majuscules (ou en minuscules d'ailleurs, le tout
>> > > > étant de comparer des choses comparables).
>> > > >
>> > > > UCase$() transforme en majuscules (UPPER case)
>> > > > LCase$() transforme en minuscules (LOWER case)
>> > > >
>> > > > Donc voici, il suffit de changer la ligne:
>> > > > 'If InStr(Me.Dir1.List(i), Text1) Then
>> > > >
>> > > > Par:
>> > > >
>> > > > Dim sText As String
>> > > > Dim sCurItem As String
>> > > >
>> > > > sText = UCase(Text1.Text)
>> > > > sCurItem = UCase$(Me.Dir1.List(i))
>> > > >
>> > > > If InStr(sCurItelm, sText) <> 0 Then
>> > > >
>> > > >
>> > > > Au passage, 2 choses à noter:
>> > > > - Il faut éviter d'utiliser directement
>> > > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus
>> > > >
>> > > > - Instr retourne un Entier, pas un booléen, donc il est plus
>> > > > correct
>> > > > d'écrire
>> > > > if Instr(toto, tutu) <> 0 Then
>> > > >
>> > > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
>> > > > et que la valeur FALSE soit représentée par zéro en VB n'est
>> > > > heureux hasard. Il vaut donc mieux faire un test correct, en
>> > > > comparant le résultat à un entier
>> > > >
>> > > > --
>> > > > Jean-marc
>> > > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > > > "There are only 10 kind of people
>> > > > those who understand binary and those who don't."
>> > > > mailto: remove '_no_spam_' ;
>> > > >
>> > >
>> > >
>> >
>>
>>
>
Bonsoir Pascal,
Tu peux aussi mettre >Option Compare Text< en tête de module (par exemple
sous >Option Explicit<), ce qui évite de devoir le préciser pour chaque
instruction InStr. Si une des instruction InStr doit avoir un autre type
comparaison (binaire), il suffit de le préciser seulement pour
concernée (vbBinaryCompare).
Hervé.
"Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
%23NOPwWkAGHA.1312@TK2MSFTNGP09.phx.gbl...
> merci à vous deux pour le cours
> Pascal
>
> "FL" <FL@(nospam).com> a écrit dans le message de news:
> OxCzIXiAGHA.272@TK2MSFTNGP09.phx.gbl...
>> Très juste !
>>
>> Merci
>>
>>
>>
>> "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
> news:
>> 43a27bee$0$10742$ba620e4c@news.skynet.be...
>> > Hello,
>> >
>> > Méthode possible effectivement, mais alors le premier argument
>> > optionnel de Instr n'est plus optionnel, et il faut écrire:
>> >
>> > If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>> >
>> > Sinon, tu as un "Type Mismatch".
>> > Voir a ce sujet:
>> > http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>> >
>> > Argumebnt Start:
>> >
>> > Optional. Numeric expression that sets the starting position
>> > for each search. If omitted, search begins at the first character
>> > position. If start contains Null, an error occurs.
>> >
>> > The start argument is required if compare is specified.
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>> >
>> >
>> >
>> > "FL" <FL@(nospam).com> a écrit dans le message de
>> > news:%23wMKYhhAGHA.3928@tk2msftngp13.phx.gbl...
>> > > Hello,
>> > >
>> > > Encore plus simple : Ajoute vbTextCompare à Instr
>> > >
>> > > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
>> > > ...
>> > >
>> > >
>> > >
>> > > "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message
>> > > de
>> > news:
>> > > 43a27586$0$652$ba620e4c@news.skynet.be...
>> > > > "Pascal" <inconnu@hotmail.com> a écrit dans le message de
>> > > > news:%23byrj8cAGHA.2908@TK2MSFTNGP10.phx.gbl...
>> > > > > rehello,
>> > > > > une petite question supplémentaire
>> > > > > comment peut on y inclure la recherche en majuscule et
>> > > > > à
>> la
>> > > fois
>> > > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
>> > > >
>> > > > Hello,
>> > > >
>> > > > L'astuce est toute simple:
>> > > > tu fais larecherche avec instr non pas sur
>> > > > les textes eux même mais sur leurs conversions en
>> > > > majuscules (ou en minuscules d'ailleurs, le tout
>> > > > étant de comparer des choses comparables).
>> > > >
>> > > > UCase$() transforme en majuscules (UPPER case)
>> > > > LCase$() transforme en minuscules (LOWER case)
>> > > >
>> > > > Donc voici, il suffit de changer la ligne:
>> > > > 'If InStr(Me.Dir1.List(i), Text1) Then
>> > > >
>> > > > Par:
>> > > >
>> > > > Dim sText As String
>> > > > Dim sCurItem As String
>> > > >
>> > > > sText = UCase(Text1.Text)
>> > > > sCurItem = UCase$(Me.Dir1.List(i))
>> > > >
>> > > > If InStr(sCurItelm, sText) <> 0 Then
>> > > >
>> > > >
>> > > > Au passage, 2 choses à noter:
>> > > > - Il faut éviter d'utiliser directement
>> > > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus
>> > > >
>> > > > - Instr retourne un Entier, pas un booléen, donc il est plus
>> > > > correct
>> > > > d'écrire
>> > > > if Instr(toto, tutu) <> 0 Then
>> > > >
>> > > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
>> > > > et que la valeur FALSE soit représentée par zéro en VB n'est
>> > > > heureux hasard. Il vaut donc mieux faire un test correct, en
>> > > > comparant le résultat à un entier
>> > > >
>> > > > --
>> > > > Jean-marc
>> > > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > > > "There are only 10 kind of people
>> > > > those who understand binary and those who don't."
>> > > > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>> > > >
>> > >
>> > >
>> >
>>
>>
>
Bonsoir Pascal,
Tu peux aussi mettre >Option Compare Text< en tête de module (par exemple
sous >Option Explicit<), ce qui évite de devoir le préciser pour chaque
instruction InStr. Si une des instruction InStr doit avoir un autre type
comparaison (binaire), il suffit de le préciser seulement pour
concernée (vbBinaryCompare).
Hervé.
"Pascal" a écrit dans le message de news:
%
> merci à vous deux pour le cours
> Pascal
>
> "FL" <FL@(nospam).com> a écrit dans le message de news:
>
>> Très juste !
>>
>> Merci
>>
>>
>>
>> "Jean-Marc" a écrit dans le message de
> news:
>> 43a27bee$0$10742$
>> > Hello,
>> >
>> > Méthode possible effectivement, mais alors le premier argument
>> > optionnel de Instr n'est plus optionnel, et il faut écrire:
>> >
>> > If InStr(1, Me.Dir1.List(i), Text1.Text, vbTextCompare) Then
>> >
>> > Sinon, tu as un "Type Mismatch".
>> > Voir a ce sujet:
>> > http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctInStr.asp
>> >
>> > Argumebnt Start:
>> >
>> > Optional. Numeric expression that sets the starting position
>> > for each search. If omitted, search begins at the first character
>> > position. If start contains Null, an error occurs.
>> >
>> > The start argument is required if compare is specified.
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ;
>> >
>> >
>> >
>> > "FL" <FL@(nospam).com> a écrit dans le message de
>> > news:%
>> > > Hello,
>> > >
>> > > Encore plus simple : Ajoute vbTextCompare à Instr
>> > >
>> > > If InStr(Me.Dir1.List(i), Text1, vbTextCompare) Then
>> > > ...
>> > >
>> > >
>> > >
>> > > "Jean-Marc" a écrit dans le message
>> > > de
>> > news:
>> > > 43a27586$0$652$
>> > > > "Pascal" a écrit dans le message de
>> > > > news:%
>> > > > > rehello,
>> > > > > une petite question supplémentaire
>> > > > > comment peut on y inclure la recherche en majuscule et
>> > > > > à
>> la
>> > > fois
>> > > > > ici si text = "MONTEXTE" il ne retrouvera pas "montexte"
>> > > >
>> > > > Hello,
>> > > >
>> > > > L'astuce est toute simple:
>> > > > tu fais larecherche avec instr non pas sur
>> > > > les textes eux même mais sur leurs conversions en
>> > > > majuscules (ou en minuscules d'ailleurs, le tout
>> > > > étant de comparer des choses comparables).
>> > > >
>> > > > UCase$() transforme en majuscules (UPPER case)
>> > > > LCase$() transforme en minuscules (LOWER case)
>> > > >
>> > > > Donc voici, il suffit de changer la ligne:
>> > > > 'If InStr(Me.Dir1.List(i), Text1) Then
>> > > >
>> > > > Par:
>> > > >
>> > > > Dim sText As String
>> > > > Dim sCurItem As String
>> > > >
>> > > > sText = UCase(Text1.Text)
>> > > > sCurItem = UCase$(Me.Dir1.List(i))
>> > > >
>> > > > If InStr(sCurItelm, sText) <> 0 Then
>> > > >
>> > > >
>> > > > Au passage, 2 choses à noter:
>> > > > - Il faut éviter d'utiliser directement
>> > > > Text1, il vaut mieux écrire Text1.Text (plus rapide et plus
>> > > >
>> > > > - Instr retourne un Entier, pas un booléen, donc il est plus
>> > > > correct
>> > > > d'écrire
>> > > > if Instr(toto, tutu) <> 0 Then
>> > > >
>> > > > Le fait que Instr() retourne 0 quand la chaine n'est pas trouvée
>> > > > et que la valeur FALSE soit représentée par zéro en VB n'est
>> > > > heureux hasard. Il vaut donc mieux faire un test correct, en
>> > > > comparant le résultat à un entier
>> > > >
>> > > > --
>> > > > Jean-marc
>> > > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > > > "There are only 10 kind of people
>> > > > those who understand binary and those who don't."
>> > > > mailto: remove '_no_spam_' ;
>> > > >
>> > >
>> > >
>> >
>>
>>
>
