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

[Fermé]
Signaler
Messages postés
3
Date d'inscription
jeudi 22 novembre 2018
Statut
Membre
Dernière intervention
22 novembre 2018
-
Messages postés
3
Date d'inscription
jeudi 22 novembre 2018
Statut
Membre
Dernière intervention
22 novembre 2018
-
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

Messages postés
13120
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 octobre 2021
2 266
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
Messages postés
3
Date d'inscription
jeudi 22 novembre 2018
Statut
Membre
Dernière intervention
22 novembre 2018

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/
Messages postés
13120
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 octobre 2021
2 266
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

Messages postés
3
Date d'inscription
jeudi 22 novembre 2018
Statut
Membre
Dernière intervention
22 novembre 2018

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 !