Afficher le résultat d'une macro

marco_bachar Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
marco_bachar Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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.

1 réponse

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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
    1. marco_bachar Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
       
      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