probleme dimension d'un tableau

Bonjour

l'idée des boucles que j’essaie de faire est très simple : j'explore mon tableau nommé "tableau_machine" (voir l'image jointe) et a chaque fois qu'il rencontre des 1 , il va chercher dans le tableau de données nommé "tableauinit" les valeurs qui se cache derrière les 1


j'aimerai donc qu'il m'affiche les valeurs qui se cachent uniquement derrière les 1 du tableau "tableau_machine" à partir du tableau "tableauinit" en cherchant bien sur la correspondance de l'opération (ce que j'appelle opération est les noms sur la première colonne de chaque tableau O11 O21....)

j'ai donc tenté la boucle suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

For i = 1 To UBound(tableau_machine, 1) For k = 1 To UBound(tableau_machine, 2) '& UBound(tableauinit, 2)   If tableau_machine(i, k) = 1 Then For e = 1 To UBound(tableauinit, 1)   If tableau_machine(e, 0) = tableau_machine(i, 0) Then MsgBox tableauinit(e, k) End If   Next e End If Next k Next i

---

le constat de cette boucle est qu'il ne m'affiche pas seulement les valeurs qui se cachent derrière les 1, mais il m'affiche des 0 (d'où je ne sait où il va les chercher)

je pense que le problème vient d'abord de la déclaration de la dimension de mon tableau "tableauinit" car je dis au code qu'il va l'explorer uniquement sur sa première dimension (For e = 1 To UBound(tableauinit, 1) puis ensuite je lui demande de m'afficher
la valeur qui correspond à tableauinit(e, k) et c'est ici que ça doit bugger car je ne sait pas comment introduire sa déclaration de sa deuxième dimension.

j’espère que je me suis fait comprendre sinon dite moi la partie obscure

merci

ps: je vous joins quand même mon fichier excel pour constater lors de l'execution les valeurs qui sortent

c'est bon je viens de trouver

c'etait le code suivant que je cherchais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For i = 1 To UBound(tableau_machine, 1) For k = 1 To UBound(tableau_machine, 2) '& UBound(tableauinit, 2) If tableau_machine(i, k) = 1 Then For e = 1 To UBound(tableauinit, 1) If tableau_machine(i, 0) = tableauinit(e, 0) Then MsgBox tableauinit(e, k) ' MsgBox tableauinit(e, k) End If Next e End If Next k Next i

---

merci encore