indice n'appartient pas à la sélection VBA Excel

Bonjour,

J'ai l'erreur "9" L'indice n'appartient pas à la sélection dans ma fonction "Est_Dans_Tab_A". Merci de votre aide...Ci-dessous le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim Tab_Roul(11, 1), Tab_Agent(11, 2), Retour_Tab As Variant ... Dim i, j, k As Byte ... For j = Prem_Ligne To ((Nbre_Agent * Saut_Ligne) + Saut_Ligne) For k = Prem_Col To Last_Col - 1 Retour_Tab = Est_Dans_Tab_A(Tab_Roul, Cells(j, k).Value) i = 0 Next k j = j + Saut_Ligne - 1 Next j ... Function Est_Dans_Tab_A(Tableau, Valeur) For i = LBound(Tableau) To UBound(Tableau) If Tableau(i) = Valeur Then 'Si valeur trouvée (L'ERREUR pointe ICI) Est_Dans_Tab_A = i Exit For End If Next i End Function

---

Problème mal présenté, mais on peut deviner ce qui pourrait se passer.
Une piste: Si vous voulez mettre une 12è valeur dans un vecteur à 11 lignes, ça n'ira pas !
Mettre avant la ligne la commande "On Error Resume Next" pour vous en sortir, mais ce n'est pas la "bonne" solution;
Essayez de comprendre via le debogueur:

Code:

---

For i = LBound(Tableau) To UBound(Tableau): Debug.print Tableau(i)

---

Le résultat doit être comparé à ce que vous mettez dans le paramètre "valeur"

Bonjour,

Merci de prendre un peu de temps sur mon souci. Je souhaite comparer les 12 valeur de la première colonne de mon tableau au contenu de la variable Valeur...

Dans ce cas, il faut dimensionner les matrices de variable à 12 et non pas à 11.

Avec ceci c'est mieux !

Code:

---

if tableau(i,0) =Valeur then ...

---

Merci.