Afficher le résultat d'une macro

Fermé
marco_bachar Messages postés 2 Date d'inscription jeudi 24 mai 2018 Statut Membre Dernière intervention 24 mai 2018 - Modifié le 24 mai 2018 à 11:52
marco_bachar Messages postés 2 Date d'inscription jeudi 24 mai 2018 Statut Membre Dernière intervention 24 mai 2018 - 24 mai 2018 à 12:40
Bonjour ,
SVP ,j'ai une macro qui affiche la date et heure dans la cellule "C14" ,et j'aimerais qu'il s'affiche dans une cellule sélectionnée dans la colonne C dés que je clic sur le button de macro voici le code :

     Sub bachir()
Dim datejour
datejour = Now()
    aujourdhui = DateValue(datejour)
 Range("C14").Value = datejour
End Sub



Merci

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
24 mai 2018 à 12:21
Bonjour,

Plus simplement, sans bouton, avec un simple clic droit sur la ou les cellules sélectionnées de la colonne C :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Columns.Count = 1 And Target.Column = 3 Then
    Target.Value = Now: Cancel = True
  End If
End Sub

Code à placer dans le module de la feuille concernée : copier le code, clic droit sur l'onglet, visualiser le code ..., coller)

0
marco_bachar Messages postés 2 Date d'inscription jeudi 24 mai 2018 Statut Membre Dernière intervention 24 mai 2018
24 mai 2018 à 12:40
Merci patrice ,
l'astuce est plus simple j'ai essayé avec ce code et ça marche
ActiveCell.Value = datejour au lieu de Range("C14").Value = datejour
car je veux calculer la cadence de la journée par heure
merci une deuxième fois
0