XL 2010 Formule VBA

H

Hieu

XLDnaute Impliqué

• 3 Avril 2017

• #2

Salut,

Comme ça :

VB:

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 4 Avril 2017

• #3

Bonjour,

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

VB:

Sub Macro1()

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

End Sub

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 4 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Avril 2017

• #5

Bonjour à tous,

Code:

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 4 Avril 2017

• #6

Merci beaucoup

 

Vote positif 0 Vote négatif