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
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
Voila a toi de t'inspirer lol
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub test() cells(1,1).FormulaLocal="=Somme(A2:B2)" End Sub
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 :
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(E4="";"";CONCATENATE(F4;" - ";N4))
Ma ligne de code complète :
Code : Sélectionner tout - Visualiser dans une fenêtre à part =IF(E" & i & "="""";"""";CONCATENATE(F" & i & ";" - ";N" & i & "))
A l'execution je me prend un Error Type Mismatch.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cells(i, 1).FormulaLocal = "=IF(E" & i & "="""";"""";CONCATENATE(F" & i & ";" - ";N" & i & "))"
Kékivapa ?![]()
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.
N'oubliez pas de cliquer surquand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
Effectivement c'est une solution à retenir sauf que je n'arrive tjrs pas à juste copier ma formule.
Essaye donc, en dehors de toute boucle:
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))"
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cells(1, 1).Formula = "=IF(E4="""","""",CONCATENATE(F4,"" - "",N4))"
N'oubliez pas de cliquer surquand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
Arghhhh ça marche ...
Et je viens de voir pourquoi.
Je n'avais pas "double-quoté" au niveau de :Merci pour ton aide !
Code : Sélectionner tout - Visualiser dans une fenêtre à part "" - ""
Partager