formule macro de majoration 5%

[chermiti]

BONSOIR ,

j'ai le fichier excel suivant qui fait une formule de majoration de 5% chaque année, est ce que je peut avoir s'il vous plait cette meme formule en macro

 

[Staple1600]

Re : formule macro de majoration 5%

Bonsoir à tous


chermiti
Un simple up dans ton précédent fil suffirait, non ?
https://www.excel-downloads.com/threads/majoration-automatique-annuel-dun-montant-donnee.230000/

Quant au VBA, il te suffit d'utiliser l'enregistreur de macros quand tu sais ta formule pour avoir son équivalent VBA, non ?

 

[chermiti]

Re : formule macro de majoration 5%

excuser moi, tu m'a répondu dans l'autre topic "Oui, la multiplication par (1+majoration)- à condition que la majoration figure quelque part.
Il y a aussi la possibilité de joindre court un extrait anonymisé de votre fichier : le trombone dans les options avancées."

donc j'ai attaché l'extrait que vous vouler

 

[Staple1600]

Re : formule macro de majoration 5%

Re,

excuser moi, tu m'a répondu dans l'autre topic

Non, je n'ai pas participé à l'autre discussion...🙄

Et toi, tu as essayé l’enregistreur de macros comme suggéré précédemment ?

 

[chermiti]

Re : formule macro de majoration 5%

voila la formule que j'ai pu trouvé, veuillez me renseingner s'il vous plait si c'est la bonne

Sub majorationcolb5pc()
i = 3

While Cells(i, 1) <> ""
Cells(i, 2) = Cells(i - 1, 2) * 1.05
i = i + 1
Wend

End Sub

 

[Staple1600]

Re : formule macro de majoration 5%

Re

Personnellement, je verrai la chose comme ceci

Sub major()
With Range("B3:B" & Cells(Rows.Count, 1).End(3).Row)
.FormulaLocal = "=1,05*A3": .Value = .Value
End With
End Sub

 

[chermiti]

Re : formule macro de majoration 5%

merci staple je vais l'essayer🙂

 

[JCGL]

Re : formule macro de majoration 5%

Bonjour à tous,
Salut l'Agrafe,

Pour reprendre ta syntaxe :

Sub Majoration()
Dim Lig&
Lig = 3
While Cells(Lig, 1) <> ""
Cells(Lig, 2) = Cells(Lig, 1) * 1.05
Lig = Lig + 1
Wend
End Sub

A+ à tous

 

[Staple1600]

Re : formule macro de majoration 5%

Bonsoir JCGL

Histoire de...

Sub UneVariantePourLeFun()
Columns("A:A").Copy Columns("B:B")
With Cells(Rows.Count, Columns.Count)
.Value = 1.05: .Copy
Range("B3:B" & Cells(Rows.Count, 1).End(3).Row).PasteSpecial Operation:=xlMultiply: .ClearContents
End With
End Sub

 

[chermiti]

Re : formule macro de majoration 5%

merci à tous je vais les essayer