heure automatique Résolu/Fermé

Question

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


Configuration: Windows XP / Firefox 16.0

Patrice33740 · Answer

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

Mike-31 · Answer

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

narvalot · Answer

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

narvalot · Answer

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

Mike-31 · Answer

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

narvalot · Answer

le tien

Mike-31 · Answer

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

narvalot · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

Allez vite fait sur le café, regarde si ça te va

https://www.cjoint.com/?BJznltYZIOU

narvalot · Answer

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

Mike-31 · Answer

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

narvalot · Answer

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

narvalot · Answer

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

Heure automatique

14 réponses

Discussions similaires