Heure automatique

Bonjour,

«Je voudrais savoir si il est possible de mettre le jour et l'heure automatiquement ?»
Oui avec du code VBA.

« en cliquant sur les cellules avec la souris ?»
Oui mais uniquement avec le clic droit, car Excel ne détecte pas le simple clic gauche (autrement, on pourrait utiliser le double gauche, ou le changement de cellule).

«et que l'on puisse pas y revenir pour la changer ?»
Oui mais il faut déverrouiller les cellules autorisées (clic droit / format de cellule / onglet Protection : décocher Vérrouillée) et protéger la feuille (Révision / Protéger la feuille), sans mot de passe (ça sert à rien !).

Exemple de code à copier dans le module de feuille (copier le code ci-dessous / clic droit sur l'onglet / visualiser le code / coller)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range

  'Pas d'action en cas de sélection de plusieurs cellules
  If Target.Count > 1 Then Exit Sub
  'Pas d'action si la cellule est verrouillée
  If Target.Locked Then Exit Sub
  'Définir la plage des cellules susceptibles de recevoir l'information
  Set rng = [B2:C5,E1:G10]
  'Pas d'action hors plage autorisée
  If Intersect(Target, rng) Is Nothing Then Exit Sub
  'Optionnel : Annuler l'effet du clic droit (pas de menu contextuel)
  Cancel = True
  'Oter la protection de la feuille
  ActiveSheet.Unprotect
  'Ecrire la date et l'heure dans la cellule
  Target.Value = Now
  'Vérrouiller la cellule
  Target.Locked = True
  'Protéger la feuille
  ActiveSheet.Protect
  
End Sub

Salut,

une autre approche toujours en VBA, clic droit sur une cellule de la plage A1:I20, la date et heure sont saisie dans la cellule active et la cellule se verrouille.
si on souhaite modifier la saisie, double clic sur la cellule verrouillée elle est accessible avec mot de passe qui dans tous les cas est open

https://www.cjoint.com/?BJyvHESDSb4

Salut,

Merci à tous les 2 de vous être investi aussi rapidement et c'est tout à fait ce que je recherchais

encore merci à vous et vive le Forum

j'ai un gros problème, c'est que je ne peux pas utiliser la macro comme je voudrais, je m'explique,

elle ne m'accepte pas d'autres cellules, par exemple je voudrais de A4:A35, et là ça beug

un autre exemple sur plusieurs colonnes espacées,(Target, Range("A4:A34")(c4:c34)(d4:d34))) ????

Je suis dans l'impasse, j'ai beau essayer mais ça me beug avec ce message Target.Locked = True sur fond jaune

Re,

quel code utilises tu, celui de Patrice que je salue ou le mien

le tien

Re,

teste ce fichier voir s'il répond à tes attentes. Pour faciliter les test j'ai ajouté un bouton que nous traiteront plus tard avec une protection par mot de passe si tu veux le conserver, mais dans un premier temps il permet de réinitialiser les plages

https://www.cjoint.com/?BJzlNXmPh2V

c'est tout simplement GÉNIAL, le bouton est super interessant, comme ça, cela me permettra de faire un pdf à la fin de chaque mois, de réinitialiser et d'économiser du papier, puisqu'il faut absolument préserver la nature

Re,

alors tu attends un peu avant ce soir je compléte le bouton avec un mot de passe pour éviter un effacement accidentel de tes données

Allez vite fait sur le café, regarde si ça te va

https://www.cjoint.com/?BJznltYZIOU

c'est GÉNIAL ce que tu m'a fait, pourrait tu me libérer le bouton de sorte que je le mette ou je veux, je ne l'ai pas trouvé sur ta macro

Re,

Quel est ta version Excel,
Si c'est 2007 ou 2010 as tu l'onglet développeur dans ton ruban, il est juste après celui de Révision et Affichage

c'est bizarre, j'ai le 2010 et je n'ai pas developpeur

je viens de le trouver dans "options", il n'est pas mis par défaut

encore mille merci pour tout Mike

je mets en resolu