XL 2013 Erreur de compilation

eutrophisation · 26 Octobre 2022

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 · 26 Octobre 2022

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 · 26 Octobre 2022

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

Staple1600 · 26 Octobre 2022

Bonjour @mapomme

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

eutrophisation · 26 Octobre 2022

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

mapomme · 26 Octobre 2022

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 · 26 Octobre 2022

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 · 26 Octobre 2022

@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 · 26 Octobre 2022

Staple1600 à dit:
@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 · 26 Octobre 2022

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 · 26 Octobre 2022

Staple1600 à dit:
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 · 26 Octobre 2022

Je m'en excuse.

XL 2013 Erreur de compilation

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

eutrophisation

XLDnaute Occasionnel

Discussions similaires