Tableau en argument de fonctions - Constante requise

Bonjour,

Je souhaite définir une fonction comme suit qui prend en argument un tableau en deux dimensions et le numéro d'une ligne l de ce tableau et retourne sous la forme d'un tableau 1D, la ligne l associée.

Function Ligne(Table() As Variant, l As Long) As Variant

Dim2 = UBound(Table, 2)

Dim Table2(1, Dim2) as variant

For i = 1 To Dim2

Table2(1, i) = Table(l, i)

Next

Ligne = Table2

End Function

Le message d'erreur suivant est "Constante requise" en désignant la seconde ligne Dim2 = UBound(Table, 2). Pouvez-vous m'aider la dessus svp ?

Bonjour,

J'ai repris un peu le code parce qu'il y avait un certain nombre de choses qui bloquaient:

Function f_ligne(tableau As Variant, lig As Long) As Variant
Dim tableauResultat As Variant

ReDim tableauResultat(1 To 1, 1 To UBound(tableau, 2))

For i = 1 To UBound(tableau, 2)
    tableauResultat(1, i) = tableau(lig, i)
Next i

Ligne = tableauResultat

End Function

tableau au lieu de Table(), ça semblait ne pas aimer les parenthèses

j'utilise redim pour définir la taille du tableau résultat car c'est la seule instruction qui accepte d'avoir une variable, au moment où on déclare un tableau avec Dim on ne peut utiliser que des constantes...

Bonjour,

je ne vois pas bien l'intérêt d'une telle fonction puisqu'elle existe déjà dans le catalogue Excel :

ligne = Application.Index(tableau, i)

Merci pour vos réponses bien utiles !