Soustraction de deux Variable

Bonjour tout le monde,

J'ai un code qui appelle des variables pour rechercher deux données :
1 = Montant total
2 = Montant acompte

et donc dans une troisième variables j'aimerais qu'il m'indique la différence des deux donc montant total - acompte afin d'afficher le solde dû.

Mais mon code ne fonctionne pas :/

Si vous pouvez m'aider :D Merci beaucoup

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Totaldevis As String Dim Acompte As String Dim Solde As String Totaldevis = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 73, False) Acompte = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 74, False) Solde = Totaldevis - Acompte     TextBox17 = "Acompte sur le devis N° : " & Numdevis TextBox28 = "Total de la commande : " & Totaldevis & " TVAC" & " Solde restant dû : " & Solde

---

Hello

Je ne vois pas pourquoi ton code ne fonctionnerais pas

As-tu essayé de teste ton code en pas à pas ( Touche F8), ou de mettre des msgBox pour vérifier tes variables ?
De façon à voir si tes valeurs recherchée sont bien trouvée dans ta feuille?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim Totaldevis As String   Dim Acompte As Long Dim Solde As Long   Totaldevis = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 73, False)   msgbox "Totaldevis "& Totaldevis   Acompte = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 74, False)   msgbox "Acompte "& Acompte   Solde = Totaldevis - Acompte   msgbox "Solde "& Solde     TextBox17 = "Acompte sur le devis N° : " & Numdevis TextBox28 = "Total de la commande : " & Totaldevis & " TVAC" & " Solde restant dû : " & Solde

---

Merci,
oui oui les lignes recherchées sont correct,
et le reste du code aussi car sa fonctionne sans ce que je vient de rajouter du coup ...

Pour ma part si je modifie tes textbox par msgbox cela fonction.
Tes textbox je supposse que c'est dans un UserForm ?

Essaie peut-être de leurs affectés la valeur comme ceci ( a modifié avec nomUsf.TexBoxNum.value ?

Code:

---

1 2 3

UserForm1.TextBox3.Value = "XXXX"

---

Non plus

sa bug au calcul pas au niveau des textbox

->

Code:

---

Solde = (WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 73, False) - WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 74, False))

---

Même en codant plus long mais plus logique sa donne rien

Bonjour,
As tu essayé de déclarer tes variables en Double plutôt qu'en String?

je vient de tester,

si je modifie en double il bug à la 1er ligne

Code:

---

Totaldevis = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 73, False)

---

:s :s :s

Modifie juste la variable solde.

Code:

---

Dim Solde As Double

---

Et converti tes autres variables de String au moment de l'opération :

Code:

---

Solde = CDbl(var1) - CDbl(var2)

---

Ou avec Val :

Code:

---

Solde = Val(var1) - Val(var2)

---

Oups, je pense savoir d'ou vient le problème mais sans savoir comment régler sa :/

Dans le code complet de mon programme, il modifie les nombres comme : 3529,42 en format : 3 529,42 €

Code:

---

TextBox96.Value = Format(CCur(TextBox96.Value), "###0.00 €") 'Format en €

---

donc à mon avis c'est à cause de cela :/

de la sorte sa fonctionne :
Solde = Val(Totaldevis) - Val(Acompte)

Mais sans les décimales ... il affiche 868 au lieu de 868,50 ... et sans le format que je disait au dessus

Bon...
Tu n'as donc pas testé toutes les possibilités que je te décrivais précédemment...

Si Val fonctionne (sans décimales), alors CDbl devrait être ta solution. cf mon message à ce sujet...

Ton code :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Totaldevis As String Dim Acompte As String Dim Solde As Double Totaldevis = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 73, False) Acompte = WorksheetFunction.VLookup(Numdevis, Sheets("Devis").Range("A1:CC5000"), 74, False) Solde = CDbl(Totaldevis) - CDbl(Acompte)   TextBox17 = "Acompte sur le devis N° : " & Numdevis TextBox28 = "Total de la commande : " & Totaldevis & " TVAC" & " Solde restant dû : " & Solde

---

Maintenant, parlons format de TextBox.
Un TextBox renvoie systématiquement du Texte. Donc, si le but est de placer son contenu dans une cellule, le "formater" en "Currency" avec "séparateur de millier" et "symbole monétaire" est une erreur.
Il vaut mieux, dans ce cas :
- laisser juste la valeur numérique telle quelle dans le TextBox,
- éventuellement, pour le fun et la beauté, ajouter un label à côté contenant "€".

En effet, un espace ajouté par Format(CCur(TextBox96.Value), "###0.00 €") ajoutera un espace "en dur" dans ta cellule lors du transfert.

Donc, laisse ton TextBox comme il est prévu (exemple : 103564,00), et formate ta cellule au bon format ("monétaire")...
Le résultat sera alors celui attendu.