formule avec VBA pour une plage de cellules

Question

Cher communauté Overflow

`d aiment ajouter une formule certaines cellules (4, x), pour chaque feuille (sh). Je cours le sub dans une boucle for-up dans le code principal, qui traverse chaque colonne (a). J'ai essayé beaucoup de choses, mais malheureusement, mon code juste ne courrai pas:

Sub InsertFormula(ByVal sh As Worksheet, ByVal a As Long) 

Formel = "=TEXT(" & a & "$1;'TTT')" 
sh.Cells(4, a).Formula = Formel 

End Sub 

EDIT:

Sub InsertFormula(ByVal sh As Worksheet, ByVal a As Long) 

Formel = "=TEXT(R1C" & a & ",""TTT"")" 
sh.Cells(4, a).FormulaR1C1 = Formel 

End Sub 

Merci beaucoup, fonctionne parfaitement

Answer 1

En VBA vous avez besoin des virgules pour fonction séparée arguments dans les formules indépendamment de vos paramètres locaux. (Vous pouvez le contourner en utilisant .FormulaLocal mais je ne le recommande pas car il pourrait ne pas fonctionner sur d'autres machines)

En outre, comme l'a noté Shai Rado, vous utilisez un nombre comme nom de colonne. Dans ce cas, j'utiliser le format R1C1 de sorte que vous n'avez pas à convertir le nombre dans une lettre, à savoir

Formel = "=TEXT(R1C" & a & ",""TTT"")" 
sh.Cells(4, a).FormulaR1C1 = Formel 

Answer 2

Cela prend la lettre de la colonne par opposition au numéro de colonne. Aussi j'ai changé la formule à utiliser " au lieu de ' et de corriger la formule TEXT que ces deux font partie de la raison pour laquelle la formule ne parvenait pas

Sub InsertFormula(ByVal sh As Worksheet, ByVal Col As String) 
    Dim Formel As String 

    Formel = "=TEXT(" & Col & "$1,""TTT"")" 
    sh.Range(Col & "4").Formula = Formel 

End Sub 
Sub test() 
    Call InsertFormula(ActiveSheet, "A") 
End Sub 

Answer 3

Juste essayer de surmonter votre problème: mettre Formel directement sans utiliser mot-clé .formule

Sub InsertFormula(ByVal sh As Worksheet, ByVal a As Long) 

Formel = "=TEXT(R1C" & a & ",""TTT"")" 
sh.Cells(4, a) = Formel 

End Sub