XL 2013 Erreur de compilation

[eutrophisation]

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.

 

[Staple1600]

Bonjour @eutrophisation

Il ne peut y avoir qu'une seule procédure Worksheet_Change()
dans le code de la feuille

Il faut donc fusionner les deux codes en un seul.

 

[mapomme]

Bonjour à tous,

Peut-être :

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

 

[Staple1600]

Bonjour @mapomme

Merci d'avoir confirmé par l'exemple ce que je disais dans le message#2.

 

[eutrophisation]

Désolé, erreur d'exécution. Merci pour la tentative.

 

[mapomme]

RE,

Essayez ceci :

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]

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.

 

[Staple1600]

@eutrophisation
Je suis transparent ?
Ou c'est juste une idée que je me fais ?
Je me pose la question car pas de réaction (ni de salutations)
cf le message#2

 

[eutrophisation]

@eutrophisation
Je suis transparent ?
Ou c'est juste une idée que je me fais ?
Je me pose la question car pas de réaction (ni de salutations)
cf le message#2

Mes propos sont animés de bonnes intentions.

 

[Staple1600]

Re

@eutrophisation

Mes propos sont animés de bonnes intentions.

Les miens aussi
Simplement, je t'ai salué dans le message#2 et t'ai expliqué le pourquoi du message d'erreur
Et je n'ai lu aucun feedback de ta part à mes réponses
D'où le message#8.

 

[eutrophisation]

Re

@eutrophisation

Les miens aussi
Simplement, je t'ai salué dans le message#2 et t'ai expliqué le pourquoi du message d'erreur
Et je n'ai lu aucun feedback de ta part à mes réponses
D'où le message#8.

 

[eutrophisation]

Je m'en excuse.