Historique

Bonjour,

Je souhaiterais mettre en place l'historique de saisie de modification en utilisant ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 3 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 & _
           Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
             " Le " & Now & vbLf
       Target.Comment.Shape.TextFrame.AutoSize = True
     End If
     Application.EnableEvents = True
End Sub

or j'ai 2 problèmes:

1: ce code ne fonctionne que sur la colonne 3 or j'aurai aimer qu'elle fonctionne de la colonne 3 jusqu'à la colonne 34

2: au lieu de "Environ("UserName") " il faudrait que le programme aille chercher l'identifiant tapé dans mon première userform (qui permet à l'utilisateur de voir que les onglets qui le concerne)

Hello,

Pour les colonnes, remplace ton code par celui-ci :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
For i = 3 To 34
  Application.EnableEvents = False

  If Target.Column = i 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 & _
           Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
             " Le " & Now & vbLf
       Target.Comment.Shape.TextFrame.AutoSize = True
     End If
     Next i
     Application.EnableEvents = True

End Sub

En ce qui concerne la seconde demande, merci de poster le fichier

Merci pour ton aide voici mon fichier sachant que pour l'instant le code n'est que sur la feuille "01 2014 NUIT"

OUPS petit oubli

le mot de passe : ADMIN

Identifiant : ADMIN