Discussion :

[verveine47]

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

[sabzzz]

bonjour verveine47,

il faut déclarer la variable dans le haut du module pour quel soit commune au macro de ce module, puis tu appel les deux macro dans une troisième macro

Code :

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

Dim PrixTTC As Double

Code :

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

1
2
3
4
Sub PrixVente_Client()
PrixVente
Client
End Sub

tu peut aussi declarer la variable Public (toujours dans le haut du module) pour que celle-ci soit disponnible dans toutes les pages vba de ce classeur.

Code :

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

Public PrixTTC As Double

isabelle

[verveine47]

Ah yes, ça marche, j'ai compris le principe

Merci beaucoup