M
micky
Guest
BONJOUR,
j'ai recopié une macro évenementielle d'un génie d'ici qui marche bien :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
If Target = "mm" Then
Range("D89") = 8
Else
Range("D89") = 45
End If
End Sub
Dans ma lancée, j'ai voulu en créer une autre en-dessous avec d'autres cellules de la même feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
If Target = "mm" Then
Range("D89") = 8
Else
Range("D89") = 45
End If
End Sub
________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("q4")) Is Nothing Then: Exit Sub
If Target = "mm" Then
Range("p89") = 8
Else
Range("p89") = 45
End If
End Sub
mais excel me dit qu'il y a "erreur de compilation, nom ambigû détecté worksheet_change"
qqun peut-il me donner la soluc, mercii
j'ai recopié une macro évenementielle d'un génie d'ici qui marche bien :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
If Target = "mm" Then
Range("D89") = 8
Else
Range("D89") = 45
End If
End Sub
Dans ma lancée, j'ai voulu en créer une autre en-dessous avec d'autres cellules de la même feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
If Target = "mm" Then
Range("D89") = 8
Else
Range("D89") = 45
End If
End Sub
________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("q4")) Is Nothing Then: Exit Sub
If Target = "mm" Then
Range("p89") = 8
Else
Range("p89") = 45
End If
End Sub
mais excel me dit qu'il y a "erreur de compilation, nom ambigû détecté worksheet_change"
qqun peut-il me donner la soluc, mercii