Discussion :

[Antoine S.]

Bonjour,

J'aimerais pouvoir entrer des formules dans des cellules de tableau Excel. Notamment pouvoir créer de nouvelles colonnes, donner un nom d'en-tête à ces colonnes puis pouvoir entrer des formules et les étendre jusqu'en bas. Tout cela avec un code VBA.

Merci de votre aide !

[Philippe Tulliez]

Bonjour,
J'ai écrit deux billets sur ce sujet

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[Antoine S.]

Bonjour,
J'ai écrit deux billets sur ce sujet

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

C'est parfait, merci !

Antoine

[Tête de chat]

Bonjour,

de mon point de vue, c'est rarement une bonne idée d'encoder une formule depuis le VBA, surtout quand on a affaire à des formules (très) complexes.
La solution que j'utilise quand j'ai besoin de poser des formules en VBA consiste à les mettre quelque part dans une feuille (une ligne cachée, une feuille paramètres...
Ça permet de mettre au point tranquillement la formule, de pouvoir facilement la tester, ou d'en assurer facilement la maintenance, indépendamment du code qui en fait la duplication.
Ensuite la copie se fait simplement par :

Code :

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

RangeCible.FormulaR1C1 = RangeSource.FormulaR1C1

ou

Code :

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

1
2
RangeSource.Copyr
RangeCible.PasteSpecial xlPAsteFormulas

[Antoine S.]

Bonjour,

de mon point de vue, c'est rarement une bonne idée d'encoder une formule depuis le VBA, surtout quand on a affaire à des formules (très) complexes.
La solution que j'utilise quand j'ai besoin de poser des formules en VBA consiste à les mettre quelque part dans une feuille (une ligne cachée, une feuille paramètres...
Ça permet de mettre au point tranquillement la formule, de pouvoir facilement la tester, ou d'en assurer facilement la maintenance, indépendamment du code qui en fait la duplication.
Ensuite la copie se fait simplement par :

Code :

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

RangeCible.FormulaR1C1 = RangeSource.FormulaR1C1

ou

Code :

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

1
2
RangeSource.Copyr
RangeCible.PasteSpecial xlPAsteFormulas

C'est une bonne idée aussi, merci !