VBMatchdim2

Bonjour,

Est-ce que quelque chose du genre te conviendrait ?

'----------------------------------------------
Sub Boucle_Match_Index()

Dim Trouve As Boolean, i As Long
Dim Arr As Variant, SearchString As String
Dim Resp As Variant

SearchString = Application.InputBox _
("expression recherchée", , , , , , , 2)
If SearchString = "Faux" Then Exit Sub

With Worksheets("Feuil1")
Arr = Range("A1:B" & Range("B65536").End(xlUp).Row)
End With

Trouve = False

For i = LBound(Arr, 1) To UBound(Arr, 1)
Resp = Application.Match(SearchString, _
Application.Index(Arr, i), 0)
If IsError(Resp) = False Then
Trouve = True
Exit For
End If
Next i

If Trouve Then
MsgBox "Trouvé. Arr(" & i & "," & Resp & ")."
Else
MsgBox "Pas trouvé"
End If

End Sub
'----------------------------------------------


Salutations!


<Griechmoloud@hotmail.com> a écrit dans le message de news:1443501c41bc0$0a9a1f40$a001280a@phx.gbl...
Bonjour

Veuillez m'indiquer s'il vous plaît

cOMMENT ON PEUT FAIRE UNE RECHERCHE SUR UNE RANGE
DE CELLULE à 2 dimensions en utilisant
les instructions VB Match et Index:

colm = "B"
With ActiveSheet.Next
tbl = .Range("A1:" & colm & "" & .Range("" & colm
& "65536").End(xlUp).Row) 'À définir
End With


cells(1,1) = application.match(array(cells
(i,1),cells(1,j)),tbl,0) 'pour passer deux valeurs à
rechercher dans tbl ????à corriger

cells(1,1) = index(tbl,cells(1,1))


je vous remercie

Bonjour MichelDenis

Vendeur mois vente
Albert janvier 258963,54
Joujou septembre 3600000
Brahim Mars 10000
dupont Octobre 0

J'aimerais quand j'introduis ("Brahim","Mars")
ou "Brahim"&"mars" ou je n'en sais rien dans l'inputbox,
la formule avec Match me donne comme réponse 10000

le modèle de programme envoyé de ta part donne une
recherche sur la 1 ère clé (colonne) vendeur.
Salutation

-----Message d'origine-----
Bonjour

Veuillez m'indiquer s'il vous plaît

cOMMENT ON PEUT FAIRE UNE RECHERCHE SUR UNE RANGE
DE CELLULE à 2 dimensions en utilisant
les instructions VB Match et Index:

colm = "B"
With ActiveSheet.Next
tbl = .Range("A1:" & colm & "" & .Range("" &
colm

& "65536").End(xlUp).Row) 'À définir
End With


cells(1,1) = application.match(array(cells
(i,1),cells(1,j)),tbl,0) 'pour passer deux valeurs à
rechercher dans tbl ????à corriger

cells(1,1) = index(tbl,cells(1,1))


je vous remercie
.

Je me demande s'il vous plaît ,est ce que la recherche
sur plusieurs critèrs n'est pas possible sous Excel ?

-----Message d'origine-----
Bonjour

Veuillez m'indiquer s'il vous plaît

cOMMENT ON PEUT FAIRE UNE RECHERCHE SUR UNE RANGE
DE CELLULE à 2 dimensions en utilisant
les instructions VB Match et Index:

colm = "B"
With ActiveSheet.Next
tbl = .Range("A1:" & colm & "" & .Range("" &
colm

& "65536").End(xlUp).Row) 'À définir
End With


cells(1,1) = application.match(array(cells
(i,1),cells(1,j)),tbl,0) 'pour passer deux valeurs à
rechercher dans tbl ????à corriger

cells(1,1) = index(tbl,cells(1,1))


je vous remercie
.

Je me demande s'il vous plaît ,est ce que la recherche
sur plusieurs critèrs n'est pas possible sous Excel ?

Mais si, mais si....
Avec ton exemple et les plages nommées (Vendeur ; Mois ; Vente)

Sub zzzzzzz()
x = Application.InputBox("Entrez le Nom et le mois (séparés par un espace)")
leNom = Left(x, Application.Find(" ", x) - 1)
leMois = Mid(x, Application.Find(" ", x) + 1, 9 ^ 9)
z = Chr(34)
On Error Resume Next
MsgBox Evaluate("index(Vente" & ",match(" & z & leNom & z & "&" & z & leMois & z
& ",Vendeur&Mois,0))")
If Err.Number <> 0 Then MsgBox "Pas trouvé " & leNom & " au mois de " & leMois
End Sub

AV

Je vous exprime ma satisfaction pour la qualité de
votre service
Merci et bon courage ...

-----Message d'origine-----
Bonjour

Veuillez m'indiquer s'il vous plaît

cOMMENT ON PEUT FAIRE UNE RECHERCHE SUR UNE RANGE
DE CELLULE à 2 dimensions en utilisant
les instructions VB Match et Index:

colm = "B"
With ActiveSheet.Next
tbl = .Range("A1:" & colm & "" & .Range("" &
colm

& "65536").End(xlUp).Row) 'À définir
End With


cells(1,1) = application.match(array(cells
(i,1),cells(1,j)),tbl,0) 'pour passer deux valeurs à
rechercher dans tbl ????à corriger

cells(1,1) = index(tbl,cells(1,1))


je vous remercie
.