Calcul d'une valeur dans un champ

Bonjour,

Dans le document en pièce jointe, il y a une macro qui se déclenche dans le cas où l'on clique sur Ajouter.

Je cherche une solution pour pouvoir écrire une formule dans la zone de texte du Montant. Par exemple "=15+1". Et ensuite que cette sommes soit calculé dans la cellule correspondante lorsque je clique sur OK.

Est-ce que cela est possible ?

Cdt,

RD

Bonsoir,

Essaie en ajoutant cette procédure (module du Userform concerné) :

Private Sub txtMontant_AfterUpdate()
    Dim mt
    If txtMontant Like "=*" Then
        mt = Replace(txtMontant, ",", ".")
        mt = Evaluate(mt)
        txtMontant.Text = mt
    End If
End Sub

En tapant un "=" suivi d'une opération sur des nombres, cela remplacera ta frappe par le résultat de l'opération dans la TextBox.

Il ne me semble pas judicieux d'intervenir au niveau de la procédure d'affectation au vu de la façon dont est articulé ton code (ou alors, à voir avec le concepteur du code...).

Cordialement.

Bonjour,

Cela fonctionne Nikel

Merci beaucoup pour votre aide

cdt,