problème

bonjour

Bonjour,

En cliquant sur le bouton "EXECUTER"
Blocage sur la ligne suivante:

Code:

---

ElseIf IsEmpty(Damier(L + j, UBound(Damier, 2) - L + 8)) = False Then

---

Vous avez déclaré le tableau

Code:

---

ReDim Damier(1 To 30,1 To 30)

---

ce qui signifie 30 en valeur max, or si on reprend dans la ligne précédente UBound(Damier, 2) - L + 8), au premier passage nous obtenons la valeur de 37 (Ubound(Damier,2)=30 -1 + 8 =37) bien supérieure au 30 demandé., et quelle que soit la valeur que vous mettrez, vous serez toujours au-dessus.

Cdlt