est -il possible avec la fonction FIND, de rechercher sur plusieurs critère?
En faite j'ai un tableau comme suit
aa 11
aa 22
aa 33
bb 11
bb 22
bb 33
bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère
aa et le critère 22, la cellule qui correspond à ces 2 critère soit
sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
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
JB
Bonjour,
Nom de champ: code1 et code2:
Sub FindMultiCritères() cd1 = "AA6495" cd2 = "7605" p = Evaluate("Match(""" & cd1 & "@" & cd2 & """, code1 & ""@"" & code2, 0)") If Not IsError(p) Then Range("code1")(1).Offset(p - 1).Select Else MsgBox "inconnu" End If End Sub
Sub FindMultiCritères() cd1 = "AA6495" cd2 = "7605" p = Evaluate("Match(""" & cd1 & "@" & cd2 & """, code1 & ""@"" & code2, 0)") If Not IsError(p) Then Range("code1")(1).Offset(p - 1).Select Else MsgBox "inconnu" End If End Sub
http://cjoint.com/?cqoUNB1QZb
Cordialement jb
On 16 fév, 13:25, francois63000 wrote:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs crit ère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le crit ère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment fa ire
Merci d'avance
Bonjour,
Nom de champ: code1 et code2:
Sub FindMultiCritères()
cd1 = "AA6495"
cd2 = "7605"
p = Evaluate("Match(""" & cd1 & "@" & cd2 & """, code1 & ""@"" &
code2, 0)")
If Not IsError(p) Then
Range("code1")(1).Offset(p - 1).Select
Else
MsgBox "inconnu"
End If
End Sub
Sub FindMultiCritères()
cd1 = "AA6495"
cd2 = "7605"
p = Evaluate("Match(""" & cd1 & "@" & cd2 & """, code1 & ""@"" &
code2, 0)")
If Not IsError(p) Then
Range("code1")(1).Offset(p - 1).Select
Else
MsgBox "inconnu"
End If
End Sub
http://cjoint.com/?cqoUNB1QZb
Cordialement jb
On 16 fév, 13:25, francois63000
<francois63...@discussions.microsoft.com> wrote:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs crit ère?
En faite j'ai un tableau comme suit
aa 11
aa 22
aa 33
bb 11
bb 22
bb 33
bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le crit ère
aa et le critère 22, la cellule qui correspond à ces 2 critère soit
sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment fa ire
Sub FindMultiCritères() cd1 = "AA6495" cd2 = "7605" p = Evaluate("Match(""" & cd1 & "@" & cd2 & """, code1 & ""@"" & code2, 0)") If Not IsError(p) Then Range("code1")(1).Offset(p - 1).Select Else MsgBox "inconnu" End If End Sub
Sub FindMultiCritères() cd1 = "AA6495" cd2 = "7605" p = Evaluate("Match(""" & cd1 & "@" & cd2 & """, code1 & ""@"" & code2, 0)") If Not IsError(p) Then Range("code1")(1).Offset(p - 1).Select Else MsgBox "inconnu" End If End Sub
http://cjoint.com/?cqoUNB1QZb
Cordialement jb
On 16 fév, 13:25, francois63000 wrote:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs crit ère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le crit ère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment fa ire
Merci d'avance
Jacky
Bonjour, Avec un filtre '--------- Sub jj() Application.ScreenUpdating = False [a1].AutoFilter Field:=1, Criteria1:="aa" [a1].AutoFilter Field:=2, Criteria1:="22" Range("a2", [b65536].End(3)).SpecialCells(xlCellTypeVisible).Select [a1].AutoFilter End Sub '--------- -- Salutations JJ
"francois63000" a écrit dans le message de news:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs critère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
Merci d'avance
Bonjour,
Avec un filtre
'---------
Sub jj()
Application.ScreenUpdating = False
[a1].AutoFilter Field:=1, Criteria1:="aa"
[a1].AutoFilter Field:=2, Criteria1:="22"
Range("a2", [b65536].End(3)).SpecialCells(xlCellTypeVisible).Select
[a1].AutoFilter
End Sub
'---------
--
Salutations
JJ
"francois63000" <francois63000@discussions.microsoft.com> a écrit dans le
message de news: 4781E3B6-0CAD-49E4-95D0-18D222729B40@microsoft.com...
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs
critère?
En faite j'ai un tableau comme suit
aa 11
aa 22
aa 33
bb 11
bb 22
bb 33
bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère
aa et le critère 22, la cellule qui correspond à ces 2 critère soit
sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
Bonjour, Avec un filtre '--------- Sub jj() Application.ScreenUpdating = False [a1].AutoFilter Field:=1, Criteria1:="aa" [a1].AutoFilter Field:=2, Criteria1:="22" Range("a2", [b65536].End(3)).SpecialCells(xlCellTypeVisible).Select [a1].AutoFilter End Sub '--------- -- Salutations JJ
"francois63000" a écrit dans le message de news:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs critère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
Merci d'avance
JB
0,07 s pour 50.000 éléments
Sub FindMultiCritères() cd1 = "AA42311" cd2 = "43421" Set champ = [code1] Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then premier = c.Address Range("code2")(c.Row - [code1].Row + 1).Select Do Union(Selection, Range("code2")(c.Row - [code1].Row + 1)).Select Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If '-- recherche cd2 Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then c.Select Else MsgBox "non trouvé" End Sub
est -il possible avec la fonction FIND, de rechercher sur plusieurs crit ère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le crit ère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment fa ire
Merci d'avance
0,07 s pour 50.000 éléments
Sub FindMultiCritères()
cd1 = "AA42311"
cd2 = "43421"
Set champ = [code1]
Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Range("code2")(c.Row - [code1].Row + 1).Select
Do
Union(Selection, Range("code2")(c.Row - [code1].Row + 1)).Select
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
'-- recherche cd2
Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then c.Select Else MsgBox "non trouvé"
End Sub
On 16 fév, 13:25, francois63000
<francois63...@discussions.microsoft.com> wrote:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs crit ère?
En faite j'ai un tableau comme suit
aa 11
aa 22
aa 33
bb 11
bb 22
bb 33
bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le crit ère
aa et le critère 22, la cellule qui correspond à ces 2 critère soit
sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment fa ire
Sub FindMultiCritères() cd1 = "AA42311" cd2 = "43421" Set champ = [code1] Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then premier = c.Address Range("code2")(c.Row - [code1].Row + 1).Select Do Union(Selection, Range("code2")(c.Row - [code1].Row + 1)).Select Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If '-- recherche cd2 Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then c.Select Else MsgBox "non trouvé" End Sub
est -il possible avec la fonction FIND, de rechercher sur plusieurs crit ère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le crit ère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment fa ire
Merci d'avance
Jacky
Re. 0.078125 Sec. avec le filtre, également 50.000 éléments Mais, cela dépendra aussi du PC, n'est-il pas ;-))
-- Salutations JJ
"JB" a écrit dans le message de news:
0,07 s pour 50.000 éléments
Sub FindMultiCritères() cd1 = "AA42311" cd2 = "43421" Set champ = [code1] Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then premier = c.Address Range("code2")(c.Row - [code1].Row + 1).Select Do Union(Selection, Range("code2")(c.Row - [code1].Row + 1)).Select Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If '-- recherche cd2 Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then c.Select Else MsgBox "non trouvé" End Sub
est -il possible avec la fonction FIND, de rechercher sur plusieurs critère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
Merci d'avance
Re.
0.078125 Sec. avec le filtre, également 50.000 éléments
Mais, cela dépendra aussi du PC, n'est-il pas ;-))
--
Salutations
JJ
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1171698249.876905.113960@v33g2000cwv.googlegroups.com...
0,07 s pour 50.000 éléments
Sub FindMultiCritères()
cd1 = "AA42311"
cd2 = "43421"
Set champ = [code1]
Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Range("code2")(c.Row - [code1].Row + 1).Select
Do
Union(Selection, Range("code2")(c.Row - [code1].Row + 1)).Select
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
'-- recherche cd2
Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then c.Select Else MsgBox "non trouvé"
End Sub
On 16 fév, 13:25, francois63000
<francois63...@discussions.microsoft.com> wrote:
Bonjour à tous.
est -il possible avec la fonction FIND, de rechercher sur plusieurs
critère?
En faite j'ai un tableau comme suit
aa 11
aa 22
aa 33
bb 11
bb 22
bb 33
bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère
aa et le critère 22, la cellule qui correspond à ces 2 critère soit
sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
Re. 0.078125 Sec. avec le filtre, également 50.000 éléments Mais, cela dépendra aussi du PC, n'est-il pas ;-))
-- Salutations JJ
"JB" a écrit dans le message de news:
0,07 s pour 50.000 éléments
Sub FindMultiCritères() cd1 = "AA42311" cd2 = "43421" Set champ = [code1] Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then premier = c.Address Range("code2")(c.Row - [code1].Row + 1).Select Do Union(Selection, Range("code2")(c.Row - [code1].Row + 1)).Select Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If '-- recherche cd2 Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then c.Select Else MsgBox "non trouvé" End Sub
est -il possible avec la fonction FIND, de rechercher sur plusieurs critère?
En faite j'ai un tableau comme suit
aa 11 aa 22 aa 33 bb 11 bb 22 bb 33 bb 44
Je voudrai ( si cela est possible bien sur) que quand je rentre le critère aa et le critère 22, la cellule qui correspond à ces 2 critère soit sélectionnée
Merci de me dire si c'est possible et éventuellement me dire comment faire
