Magic_Doctor
XLDnaute Barbatruc
VB:
Function Array_Pos(tableau, recherche)
'**********************************************
'Connaître la position d'un item dans un Array
'**********************************************
'- tableau : une matrice
'- recherche : un item de l'Array
Dim i%
Array_Pos = -1 'par défaut, la valeur n'a pas été trouvée dans le tableau
For i = LBound(tableau) To UBound(tableau)
If tableau(i) = recherche Then 'la valeur a été trouvée
Array_Pos = i
Exit For
End If
Next
End Function