Discussion :

[jpclutier]

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

[Zekraoui_Jakani]

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 :

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

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"

[jpclutier]

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

[Menhir]

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

[jpclutier]

Avec ceci c'est mieux !

Code :

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

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

Merci.