Discussion :

[jeff37]

Bonjour,

Je cherche tout simplement à insérer une formule dans une cellule en VBA.
Sans faire de copier/coller d'une cellule déjà existante mais en specifiant la formule "en dur".

Merci d'avance pour votre aide.

jeff

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
cells(1,1).FormulaLocal="=Somme(A2:B2)"
End Sub

Voila a toi de t'inspirer lol

[jeff37]

Merci mais je pense que je dois avoir une erruer au niveau de ma formule.

Voici ma formule "brute" telle que saisie directement dans la feuille Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(E4="";"";CONCATENATE(F4;" - ";N4))

Voici la même telle que je l'ai formaté ds mon code VBA (je suis dans le cadre d'une boucle):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(E" & i & "="""";"""";CONCATENATE(F" & i & ";" - ";N" & i & "))

Ma ligne de code complète :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 1).FormulaLocal = "=IF(E" & i & "="""";"""";CONCATENATE(F" & i & ";" - ";N" & i & "))"

A l'execution je me prend un Error Type Mismatch.

Kékivapa ?

[AlainTech]

Je vais (un peu) dévier du sujet mais...

N'est-il pas plus simple de rentrer une fois la formule (et donc pas besoin de variable) et de faire un FillDown après?

Il vaut mieux laisser faire à Excel ce pour quoi il est fait et faire en VBA ce qu'Excel ne fait pas.

[jeff37]

Effectivement c'est une solution à retenir sauf que je n'arrive tjrs pas à juste copier ma formule.

[AlainTech]

Essaye donc, en dehors de toute boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1).Formula = "=IF(E4="","",CONCATENATE(F4," - ",N4))"

Edit --> Désolé, posté sans tester. Voici la bonne syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1).Formula = "=IF(E4="""","""",CONCATENATE(F4,"" - "",N4))"

[jeff37]

Arghhhh ça marche ...
Et je viens de voir pourquoi.
Je n'avais pas "double-quoté" au niveau de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"" - ""

Merci pour ton aide !