recherchev dans une variable tableau

[formateurmasque]

Bonjour,

Je voudrai faire une RECHERCHEV ou VLOOKUP dans une variable tableau
Tab(150,3).

Est ce possible ? si oui, quelle est la syntaxe ?

Merci d'avance.

FM

 

[tototiti2008]

Re : recherchev dans une variable tableau

Bonjour Formateurmasque,

Tu as le choix : créer une fonction de recherche dans un tableau ou
transférer le contenu de ton tableau dans un objet Range pour pouvoir utiliser VLOOKUP dans ton code.

 

[BOISGONTIER]

Re : recherchev dans une variable tableau

Bonjour,

Sub essai()
  Dim Tbl(1 To 2, 1 To 10)
  Tbl(1, 1) = "aaa"
  Tbl(1, 2) = "bbb"
  Tbl(1, 3) = "ccc"
  Tbl(2, 1) = 11
  Tbl(2, 2) = 22
  Tbl(2, 3) = 33
  ValCherchée = "ccc"
  result = Tbl(2, Application.Match(ValCherchée, Application.Index(Tbl, 1), 0))
  MsgBox result
End Sub

Sous forme d'une fonction:

Sub essai()
  Dim tbl(1 To 2, 1 To 10)
  tbl(1, 1) = "aaa"
  tbl(1, 2) = "bbb"
  tbl(1, 3) = "ccc"
  tbl(2, 1) = 11
  tbl(2, 2) = 22
  tbl(2, 3) = 33
  Valcherchée = "ccc"
  MsgBox RechercheVTab(tbl, "ccc")
End Sub

Function RechercheVTab(tbl, Valcherchée)
  RechercheVTab = tbl(2, Application.Match(Valcherchée, Application.Index(tbl, 1), 0))
End Function

JB
Formation Excel VBA JB