Discussion :

[dgeo10]

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 Merci beaucoup

Code :

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

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

[mfoxy]

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 :

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

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

[dgeo10]

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 ...

[mfoxy]

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 :

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

1
2
3
 
 
UserForm1.TextBox3.Value = "XXXX"

[dgeo10]

Non plus

sa bug au calcul pas au niveau des textbox

->

Code :

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

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

[pijaku]

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