MACRO DEBUTANT copie d'une macro dans une feuille EXCEL

[urbanito1]

bonjour à la communauté,

je copie la macro historique dans mon fichier ( page 051-04 modifiée)
j'ai tjs la même anomalie
problème au niveau du nom util
je ne vois pas d'où vient le souci...
qui peut me dépanner?

grand merci
urbanito1

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Or Target.Column = 3 Or Target.Column = 7 Or Target.Column = 10 Or Target.Column = 12 Or Target.Column = 14 Then
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

 

[Fred0o]

Re : MACRO DEBUTANT copie d'une macro dans une feuille EXCEL

Bonjour urbanito1,

Dans ta copie, tu as juste "oublié" de recopier le contenu du Module1, à savoir la fonction NomUtil(). La voici, récupérée dans le fichier d'origine. A toi de la repalcer dans un module te ton nouveau fichier :

Function NomUtil()
   Set temp = CreateObject("WScript.Network")
   NomUtil = temp.UserName
End Function

A+

 

[gilbert_RGI]

Re : MACRO DEBUTANT copie d'une macro dans une feuille EXCEL

Bonjour

bonjour à la communauté,

je copie la macro historique dans mon fichier ( page 051-04 modifiée)
j'ai tjs la même anomalie
problème au niveau du nom util
je ne vois pas d'où vient le souci...
qui peut me dépanner?

grand merci
urbanito1

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Or Target.Column = 3 Or Target.Column = 7 Or Target.Column = 10 Or Target.Column = 12 Or Target.Column = 14 Then
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

NomUtil est une fonction

Function NomUtil()
   Set temp = CreateObject("WScript.Network")
   NomUtil = temp.UserName
End Function

il faut mettre cette fonction dans un module

 

[urbanito1]

Re : MACRO DEBUTANT copie d'une macro dans une feuille EXCEL

ok merci Fredo0 & Gilbert_RGI
bonne journée
urbanito1