Problème tour de HanoÏ

Bonjour à tous

J'ai un devoir à faire concernant le fameux casse-tête, le tour de Hanoï. Cependant, je n'arrive pas à trouver ce qui ne va pas.

Vous trouverez en fichier joint, mon fichier Excel,

Le but de l'exercice est , après avoir fixé un nombre de disque, de détailler pas à pas les déplacements dans les colonnes N et O jusqu'à la résolution du casse-tête.

Lorsque je détaille mon programme étape par étape, la valeur saisie en B1 représentant la taillen'est pas prise en compte.

Avez-vous une idée de la source du problème ?

Merci d'avance

Bonjour,

la valeur B2 est bien prise en compte. tu la mets dans nombrelu puis elle passée en paramètre dans ton module deplacepile (sous le nom de taille).

ton erreur est ailleurs, dans la logique de ta fonction récursive.

J'ai vu avec ma prof mais j'ai la même fonction récursive qu'elle...

Par contre, dans mon Sub deplacepile, ma taille vaut 0..

Et, ma boucle "If" à partir de "Else" ne marche pas ...

bonjour,

essaie ceci

Sub deplacepile(ByVal taille, ByVal dep, ByVal arr)
    If taille > 0 Then
        deplacepile taille - 1, dep, 6 - (dep + arr)
        Worksheets(1).Cells(k, 14) = dep
        Worksheets(1).Cells(k, 15) = arr
        k = k + 1
        deplacepile taille - 1, 6 - (dep + arr), arr
    End If

End Sub

Super merci beaucoup je vais essayer ça