J'ai beau chercher je vois pas ou est le problème dans cette precédure :
Code : Tout sélectionner
Procedure Annuler(Mot)
For Letter=0 To 2
If CasePlateau(Mot,Letter)\PrevCase<>99
PrintN(Str(CasePlateau(Mot,Letter)\PrevCase)+":"+Str(CasePlateau(Mot,Letter)\ValRang)+":"+CasePlateau(Mot,Letter)\Lettre)
CaseChevalet(CasePlateau(Mot,Letter)\PrevCase)\ValRang=CasePlateau(Mot,Letter)\ValRang
CaseChevalet(CasePlateau(Mot,Letter)\PrevCase)\Lettre=CasePlateau(Mot,Letter)\Lettre
EndIf
Next Letter
PrintN("-------------------")
For i=0 To 13
PrintN(Str(CaseChevalet(i)\ValRang)+":"+CaseChevalet(i)\Lettre)
Next i
Valider=0
Annuler=0
EndProcedure
Voici les valeurs retournées par le 1er PRINTN :
0:1:A
1:2:B
2:3:C
et voici les valeurs retournées par le 2ème :
0:
2:B
3:C
J'ai pommé les valeurs 1 et A en route alors que je n'ai fait que les passer d'un tableau à l'autre. Ca marche pour les 2 dernières valeurs et pas pour la première.... ( Je sais si c'est clair tout ca.... en plus mon code est sorti de son contexte. Ici c'est juste l'extrait qui déconne)
Enfin voila, ca fait 3 jours que je cherche ou est l'erreur, et pour moi il n'y en a pas !
Merci d'avance pour votre aide