judoka0209
XLDnaute Occasionnel
bonjour, j'ai un soucis je l'alerte se fasse que pour les case 6 et 7 mais pas les autres
sauf que ca me met une alerte sur les case 9 10 11
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("c6:nc11")) Is Nothing Then
With alerte.Label1
Select Case Target.Row
Case 6
.Caption = "Alerte 1"
Case 7
.Caption = "Alerte 2"
End Select
End With
Select Case UCase(Target.Value)
Case Is = "21", "21ND", "10ND", "10", "0HP", "21ND", "FP", "33", "DE", "41", "RM", "SYND", "AKPS", "AKSC", "GT EX", "GT PRO", "SEM"
alerte.Show
End Select
End If
End Sub
sauf que ca me met une alerte sur les case 9 10 11
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("c6:nc11")) Is Nothing Then
With alerte.Label1
Select Case Target.Row
Case 6
.Caption = "Alerte 1"
Case 7
.Caption = "Alerte 2"
End Select
End With
Select Case UCase(Target.Value)
Case Is = "21", "21ND", "10ND", "10", "0HP", "21ND", "FP", "33", "DE", "41", "RM", "SYND", "AKPS", "AKSC", "GT EX", "GT PRO", "SEM"
alerte.Show
End Select
End If
End Sub