Retrouver une heure de saisie

[sellig 29]

Bonne année à vous tous,

Est il possible de créer une sorte de journal de fond pour une plage de cellules, permettant de connaitre cellule par cellule, l'heure de la dernière saisie?

 

[pierrejean]

Re : Retrouver une heure de saisie

bonjour sellig 29

Vois si cela te convient

 

[BOISGONTIER]

Re : Retrouver une heure de saisie

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModification.xls
http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModif.xls
http://boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModifiees.xls

JB
Formation Excel VBA JB

 

[sellig 29]

Re : Retrouver une heure de saisie

Merci cela correspond à ma demande, mais j'ai un petit soucis, lorsque je veux adapter la macro à mon fichier. J'ai un message "erreur de compilation, variable non définie"

 

[soenda]

Re : Retrouver une heure de saisie

Bonjour et Bonne Année à tous

@Selig:

J'ai un message "erreur de compilation, variable non définie"

Cela signifie que tu utilises une variable qui n'a pas été déclarée, dans un module tournant avec "Option Explicit".

Si tu utilises le code de pierrejean, rajoutes la ligne suivante au début de la procédure "Worksheet_Change":

Dim n As Range

A plus

 

[soenda]

Re : Retrouver une heure de saisie

Re,

@Boisgontier :

Merci pour tes liens, très utiles et très pédagogiques.

Bonne année à tous

 

[JCGL]

Re : Retrouver une heure de saisie

Bonjour à tous,

Dim as Long me semble plus judicieux

Les variables de type Long (entier long) sont stockées sous la forme de nombres signés de 32 bits (4 octets) dont la valeur est comprise entre -2 147 483 648 et 2 147 483 647. Le caractère de déclaration de type Long est le signe &.


A+

 

[sellig 29]

Re : Retrouver une heure de saisie

Cela ne fonctionne pas mieux. J'ai un message "cette action va réinitialiser votre projet", le fichier se ferme et rien ne s'enregistre

 

[soenda]

Re : Retrouver une heure de saisie

Re,

@JCGL

Dim as Long me semble plus judicieux

Effectivement, n représentant la dernière ligne de la plage,
je suis encore une fois à la ramasse... Mea Culpa.

Merci pour la correction

Bonne année à tous

 

[JCGL]

Re : Retrouver une heure de saisie

Bonjour à tous,

Peux-tu tester ce fichier de PJ 🙂, avec ajout de la déclaration de variable en Long

A+

 

[sellig 29]

Re : Retrouver une heure de saisie

Merci JCGL mais je n'y arrive toujours pas. Je joins le fichier à adapter en pièce jointe, si tu peux jeter un oeil? Je fais mes premiers pas dans VBA, j'ai quasiment tout à apprendre...

 

[JCGL]

Re : Retrouver une heure de saisie

Bonjour à tous,

Quelles sont les cellules que tu souhaites archiver ?

A+

 

[sellig 29]

Re : Retrouver une heure de saisie

Le fichier joint n'est pas l'original car trop lourd. Archive des cellules F9 à F116 dans la même feuille "alerte sonore" colones IT et IU

 

[JCGL]

Re : Retrouver une heure de saisie

Bonjour à tous,

Peux-tu tester ce fichier ?

Private Sub Worksheet_Change(ByVal Target As Range) 'd'après Pierre-Jean sur XLD
Dim n As Long
If Target.Column = 6 And Target.Row >= 9 And Target.Row <= 119 Then
  n = Sheets("Alerte Sonore").Range("IT65536").End(xlUp).Row + 1
  Sheets("Alerte Sonore").Range("IT" & n) = Now
  Sheets("Alerte Sonore").Range("IU" & n) = Target.Address(0, 0)
End If
End Sub

A+

 

[sellig 29]

Re : Retrouver une heure de saisie

J'ai un message d'erreur "erreur d'exécution '9' l'indice n'appartient pas à la sélection"