Heure automatique

[Résolu/Fermé]
Signaler
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018
-
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018
-
Bonjour le Forum,

Je voudrais savoir si il est possible de mettre le jour et l'heure automatiquement en cliquant sur les cellules avec la souris et que l'on puisse pas y revenir pour la changer, si cela est le cas, pourriez vous m'orienter svp

Je suis sur excel 2010

Je vous remercie par avance

Cordialement


14 réponses

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 704
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

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
17602
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 octobre 2021
4 787
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
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

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
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

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
Messages postés
17602
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 octobre 2021
4 787
Re,

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

Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

le tien
Messages postés
17602
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 octobre 2021
4 787
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
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

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
Messages postés
17602
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 octobre 2021
4 787
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
Messages postés
17602
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 octobre 2021
4 787
Allez vite fait sur le café, regarde si ça te va

https://www.cjoint.com/?BJznltYZIOU
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

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
Messages postés
17602
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 octobre 2021
4 787
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
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

c'est bizarre, j'ai le 2010 et je n'ai pas developpeur
Messages postés
117
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
24 septembre 2018

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