VBMatchdim2

Le
Bonjour

Veuillez m'indiquer s'il vous plat

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) ' dfinir
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1232772
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!


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
Griech Moloud
Le #1285882
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
.



Griech moloud
Le #1279159
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
.



AV
Le #1240453
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

Le #1268692
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
.



Publicité
Poster une réponse
Anonyme