2 Macros vba déclenchées par clic sur le même module de feuille.

rounil09

XLDnaute Occasionnel
Bonjour la liste,

Soit une macro 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Call Date_Enr_EP
End If
End Sub

Soit une macro 2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D14")) Is Nothing Then
Call Date_Déroul_EP
End If
End Sub

Elles sont sur le même module de feuille.
Si je mets une seule macro (n'importe laquelle) elle fonctionne bien.
Si je mets les deux sur le même module de feuille ça plante : j'ai le message "Erreur de compilation Nom ambigü détecté : Worksheet_SelectionChange"

Est-il possible de régler ce problème et si oui comment ?
 

Softmama

XLDnaute Accro
Re : 2 Macros vba déclenchées par clic sur le même module de feuille.

Bonjour rounil09,

2 macros ne peuvent porter le même nom dans le même module. Tu dois mettre tes 2 codes dans le même. Tu pex régler ce souci en n'en faisant qu'une de la façon suivante :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
    Call Date_Enr_EP
ElseIf Not Intersect(Target, Range("D14")) Is Nothing Then
    Call Date_Déroul_EP
End If
End Sub
 

Discussions similaires