Discussion :

[debutante_vb]

bonjour

[ARTURO83]

Bonjour,

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

Code :

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

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

Vous avez déclaré le tableau

Code :

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

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