1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| Dim Chiffres_affaire(3, 5) As Long
Dim Ville1Magasin1 As Integer
Dim Ville1Magasin2 As Integer
Dim Ville1Magasin3 As Integer
Dim Ville2Magasin1 As Integer
Dim Ville2Magasin2 As Integer
Dim Ville2Magasin3 As Integer
Dim Ville3Magasin1 As Integer
Dim Ville3Magasin2 As Integer
Dim Ville3Magasin3 As Integer
Dim Ville4Magasin1 As Integer
Dim Ville4Magasin2 As Integer
Dim Ville4Magasin3 As Integer
Dim Ville5Magasin1 As Integer
Dim Ville5Magasin2 As Integer
Dim Ville5Magasin3 As Integer
Dim CA_Ville1 As Integer
Dim CA_Ville2 As Integer
Dim CA_Ville3 As Integer
Dim CA_Ville4 As Integer
Dim CA_Ville5 As Integer
Dim CA_total As Integer
Ville1Magasin1 = Chiffres_affaire(1, 1) = InputBox("CA(1,1)?")
Ville1Magasin2 = Chiffres_affaire(1, 2) = InputBox("CA(1,2)?")
Ville1Magasin3 = Chiffres_affaire(1, 3) = InputBox("CA(1,3)?")
Ville2Magasin1 = Chiffres_affaire(2, 1) = InputBox("CA(2,1)?")
Ville2Magasin2 = Chiffres_affaire(2, 2) = InputBox("CA(2,2)?")
Ville2Magasin3 = Chiffres_affaire(2, 3) = InputBox("CA(2,3)?")
Ville3Magasin1 = Chiffres_affaire(3, 1) = InputBox("CA(3,1)?")
Ville3Magasin2 = Chiffres_affaire(3, 2) = InputBox("CA(3,2)?")
Ville3Magasin3 = Chiffres_affaire(3, 3) = InputBox("CA(3,3)?")
Ville4Magasin1 = Chiffres_affaire(4, 1) = InputBox("CA(4,1)?")
Ville4Magasin2 = Chiffres_affaire(4, 2) = InputBox("CA(4,2)?")
Ville4Magasin3 = Chiffres_affaire(4, 3) = InputBox("CA(4,3)?")
Ville5Magasin1 = Chiffres_affaire(5, 1) = InputBox("CA(5,1)?")
Ville5Magasin2 = Chiffres_affaire(5, 2) = InputBox("CA(5,2)?")
Ville5Magasin3 = Chiffres_affaire(5, 3) = InputBox("CA(5,3)?")
CA_Ville1 = (Ville1Magasin1 + Ville1Magasin2 + Ville1Magasin3)
CA_Ville2 = (Ville2Magasin1 + Ville2Magasin2 + Ville2Magasin3)
CA_Ville3 = (Ville3Magasin1 + Ville3Magasin2 + Ville3Magasin3)
CA_Ville4 = (Ville4Magasin1 + Ville4Magasin2 + Ville4Magasin3)
CA_Ville5 = (Ville5Magasin1 + Ville5Magasin2 + Ville5Magasin3)
MsgBox ("le chiffre d'affaire de la ville 1 est :" & CA_Ville1)
MsgBox ("le chiffre d'affaire de la ville 2 est :" & CA_Ville2)
MsgBox ("le chiffre d'affaire de la ville 3 est :" & CA_Ville3)
MsgBox ("le chiffre d'affaire de la ville 4 est :" & CA_Ville4)
MsgBox ("le chiffre d'affaire de la ville 5 est :" & CA_Ville5)
CA_total = (CA_Ville1 + CA_Ville2 + CA_Ville3 + CA_Ville4 + CA_Ville5)
MsgBox ("le chiffre d'affaire total est :" & CA_total)
End Sub |
Partager