Bonjour, gros souci


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
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
En fait quand dans F_Objet et F_Prix j'enleve le "=" ça fonctionne seulement ducoup dans mon tableau ben c'est pas une formule c'est du simple texte. Mais quand je laisse le "=" j'ai un message d'erreur et rien ne s'inscrit !

J'ai essayé avec .value et .formula mais aucun ne marche...

Help ?