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