VBA pour MAC: rajouter la fonction TODAY

Bonjour le forum,

Voici le code d’une macro qui fonctionne bien (merci vba-new). Je ne sais pas comment on écrit le code VBA et c’est pourquoi je pose ma demande : est-ce que quelqu’un pourra m’aider en rajoutant le code nécessaire pour avoir la date d’aujourd’hui au format jj-mmm-aa dans la cellule E6 ?

Sub Effacer()
    Dim Num As Integer
    Num = Range("D6")
    Range("D6:M6").Select
    Selection.ClearContents
    Range("U62:Z62").Select
    Selection.ClearContents
    Range("K7:M45").Select
    Selection.ClearContents
    Range("O6:U45").Select
    Selection.ClearContents
    Range("W3:W5").Select
    Selection.ClearContents
    Range("Y6:Z45").Select
    Selection.ClearContents
    Range("D6") = Num + 1
End Sub

Je vous merci en avance,

Baton

Bonjour

Voici ta macro:

Sub Effacer()
    Dim Num As Integer
    Num = Range("D6")
    Range("D6:M6,U62:Z62,K7:M45,O6:U45,W3:W5,Y6:Z45").ClearContents
    Range("D6") = Num + 1
    Range("E6") = Format(Now, "DD-MM-YYYY")
End Sub

beaucoup!

ça marche bien