Discussion :

[Marmouz]

Bonjour à tous,

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Demande_de_chèque_AfterUpdate()
Dim t As Variant
    If Not IsNull(Me.Demande_de_chèque) Then
    t = Split(Me.Demande_de_chèque, "=")
    Me.Demande_de_chèque = t(0) & "=" & Eval(t(0))
    End If
 
End Sub

Le type de données est du texte afin de pouvoir afficher une somme dans mon formulaire.
Je voudrai avec un type monétaire afin de pouvoir faire une différence entre 2 cellules.

Merci

[Marmouz]

Si personne ne sait comment changer le type de données.
est ce que qq'un sait connait je pourrais uniquement extraire le résultat de l'addition ??

Merci

[kissmytoe]

Je comprends pas bien ce que tu veux dire.

Si c'est seulement pour changer du texte en nombre a virgule c'est la méthode CDbl(texte)

[Marmouz]

en fait la syntaxe ci dessus me permet d'afficher dasn la table une expression du style :

400+200+200=800

Cette expression est obligatoirement du texte pour pouvoir inégrer les + et =

Dans une autre cellule j'ai des nombre en monétaire.

Je voudrai effectuer une différence, pour cela il faut que les 2 expressions soient en monétaires. Je veux alors récupérer uniquement le résultat (ici 800 dasn mon exemple) et le transformer en monétaire.

[Petogaz]

salut,

as-tu pensé à regarder l'aide sur la fonction Ccur() ?

[Marmouz]

oui j'ai essayé mais je ne trouve pas la bonne syntaxe.

[pc75]

Bonjour,

Dans ton exemple :

400+200+200=800

Tu veux récupérer 800 en décimales ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Valeur = "400+200+200=800"
Valeur = cDbl(Mid(Valeur, InStr(Valeur, "=") + 1))