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 :

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)

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

Modifier / Supprimer le message Modifier le message Répondre avec citation Répondre avec citation Multi-citer ce message 0 0 Créer une entrée Blog

bonjour,

tab_roul est un tableau à 2 dimensions

dans ta fonction, tu n'adresses qu'une seule dimension.

pour ton problème spécifique

if tableau(i,1) =Valeur then

Merci pour ces précisions. Mais est-ce que (i,1) parcourt bien les 12 cases de la colonne 0 (première colonne) de mon tableau ?

bonjour,

si l'indice de ta première colonne est 1, oui. si l'indice de ta première colonne est 0, non auquel cas, remplace

 if tableau(i,1) =Valeur then

par

if tableau(i,0) =Valeur then

Cela semble beaucoup mieux en effet....Il n'y a plus l'erreur et je vais vérifier si le test est bon. Merci.