Question macro

[BRUNO62]

Bonsoir,

J'ai une macro qui fonctionne bien, je souhaiterai qu'à chaque changement de mois cette formule soit modifiée automatiquement.

Ex/ 12 avril (4) ; 01 juin (6)

Range("D4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*4"

Est ce possible ?
Bonne soirée.
A+

 

[Hulk]

Re : Question macro

Hello Bruno,

Peut-être un truc du style...

Private Sub CommandButton1_Click()

Dim x As Date

x = Now

'ou

'x = CDate("12.04.2010")


Range("D4").Value = Range("D4").Offset(0, -1).Value * Month(x)

End Sub

Donc en D4, il affiche C4 multiplié par le nombre du mois voulu.

 

[BRUNO62]

Re : Question macro

Bonjour, bonjour Hulk.

J'ai intégré ta solution dans ma macro.
C'est ok.
Je suis heureux. Merci !
Bonne journée.
A+