XL 2013 Erreur de compilation

eutrophisation

XLDnaute Occasionnel
Bonjour,

Je souhaiterais que vous m'aidiez à résoudre cette erreur de compilation. Je n'ai pas réussi à trouver la faille. J'aurais aimé avoir à la fois la date de mes saisie de mes données ainsi que les commentaires datées attachés automatiquement à mes cellules.
Voici mes deux codes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target > "" Then
Target.Offset(0, 1) = Now()
Else
Target.Offset(0, 1) = ""
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 6 And Target.Count = 1 Then ' colonne 3 seulement
If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & " Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

Résultat nom ambigu détecté.

Merci d'avance pour votre aide.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Peut-être :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 2 And Target.Count = 1 Then Target.Offset(0, 1) = Now() Else Target.Offset(0, 1) = ""
   If Target.Column <> 6 And Target.Count = 1 Then
      If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
      Target.Comment.Text Text:=Target.Comment.Text & _
      Target.Value & " Modifié par:" & Environ("UserName") & _
      " Le " & Now & vbLf
      Target.Comment.Shape.TextFrame.AutoSize = True
   End If
End Sub
 

mapomme

XLDnaute Barbatruc
Supporter XLD
RE,

Essayez ceci :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error GoTo Erreur
   Application.EnableEvents = False
   If Target.Column = 2 And Target.Count = 1 Then If Target = "" Then Target.Offset(0, 1) = Now() Else Target.Offset(0, 1) = ""
   If Target.Column <> 6 And Target.Count = 1 Then
      If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
      Target.Comment.Text Text:=Target.Comment.Text & _
      Target.Value & " Modifié par:" & Environ("UserName") & _
      " Le " & Now & vbLf
      Target.Comment.Shape.TextFrame.AutoSize = True
   End If
Erreur:
   Application.EnableEvents = True
End Sub
 

eutrophisation

XLDnaute Occasionnel
En effet dans la cellule saisie apparait le commentaire muni de la date et de l'heure de la saisie. Je souhaiterais qu'en plus du commentaire juste dans la cellule de droite soit inscrit la date et heure de saisie, afin d'effectuer des calculs mensuels.
Merci pour votre aide précieuse.
 

Discussions similaires

Réponses
3
Affichages
457
  • Résolu(e)
XL 2021 macro
Réponses
9
Affichages
428

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40