XL 2010 Formule VBA

[Mimi]

Bonjour à tous,
Avec mes deux flèches j'avance d'un jour la cellule K3 jusque là tout va bien.
Seulement je voudrais savoir comment faire avec le bouton aujourd'hui revenir au jour d'aujourd'hui.
Je me sers de la cellule J3 pour faire plus ou moins un.
D'avance merci
Mimi

 

[Hieu]

Salut,

Comme ça :

Sub SemainePlus2()
Range("j3") = Range("j3") + 1
End Sub

Sub SemaineMoins2()
Range("j3") = Range("J3") - 1
End Sub

Sub cejour()
Range("j3") = Day(Now())
End Sub

 

[TooFatBoy]

Bonjour,

Je te propose de remplacer ta macro "Macro1" actuelle par celle-ci :

Sub Macro1()

    Range("A1") = Year(Now)
    Range("A2") = Month(Now)
    Range("J3") = Day(Now)

End Sub

 

[Mimi]

Bonjour à tous,
Vraiment sur ce site il y a des champions.
Merci beaucoup d'avoir pris un peu de votre temps pour aider des novices comme moi.
Encore merci
Mimi

 

[mapomme]

Bonjour à tous,

Sub Macro1()
  compteur = Date - DateSerial([a1], [a2], compteur)
  [j3] = compteur
End Sub

 

[Mimi]

Merci beaucoup