XL 2010 Excel VBA

[Konte94]

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.

 

[Konte94]

Mettez If Coté Mod 2 = 0 Then Exit Sub derrière RngCM.ClearContents

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''

 

[Dranreb]

If Coté Mod 2 = 0 Or Coté < 3 Then
      MsgBox "Le carré magique doit être impaire et supérieur à 2", _
         vbCritical, "ProduireCarréMagique"
      Exit Sub: End If

Vous n'auriez vraiment toujours pas su le faire vous même ?
Il y avait pourtant déjà des MsgBox dans les versions précédentes !

 

[Konte94]

If Coté Mod 2 = 0 Or Coté < 3 Then
      MsgBox "Le carré magique doit être impaire et supérieur à 2", _
         vbCritical, "ProduireCarréMagique"
      Exit Sub: End If

Vous n'auriez vraiment toujours pas su le faire vous même ?
Il y avait pourtant déjà des MsgBox dans les versions précédentes !

Sisi vous avez raison mais comment créer le programme effacer, j'ai utilisé cette méthode mais elle ne me convient pas.

 

[Dranreb]

Bonjour.

ActiveSheet.[LeCarréMagique].ClearContents

 

[Konte94]

Bonjour.

ActiveSheet.[LeCarréMagique].ClearContents

Merci beaucoup j'ai bien compris maintenant. Mais une dernière chose svp vous avez RngCM dans le programme, je veux savoir ce que sa signifie svp

 

[Dranreb]

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.