Erreur de compilation : noms ambigus

Bonjour,

Je suis tout débutant en VBA, je m'occupe d'un tableur sur lequel je dois tenir des dates, pour me faciliter le travail, j'ai trouvé ces quelques lignes de codes qui me permettent donc de saisir la date automatiquement après le saisie d'une cellule en A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
    If Target(1) <> "" Then Target(1).Offset(, 6) = Date
End If
End Sub

Le soucis c'est que je dois appliquer le même code sur le même tableur mais à des coordonnées différentes, j'ai donc ajouté le même code en changeant columns et offset, mais comme les noms sont identiques, cela créer donc une erreur de compilation : noms ambigus détecté : Worksheets_Change

Code Complet :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
    If Target(1) <> "" Then Target(1).Offset(, 6) = Date
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(9)) Is Nothing Then
    If Target(1) <> "" Then Target(1).Offset(, 3) = Date
End If
End Sub

Que dois-je faire ?
Merci d'avance à ceux qui prendront le temps de m'aider,
En vous souhaitant à tous une très bonne journée.

Bonjour,

Il ne peut y avoir qu'une seule macro worksheet_change par feuille. Il faudrait plutôt ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
    If Target(1) <> "" Then Target(1).Offset(, 6) = Date
End If
If Not Application.Intersect(Target, Columns(9)) Is Nothing Then
    If Target(1) <> "" Then Target(1).Offset(, 3) = Date
End If
End Sub

Par ailleurs, au cas où ça pourrait vous servir, il faut savoir qu'ici vous redéclenchez l'évènement change en saisissant la date. Il existe une ligne qui désactive les évènements :

application.enableevents = false

Il faut ensuite bien la remettre sur true :

application.enableevents = true

Cdlt,

Rebonjour,

Merci Beaucoup 3GB votre code marche parfaitement, et il semblerait que même si l'évènement "change" se réenclenche cela ne pose aucun soucis de code erreur ou autre donc je pense laisser le code tel quel, sauf si vous me conseillez de tout de même ajouter ces deux petites lignes ?

Encore Merci !

Re,

Je vous en prie ! Non pour l'instant, pas de problème. Mais dans le cas où d'autres conditions se rajouteraient, vous pourriez en avoir besoin...

Cordialement,