Associer deux macros debutant

[urbanito1]

Bonjour à la communauté,


j'ai un fichier excel avec 10 feuilles
la première feuille contient la macro historique ( je l'ai trouvée sur le site )

je voudrais insérer à la feuille 10 ( liste 9 ) cette macro ( origine Boisgontier)
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6 Or Target.Column = 21 Or Target.Column = 24 Or Target.Column = 28 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


Je n'y arrive pas,
qui peut me montrer
merci bien
urbanito

 

[Robert]

Re : Associer deux macros debutant

Bonjour Urbanito, bonjour le forum,

• copie le code de Jacques BOISGONTIER
• clique avec le bouton droit sur le nom de ton onglet LISTE 9 (en bas)
• choisis l'option Visualiser le code
• colle le code
• enregistre
• ferme VBE (Visual Basic Editor) à l'aide du raccourci [alt]+[F11]...

 

[urbanito1]

Re : Associer deux macros debutant

bonjour Robert, merci, le Forum
j'ai un autre petit souci

message d'erreur de compilation

j'ai scanné le message

d'où peut provenir l'anomalie?

Merci
Urbanito

 

[Robert]

Re : Associer deux macros debutant

Bonjour Urbanito, bonjour le forum,

C'est normal que ça plante. Le tableau de variables NomUtil() n'a pas été ni déclaré ni défini dans le code... Soit tu supprimes le code correspondant, soit tu cherches (là où tu a récupéré le code de Jacques BOISGONTIER) la définition de ce tgableau de variable, soit tu définis NumUtil comme étant le nom de l'utilisateur...
Le code avec le nom de l'Utilisateur :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NomUtil As String

Application.EnableEvents = False
NomUtil = Application.UserName
If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6 Or Target.Column = 21 Or Target.Column = 24 Or Target.Column = 28 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

Le code sans la variable :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6 Or Target.Column = 21 Or Target.Column = 24 Or Target.Column = 28 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 & " 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

 

[urbanito1]

Re : Associer deux macros debutant

Extra Robert
j'ai essayé avec les deux codes
merci
je poursuis ma démarche
urbanito