Discussion :

[curt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

D’avance merci pour l’aide.

Curt

[Philippe Tulliez]

Bonjour Curt,
Voici un petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[boisgontierjacques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour Curt,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

        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

Encore merci pour le coup de main.
Curt

[boisgontierjacques]

-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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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