Erreur "La méthode range de l'objet worksheet a échoué" et je ne compr

zaiussius Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
zaiussius Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voici mon code pour changer la date et l'heure de la dernière mise à jour lors d'un changement effectué dans mon tableau :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
ActiveSheet.Range("C2").Value = "Dernière Mise à jour le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub

Mais erreur "la méthode range de l'objet worksheet à échoué

Alors que la fonction marche bien puisque et la date se met bien à jour.

Des idées ? :D

Merci de votre aide.

Configuration: Windows / Internet Explorer 11.0

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour

Sans le fichier réel on ne peut pas dire ce qui bug (feuille protégée, mauvaise adresse ..)
Poste u exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici

Cdlmnt
Via
0
zaiussius Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Voici mon fichier.

L'idée c'est quand je modifie une cellule de mon tableau la date se met à jour.

Donc ça fonctionne LOL mais pas sans bug!

https://mon-partage.fr/f/xcVkpGTZ/
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Re

C'est plutôt un événement lié au changement dans la feuille à partir de la colonne D
Supprime ta macro et mets celle ci dans le worksheet de la feuille concernée (double clic sur nom feuille dans arborescence VBA)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 4 Then
ActiveSheet.Range("C2").Value = "Dernière Mise à jour le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End If
End Sub

0
zaiussius Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup pour ton retour.

Bon ça fonctionne mais pas comme je le souhaite.

Je m'explique : quand je me balade dans le fichier excel et bah ça met à jour l'heure de MàJ alors que moi j'aurais souhaité que cela se mette à jour uniquement quand je modifie une cellule du tableau...

EDIT : J'ai modifié le SelectionChange par Change et ça fonctionne :D.

Merci encore pour l'aide !
0