Bonjour,
J'ai 2 macros dans la même feuille qui fonctionnent bien séparément.
Mais si elles sont l'une après l'autre, j'ai le message d'erreur suivant :
Erreur de compilation
Nom ambigu détecté : Worksheet_SelectionChange
avec surlignage de la 1ère ligne de la 2ème macro.
Comment les réécrire pour les garder ensemble et les faire fonctionner ?
Merci pour votre assistance.
1ère macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("L6:L10")) Is Nothing Then
Range("Q4").Value = Target.Value
End If
End Sub
2ème macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("H4")) Is Nothing Then
Target = [F4]
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=F4:F" & Range("F" & Rows.Count).End(xlUp).Row
End With
End If
'
End Sub
Nota : La 2ème macro cherche, en cliquant sur F4 (CLIENT), à afficher (CLIENT) en H4 (liste déroulante avec CLIENT en première position)