Microsoft 365 Écrire une Formule de calcul avec macro

don_pets

XLDnaute Occasionnel

• 9 Août 2023

• #2

Hello,

c'est marrant ton truc.

Je te prépare une soluce

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 9 Août 2023

• #3

Voila, j'ai fait au plus simple,

voici les deux codes utilisés en fonction de ce que tu veux recalculer

VB:

With Sheets(1)
    Range("I12").FormulaR1C1 = "=NPER(R[-3]C/12,RC[-4],0,RC[-2]*-1,0)/12"
    Range("I12").Copy
    Range("I12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

With Sheets(1)
    Range("E12").FormulaR1C1 = "=PMT(R[-3]C[4]/12,RC[4]*12,0,RC[2],0)*-1"
    Range("E12").Copy
    Range("E12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

 

Pièces jointes

• Classeur1 (1).xlsm

  22.5 KB · Affichages: 8

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 9 Août 2023

• #4

bonjour,

très intéressante ta soluce, merci beaucoup, mais avant de l'utiliser, pourrais tu me confirmer si c'est possible d'éviter les CommandButton et d'utiliser plutôt Selection_change ou Worksheet_Change(ByVal Target As Range), en tous cas c'est déjà super sympa !

merci beaucoup

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Août 2023

• #5

Bonjour.
Je dirais, dans le module Feuil1 (Feuil1) :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Select Case Target.Address
      Case "$E$12": Target.Value = Target.Value: Me.[I12].FormulaR1C1 = "=NPER(R9C/12,RC5,0,-RC7,0)/12"
      Case "$I$12": Target.Value = Target.Value: Me.[E12].FormulaR1C1 = "=-PMT(R9C9/12,R12C9*12,0,R12C7,0)"
      End Select
   End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Août 2023

• #6

Bonjour à tous

Ma version

 

Pièces jointes

• Calcul V1.xlsm

  19.8 KB · Affichages: 7

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 10 Août 2023

• #7

Bonjour le forum,

un grand merci à tous pour votre aide !
Après réflexion et quelques tests en situation, j'opte finalement pour la soluce de Don Pets avec les boutons car cette soluce me permet de réinitialiser (vider) les cellules concernées et de les remplir dans n'importe quel ordre

j'ai simplement adapté les formules R1C1 en FormulaLocal , c'est beaucoup plus simple pour moi :
-----
Range("I12").FormulaLocal = "=NPM(I9/12;E12;0;G12*-1;0)/12"
-----
Range("E12").FormulaLocal = "=VPM(I9/12;I12*12;0;G12*-1;0)"
------

encore merci à tous

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Août 2023

• #8

Bonjour,

pat66 à dit:

j'ai simplement adapté les formules R1C1 en FormulaLocal , c'est beaucoup plus simple pour moi :

Cliquez pour agrandir...

Vous croyez ? Si vous passez sur un Excel anglais ça ne marchera plus.

A+

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 10 Août 2023

• #9

Bonjour,

oui je sais, mais j'ai passé hier plus de 3 h à essayer de comprendre le principe de FormulaR1C1, hélas j'ai du abandonné car j'ai du mal à comprendre comment modifier les cellules à prendre en compte et très franchement je ne pense pas qu'office supprime la version française bientôt

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 10 Août 2023

• #10

Re

J'avais cru comprendre que tu voulais que cela soit automatique car tu as écris cela dans ton fichier



D’où ma solution sans bouton

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Août 2023

• #11

pat66 à dit:

oui je sais, mais j'ai passé hier plus de 3 h à essayer de comprendre le principe de FormulaR1C1,

Cliquez pour agrandir...

Au lieu de FormulaLocal utilisez Formula.

En remplaçant le point-virgule par la virgule.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 10 Août 2023

• #12

Phil69970 à dit:

Re

J'avais cru comprendre que tu voulais que cela soit automatique car tu as écris cela dans ton fichier

Regarde la pièce jointe 1176262

D’où ma solution sans bouton

Cliquez pour agrandir...

Bonjour Phil69970,
effectivement mais lorsque j'ai voulu vider les cellules des erreurs sont apparues alors je me suis rabattu sur la solution de don_pets, mais je vais voir à l'utilisation mon choix n'est pas définitif...

merci

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 10 Août 2023

• #13

job75 à dit:

Au lieu de FormulaLocal utilisez Formula.

En remplaçant le point-virgule par la virgule.

Cliquez pour agrandir...

Ok , je vais essayer et suivre vos conseils

merci

 

Vote positif 0 Vote négatif