// --Code de clic sur BTN_ValActuelleNette
// Déclaration de la variable
ResValActuelleNette est un réel

// Création et initialisation de la matrice
MatCrée("Matrice")
MatEcrit("Matrice", -100000, 1, 1)
MatEcrit("Matrice", 6000, 1, 2)
MatEcrit("Matrice", -3000, 1, 3)
MatEcrit("Matrice", 4500, 1, 4)
MatEcrit("Matrice", 8000, 1, 5)

// Calcul de la valeur actuelle nette
ResValActuelleNette = FinValActuelleNette(10, "Matrice", 1)
SI FinErreur() = 0 ALORS
	Info("La valeur actuelle nette est : " + ResValActuelleNette)
SINON
	// Affichage du message d'erreur
	Erreur(ErreurInfo(errMessage))
FIN