Mise à jour de la date d'une cellule suite à l’exécution d'une macro

[MaxInpact]

Bonjour,

J'ai une macro qui prend des données dans une feuille pour les mettre dans un tableau sur une autre feuille.

Je voudrais que suite au clic sur cette macro, la date du jour se mette dans une cellule identifiée. Variante : la date se met à jour en allant chercher la date indiquée dans une cellule de son choix.

Pouvez-vous m'aider ?

Merci !

 

[JCGL]

Re : Mise à jour de la date d'une cellule suite à l’exécution d'une macro

Bonjour à tous,

Pour la date en A1 :

[A1] = Date

Pour un format particulier :

[A1] = Format(Date,"dddd dd mmmm yyyy")

Pour aller chercher la date dans une autre cellule

[A1]=[G5]

A + à tous

 

[MaxInpact]

Re : Mise à jour de la date d'une cellule suite à l’exécution d'une macro

Merci pour cette réponse mais je n'ai pas compris. Concrètement, je dois marquer quoi dans la cellule ?
[A1]=Date ? Cela ne fonctionne pas 🙁

 

[JCGL]

Re : Mise à jour de la date d'une cellule suite à l’exécution d'une macro

Bonjour à tous,

Ces lignes sont à déposer dans le code VBA...

"Concrètement" : dépose ton fichier...

A + à tous

 

[MaxInpact]

Re : Mise à jour de la date d'une cellule suite à l’exécution d'une macro

Sub DerniereValo_Nomi()

Worksheets("Nomi").Activate


' renseigne les valo
Worksheets("perf").Activate
For i = 0 To 1000

If Range("B1").Offset(i, 0).Value <> 0 Then

'check liste Nomi
For k = 1 To 150
If Range("B1").Offset(i, 0).Value = Range("nomi").Offset(k, 0).Value Then
Range("B1").Offset(i, 2).Value = Range("nom_valo").Offset(k, 0).Value
End If
Next k
End If
Next i

Range("M1").Offset(0, 0).Value = "Nomi :" & Date


End Sub

 

[MaxInpact]

Re : Mise à jour de la date d'une cellule suite à l’exécution d'une macro

On voit donc que le code :

Range("M1").Offset(0, 0).Value = "Nomi :" & Date

ne doit pas fonctionner car dans la case dédiée, la date ne change pas !

Merci de me dire comment arranger le code pour que dans la case dédié, la bonne date s'affiche.

 

[JCGL]

Re : Mise à jour de la date d'une cellule suite à l’exécution d'une macro

Bonjour à tous,

Peux-tu tester le fichier joint ?

Sub Test()
Range("M1") = "Nomi : " & Date
End Sub

est suffisant : .Offset(0, 0) demande un décalage de 0 ligne et 0 colonne

A + à tous