urbanito1
XLDnaute Occasionnel
Bonsoir à la communauté,
je m'initie aux macros
j'ai la macro de Boisgontier historique
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 Then ' colonne 3 seulement
On Error Resume Next ' active la gestion d'erreur
Err = 0
temp = Target.Comment.Text ' Commentaire existe t-il?
If Err <> 0 Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & " Modifié par:" & NomUtil() & _
" Le " & Now & vbLf
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
On Error GoTo 0 ' désactive la gestion d'erreurs
End If
Application.EnableEvents = True
End Sub
initialement c'était la colonne 3 qui devait afficher les modifs
en changeant 4 ou 5 ...colonne ok
dois-je changer colonne 3 seulement
comment faire pour qu'il tienne compte de plusieurs colonnes
exemple : colonne 1, colonne 3 et colonne 7
merci bien
je m'initie aux macros
j'ai la macro de Boisgontier historique
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 Then ' colonne 3 seulement
On Error Resume Next ' active la gestion d'erreur
Err = 0
temp = Target.Comment.Text ' Commentaire existe t-il?
If Err <> 0 Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & " Modifié par:" & NomUtil() & _
" Le " & Now & vbLf
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
On Error GoTo 0 ' désactive la gestion d'erreurs
End If
Application.EnableEvents = True
End Sub
initialement c'était la colonne 3 qui devait afficher les modifs
en changeant 4 ou 5 ...colonne ok
dois-je changer colonne 3 seulement
comment faire pour qu'il tienne compte de plusieurs colonnes
exemple : colonne 1, colonne 3 et colonne 7
merci bien