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
| Public Sub affichage_calcul(i As Integer)
Dim F_Objet As String
Dim F_Prix As String
Dim table3
Dim table4
Worksheets("prix").Select
Set table3 = Worksheets("prix").Range(Cells(1, 1), Cells(1000, 4))
Worksheets("prixsigna").Select
Set table4 = Worksheets("prixsigna").Range(Cells(1, 1), Cells(1000, 4))
Worksheets("DevisEntreprise").Select
ActiveWorkbook.Names.Add Name:="table1", RefersTo:=table3
ActiveWorkbook.Names.Add Name:="table2", RefersTo:=table4
F_Objet = "=IF(A" & i & "="""","""",IF(A" & i & "<5000,VLOOKUP(A" & i & ",table1,3,False),VLOOKUP(A" & i & ",table2,3,False))"
F_Prix = "=IF(A" & i & "="""","""",IF(A" & i & "<5000,VLOOKUP(A" & i & ",table1,4,False),VLOOKUP(A" & i & ",table2,4,False))"
Worksheets("DevisEntreprise").Cells(i, 4).Formula = F_Objet
Worksheets("DevisEntreprise").Cells(i, 5).Formula = F_Prix
'Worksheets("DevisEntreprise").Cells(i + 1, 1).Select
End Sub |
