Fonction MATCH dans une variable tableau

Version imprimable

01/03/2018, 17h13
curt

Fonction MATCH dans une variable tableau

Bonjour,
Dans le cadre d’une reprise de feuille Excel, j’ai passé le traitement fait sur une feuille Excel dans une variable TABLEAU
Initialement, je venais regarder si l’étiquette (= Entête) d’une colonne existait au moyen de la commande ci-dessous :

Code:

column = WorksheetFunction.Match(Attributes(j).TagString, Range(Cells(2, 1), Cells(2, LastColumn)), False)

ça fonctionne parfaitement si on a les valeurs sur la feuille.

Pour optimiser le temps de traitement (voir tuto sur les variables tableau), j’essaye (en vain pour l’instant) d’avoir la même commande mais pour la variable TABLEAU
Le début de la commande devrait être

Code:

column = WorksheetFunction.Match(Attributes(j).TagString, Range(TABLEAU ???

D’avance merci pour l’aide.

Curt

Bonjour Curt,
Voici un petit exemple

Code:

1
2
3
4
5
6
Sub t2()
 Dim myTable As Variant, LookUpValue As String
 myTable = Range("A2:A15").Value
 LookUpValue = "E"
 MsgBox Application.WorksheetFunction.Match(LookUpValue, myTable, 0)
End Sub

01/03/2018, 18h14
curt

Bonsoir Philippe,

le soucis que j'ai, c'est de mettre la plage "MY TABLE" dans ton exemple, qui représente la première ligne de ma variable TABLEAU
Clairement, MYTable n'est pas le RANGE("A2:A15"), mais le RANGE(TABLEAU(LIGNE 1)

Merci pour le début de piste en tout cas.
Je continue à creuser.

Curt

Bonsoir,

Recherche d'un élément dans la colonne d'un Array à 1 dimension avec Application.Match()

La recherche de la position d'un élément dans un tableau peut se faire avec Application.Match() (Equiv()). Dans une boucle, cette recherche n'est pas très rapide.
Code:

1 2 3 4 5 6 Sub RecherchePositionElement() a = Array("aa", "bb", "cc", "dd", "ee") x = "cc" p = Application.Match(x, a, 0) MsgBox p End Sub
On obtient 3

Pour une recherche dans dans la première colonne d'un tableau 2D:

aa 11
bb 22
cc 33
dd 44
Code:

1 2 3 4 5 6 Sub RecherchePositionElement2() a = [{"aa",11;"bb",22;"cc",33;"dd",44}] clé= "cc" p = Application.Match(clé, Application.Index(a, , 1), 0) ' Recherche dans colonne 1 du tableau a() MsgBox a(p, 2) End Sub
On obtient 33

Boisgontier

Bonjour Curt,

Code:

1
2
3
4
5
6
Sub t3()
 Dim myTable As Variant, LookUpValue As String
 myTable = Range("A1:E1").Value
 LookUpValue = "Key"
 MsgBox Application.WorksheetFunction.Match(LookUpValue, myTable, 0)
End Sub

et aussi

Code:

1
2
3
4
5
6
7
Sub t3()
 Dim myTable As Variant, LookUpValue As String, rng As Range
 Set rng = Range("A1:E15")
 myTable = rng.Rows(1).Value
 LookUpValue = "Key"
 MsgBox Application.WorksheetFunction.Match(LookUpValue, myTable, 0)
End Sub

01/03/2018, 18h46
curt

Bonsoir et merci à vous deux,

Encore une fois (mais merci pour ces pistes), les valeurs ne sont pas dans la feuille excel (sur la première ligne par exemple) - Tout est traité dans la variable tableau et à la fin, on recopie la variable tableau sur la feuille.

Donc je voudrais pouvoir trouver dans quelle colonne de ma variable tableau se trouve la valeur recherchée

Code:

column = WorksheetFunction.Match(Attributes(j).TagString, Range(TABLEAU(1, 5), TABLEAU(1, UBound(TABLEAU, 2))), False)

C'est la partie en gras qui pose problème :calim2:

Encore merci pour le coup de main.
Curt

1 pièce(s) jointe(s)

-Match ne fonctionne que pour une colonne ou une ligne d'Array.
-Pour la vitesse d'exécution,le + rapide est de parcourir tous les éléments de l'Array(variable tableau):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Essai()
 Tbl = [{11,12,13;21,22,23;31,32,33;41,42,43}]   ' Array avec 4 lignes et 3 colonnes
 Position = RechPositionElement(Tbl, 33)
 MsgBox Position
 Position = RechPositionElement(Tbl, 32)
 MsgBox Position
End Sub
 
Function RechPositionElement(Tbl, valCherchée)
 Nlig = UBound(Tbl)
 NCol = UBound(Tbl, 2)
 For lig = 1 To Nlig
  For col = 1 To NCol
    If Tbl(lig, col) = valCherchée Then RechPositionElement = "Ligne:" & lig & "/Colonne:" & col: Exit Function
  Next col
 Next lig
End Function

Boisgontier

02/03/2018, 07h10
curt

Bonjour Jacques,

merci pour la réponse. Je vais tester et reviendrai si nécessaire.

Pour ma culture, qu'elle est alors la commande qui permet le EQUIV (=MATCH) dans une variable tableau comme je souhaitai le faire ? (sans parler à présent de la vitesse d'exécution)

Encore merci.
Curt
02/03/2018, 13h44
Marc-L

Bonjour,

comme déjà indiqué :

:fleche: ~~WorksheetFuntion~~ :fleche: Application ‼

Si utilisation d'une variable pour le résultat de cette fonction de feuille de calculs EQUIV,
elle doit forcément être de type Variant en cas d'erreur et si besoin de tester ce résultat
soit via IsError soit via IsNumeric comme dans les exemples dans les discussions de ce forum …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
02/03/2018, 17h04
curt

Bonsoir et merci à tous

pour les réponses ou les pistes données.

au final, la ligne devient :

Code:

column = Application.Match(Attributes(j).TagString, Application.Index(TABLEAU, 0, 0), 0)

Comme dit précédemment, l'itération via une boucle est plus performante :yaisse2:... mais avoir une alternative, c'est bien aussi :lol:

Merci encore à tous.
Curt