Bonjour à toutes et tous,
Sans doute parce qu'il s'agit d'un cas d'école, je me suis posé la question :
et si on voulait générer un labyrinthe avec VBA, quel serait la logique à employer, et là... j'ai un peu séché
Sub Efface() 'Efface toutes les bordures de la plage
With Range("Labyrinthe")
.Borders.LineStyle = xlNone
.ClearContents
End With
End Sub
Sub Remplir()
'Remplit les bordures de la plage
With Range("Labyrinthe")
.Borders.LineStyle = xlContinuous
End With
End Sub
@ Michel : On peut choisir la taille du labyrinthe en redéfinissant le nom "Labyrinthe", mais je pourrais l'automatiser...
euh dans la version originale plus longue je remet du jaune partout avecLes générations antérieures avec Résoudre coché ne sont pas effacées
.Interior.ColorIndex = 36
.ClearContents
Super
Ah oui un pac man, un pac man, un pac man !
Bonsour®
il y a quelques années...
j'avais récupéré ceci :
Regarde la pièce jointe 246454
un pacman japonais de ?? chikida
il me semble que le site n'existe plus
mais j'ai retrouvé l'archive plus vrai que nature ...
le code n'est pas verrouillé mais les explications et commentaires sont en nippon...
pas simple à interpréter et intervenir dans le code