Bonsoir a tous, pour un TD a l'école je n'arrive pas à finir mon petit projet (résolution et vérification d'un carré magique d'ordre impair).
Je bloque à cette endroit : traduire en VBA If (valeur cellule=valeur cellule1=valeur cellule2...) Then
Voila ce que j'ai déjà :
Range("G1" ).FormulaLocal = "=SOMME(A1:E1)"
Range("G2" ).FormulaLocal = "=SOMME(A2:E2)"
Range("G3" ).FormulaLocal = "=SOMME(A3:E3)"
Range("G4" ).FormulaLocal = "=SOMME(A4:E4)"
Range("G5" ).FormulaLocal = "=SOMME(A5:E5)"
Range("A7" ).FormulaLocal = "=SOMME(A1:A5)"
Range("B7" ).FormulaLocal = "=SOMME(B1:B5)"
Range("C7" ).FormulaLocal = "=SOMME(C1:C5)"
Range("D7" ).FormulaLocal = "=SOMME(D1:D5)"
Range("E7" ).FormulaLocal = "=SOMME(E1:E5)"
If ( La où je souhaite mettre G1=G2=G3[...]=E7) Then
MsgBox "Le carré est bien magique"
Else
MsgBox "Le carré n'est pas magique"
EndIf
Merci
