Discussion :

[Z20500]

Bonjour,

Je souhaite rechercher l'index de la première dimension de la valeur d'une variable a dans le tableau b(600,14), sachant que a serait dans la première colonne du tableau : b(index recherché,1)

quelle fonction me conseilleriez-vous d'utiliser et comment en récupérer le résultat ?
pour l'instant, je fais comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim index as integer
dim b(600,14) as string
dim a as string
dim trouve as integer
...
trouve=0
index=0
do while index <= ubound(b,1) and trouve=0
   index++
   if a = b(index,1) then
      trouve=1
   end if
loop

mais c'est pas très élégant, lent d'exécution, et consomme un nombre certain de variables...

J'ai l'impression que des fonctions telles que vlookup ou hlookup pourraient servir, mais je n'ai pas compris avec les explications que j'ai trouvées comment je pourrais les appliquer à mon cas.

Bonne soirée à vous

[Docmarti]

Bonjour Z20500

Ceci devrait répondre à tes attentes.

Pierre Fauconnier nous offre une belle présentation de RechercheV:
http://fauconnier.developpez.com/tut...el/recherchev/

De Michel Tanguy : Recherches et matrices / Les fonctions Index et Equiv
http://silkyroad.developpez.com/Excel/FonctionsExcel/


Tu trouveras sur le site de Jacques B une étude très poussée des fonctions de recherche:

La fonction FIND
http://boisgontierjacques.free.fr/

RechercheV
http://boisgontierjacques.free.fr/pa...FonctionRechVM

La fonction Index
http://boisgontierjacques.free.fr/pa...ctionindex.htm

[boisgontierjacques]

Bonjour,

Recherche dans la première colonne d'une table 2D:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub RecherchePositionElementPremièreColonne()
  a = [{"aa",11;"bb",22;"cc",33;"dd",44}]      ' Tableau 2D
  clé= "cc"
  p = Application.Match(clé, Application.Index(a, , 1), 0)
  If not  Iserror(p) then
     MsgBox a(p, 2)
  Else
     Msgbox "Non trouvé"
  End If
End Sub

On obtient 33

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub RecherchePositionElement3()
  a = [{"aa",11;"bb",22;"cc",33;"dd",44}]
  clé = "cc"
  result = Application.VLookup(clé, a, 2, False)
  If Not IsError(result) Then
     MsgBox result
  Else
     MsgBox "Non trouvé"
  End If
End Sub

Jacques Boisgontier

[Invité]

Bonjour à tous,

Application.Match , Application.Index ne seraient-ils pas dépréciés sur les versions récentes d'Excel ? Cela marche tout de même, mais j'ai l'impression qu'elles ont été dépréciées au niveau de la Classe Application.
Sur Excel 2010 et 2013, toutes les fonctions de feuilles Excel sont réunis au sein de la classe WorksheetFunction.

Exemple:

• WorksheetFunction.Match Function Match(Arg1, Arg2, [Arg3]) As Double
• WorksheetFunction.Index Function Index(Arg1, Arg2 As Double, [Arg3], [Arg4])

J'aurais voulu savoir (pour ma culture perso) si Application.Match possédait un prototype de fonction au niveau de l'explorateur d'object pour ceux qui ont Excel 2007/2003/2000/XP/97.

Merci d'avance.

[issoram]

Attention tout de même à gérer les erreurs avec la méthode Match. Elle génère une erreur si l'élément n'est pas trouvé.

[Invité]

Attention tout de même à gérer les erreurs avec la méthode Match. Elle génère une erreur si l'élément n'est pas trouvé.

+1, il faut un variant qui accepte de prendre le sous-type "Error" (ce qui est déjà le cas ici puisque les variable sont non-déclarés).

[Marc-L]

Bonjour, bonjour,

d'accord avec Issoram, c'est pour cela que je ne les utilise qu'avec Application. et une variable de type Variant
et non pas avec WorksheetFunction sinon c'est l'erreur assurée !

Exemple :

Code :

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

1
2
    V = Application.Match(E, Application.Index(TR, CM), 0)
    If IsError(V) Then …

[Docmarti]

ReBonjour

Un exemple avec formule ou fonction FIND

[Z20500]

Bonjour,

Merci beaucoup pour vos réponses.
Cependant, les données dans lesquelles il faut rechercher sont pas dans des cellules, elles sont juste dans un array car elles proviennent d'une autre procédure qui décrypte un fichier texte.
Peut-on utiliser les mêmes procédures pour un array à deux dimensions ?

la procédure donnée par Jacques Boisgontier est intéressante, mais pourrait-elle retourner un index plutôt que la valeur correspondante ?

[issoram]

C'est bien ce que fait la méthode Match, elle te renvoie l'indice de l'élément trouvé (le 'p' dans le code donné par Jacques Boisgontier)