Bonjour a ts,
jecris parce que je suis encore bloqué.
Cette fois ci jaimerais utiliser une fonction financiere, (par ex NPM)
qui se trouve ds function finance.
Mais jaimerias utiliser celle-ci dans un programme en vba créant un userform ou l'utilisateur rentre dans une zone de texte la valeur numérique qui linteresse et apres il appuie sur un bouton qui lance le calcul du NPM.
!!!....Mais ça marche pas voici le code que g ecris... ( je precise je susi grd debutant en vba)
========================
Private Sub CommandButton1_Click()
If (Valeur_mensuelle <> "" And Taux <> "" And Total_invest <> "" And Nbr_echeance = "") Then
MsgBox " La valeur calculée en fonction des paramètres entrés sera le NPM", 64, "NPM"
Taux_E = CInt(Taux)
Valeur_mensuelle_E = CInt(Valeur_mensuelle)
Total_invest_E = CInt(Total_invest)
'==>>ça foire ici
Range("A5").FormulaLocal = "=NPM(Taux_E;Valeur_mensuelle_E;Total_Invest_E)"
End Sub
======================
'Mon prog userform1 est :
Private Sub UserForm_Activate()
UserForm1.Show
UserForm1.Unload
End Sub
'Mon prog qui permet une saisie du chiffre est :
Sub TextBox7_Change()
'========== VALEUR MENSUELLE============
If (Not IsNumeric(TextBox7.Value) And TextBox7.Value <> "") Then
MsgBox " Une valeur numérique est attendue", 48, "ATTENTION"
Cancel = True
ElseIf (IsNumeric(TextBox7.Value)) Then
ActiveSheet.Range("A2") = TextBox7.Value
Valeur_mensuelle = TextBox7.Value
End If
End Sub
===Les autres progs de saise du taux etc... sont exactement pareils
MERCI par avance de votre aide, @+