Lier 2 macros

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:

---

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

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:

---

Dim PrixTTC As Double

---

Code:

---

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:

---

Public PrixTTC As Double

---

isabelle

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

Merci beaucoup