Bonsoir,

je débute en vba et j'ai suivi un tuto pas à pas.

J'ai donc créé pour un exemple plusieurs macros pour un calcul de facture. Les macros individuellement fonctionnent très bien.
Par contre je n'arrive pas à lier les macros entre elles. Soit 2 macros, la macro 1 calcule le prix TTC, et la macro 2 doit rectifier le dit prix TTC en fonction du type de client. Or ma macro 2 me renvoit 0, alors que si je lui donne le prix TTC manuellement elle calcule correctement le prix rectifié.

Voici le code. Qu'est-ce que j'ai raté?

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
Sub PrixVente()
Dim PrixMetre As Single
Dim PrixVente As Single
MetrageTissu = Sheets("facture").Range("B7").Value
PrixMetre = Sheets("facture").Range("B8").Value
PrixVente = MetrageTissu * PrixMetre
PrixTTC = PrixVente * 1.196
'MsgBox (PrixTTC)
End Sub
 
Sub Client()
Dim Statut As String
'PrixTTC = 21.528
Statut = Sheets("facture").Range("B9").Value
If Statut = "privilège" Then
Prix_rectifié = PrixTTC * 0.9
ElseIf Statut = "prospect" Then
Prix_rectifié = PrixTTC * 0.95
Else: Prix_rectifié = PrixTTC
End If
MsgBox (Prix_rectifié)
End Sub
Merci de votre aide