probleme alerte vba

judoka0209 à dit:

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

Cliquez pour agrandir...

judoka0209 à dit:

y a plus rien qui marche pour le coup

Cliquez pour agrandir...

judoka0209 à dit:

exceuse moi je pensais que le bout de tableau que j'avais mis suffirai j'ai mis le tableau complet
ca doit marcher que pour les lignes en rouge et seulement celle la

Cliquez pour agrandir...

judoka0209 à dit:

la classe super bien merci beaucoup

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage, Col&
If Target.Count > 1 Then Exit Sub
Col = Cells(2, Columns.Count).End(xlToLeft).Column
Set Plage = Union(Range(Cells(6, 3), Cells(7, Col)), Range(Cells(17, 3), Cells(18, Col)), Range(Cells(28, 3), Cells(29, Col)), Range(Cells(39, 3), Cells(40, Col)), Range(Cells(50, 3), Cells(51, Col)), Range(Cells(60, 3), Cells(61, Col)))
If Not Application.Intersect(Target, Plage) Is Nothing Then
  With alerte.Label1
    Select Case Target.Row
      Case 6, 17, 28, 39, 50, 61
        .Caption = "Alerte 1"
      Case 7, 18, 29, 40, 51, 62
        .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