Salut tout le monde, svp qui peut m'aider à écrire un programme vba qui me permettra d'obtenir un carré magique d'ordre impair avec l'algorithmique de Bachet:
Indication : le nombre 1 doit se placer tout juste en dessous de la cellule centrale.
A chaque fois on descend d'une cellule puis on décale d'une à droite et on met le chiffre consécutif, si on trouve un chiffre là-bas on remonte et on descend de deux cellules et on met le chiffre consécutif ainsi de suite
Exemple
4 9 2
3 5 7
8 1 6
La Somme des lignes, des colonnes et des diagonales est égale.
C'est bien je l'ai mis.
Maintenant je veux si je met un coté <= 2 ou un coté pair que sa écrit le message '' le carre magique doit être impair et supérieur à 2''
Il est déclaré As Range au début de la procédure.
C'est donc une variable destinée à représenter une plage de cellules.
Une telle variable, lorsqu'elle est convenablement initialisée, peut servir d'expression Range au même titre qu'une expression ActiveSheet.Range("A1:Z100") par exemple, qui renvoie aussi un objet Range. Il faut s'habituer à ce qu'une expression puisse renvoyer un objet.
Tout le monde s'y habitue, apparemment (sarcasme) puisque personne ne me demande jamais (imaginez un dessin à la Texs Avery) comment, suite à un coup de pied malicieux de son occupant, un trou de souris puisse renvoyer … une enclume.