Discussion :

[Adweuz]

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 ?

[Godzestla]

Bonjour,

la ruse est parfois une excellente aide.

Tu encodes cette formule dans une cellule quelconque.
Quand elle est au point, tu démarres l'enregistreur de macro, puis tu fais <F2> sur ta cellule en question.

Dans la macro enregistrée, tu as le code de la fonction à qq détails près.
Il est possible que ta formule apparaisse avec une autre variante de Formula (Local, R1C1,...), mais... quelle importance.

[Adweuz]

En utilisant le début de ta technique à savoir recopier déjà la formule dans une cellule je me suis rendu compte qu'il manquait une parenthèse à la fin

Mon problème découlait simplement de ça... quelle honte -_-

Merci beaucoup à toi en tout cas !