kerlannais
XLDnaute Junior
Bonjour à tous,
J'ai fait un beau script pour ouvrir un userform lorsque je complete une case avec le code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim derLign As Long
derLign = Range("M10000").End(xlUp).Row
If Not Intersect(Target, Range("M3:M" & derLign)) Is Nothing Then
If Target = "oui" Or Target = "non" Then
UserForm1.Show
End If
End If
End Sub
Sauf que j ai essayé de rajouter les lignes suivantes pour faire la meme chose avec une autre cellule et ca ne fonctionne pas:
If Not Intersect(Target, Range("H3:H" & derLign)) Is Nothing Then
If Target = "rouge" Then
UserForm4.Show
End If
End If
Pouvez vous m'aider?
merci beaucoup
J'ai fait un beau script pour ouvrir un userform lorsque je complete une case avec le code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim derLign As Long
derLign = Range("M10000").End(xlUp).Row
If Not Intersect(Target, Range("M3:M" & derLign)) Is Nothing Then
If Target = "oui" Or Target = "non" Then
UserForm1.Show
End If
End If
End Sub
Sauf que j ai essayé de rajouter les lignes suivantes pour faire la meme chose avec une autre cellule et ca ne fonctionne pas:
If Not Intersect(Target, Range("H3:H" & derLign)) Is Nothing Then
If Target = "rouge" Then
UserForm4.Show
End If
End If
Pouvez vous m'aider?
merci beaucoup