[XL-2003] Plusieurs déclarations Worksheet

Plusieurs déclarations Worksheet_Change

Bonjour,

j'aimerai effectué le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Sub Worksheet_Change(ByVal J83 As Range)
 
   Select Case J83
    Case Is = "1", "2", "3"
    Range("a93:a102").EntireRow.Hidden = False
    Range("a93:a102").EntireRow.Hidden = True
 
    Case Is = "4"
       Range("a93:a102").EntireRow.Hidden = False
        Range("a95:a102").EntireRow.Hidden = True
 
    Case Is = "5"
        Range("a93:a102").EntireRow.Hidden = False
        Range("a97:a102").EntireRow.Hidden = True
 
     Case Is = "6"
       Range("a93:a102").EntireRow.Hidden = False
        Range("a99:a102").EntireRow.Hidden = True
 
     Case Is = "7"
        Range("a93:a102").EntireRow.Hidden = False
        Range("a101:a102").EntireRow.Hidden = True
 
      Case Is = "8"
        Range("a93:a102").EntireRow.Hidden = False
 
    End Select
 
 
   Select Case J104
 
    Case Is = "3"
    Range("a108:a117").EntireRow.Hidden = False
    Range("a114:a117").EntireRow.Hidden = True
 
       Case Is = "4"
    Range("a108:a117").EntireRow.Hidden = False
    Range("a116:a117").EntireRow.Hidden = True
 
       Case Is = "5"
    Range("a108:a117").EntireRow.Hidden = False
 
    End Select
 
 
End Sub

Les cellules J83 et J104 sont des listes déroulantes de chiffres

Sans la deuxième partie " Select case J104 ca fonctionne, quand je la rajoute çà me dit que J104 n'est pas déclarée mais je n'arrive pas à la déclarer car je peux mettre qu'une seule fois ""Private Sub Worksheet_Change"

Peut-être avec "Target" ?

Ou une fonction if, à voir.

Si vous avez des pistes ;)

Edit : j'ai enlever le code mais maintenant la liste déroulante en J104 intervient aussi sur les lignes précédentes :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address(0, 0) = "J83" Then
    Select Case Target
        Case 1 To 3
            Range("A93:A102").EntireRow.Hidden = False
            Range("A93:A102").EntireRow.Hidden = True
            '....
    End Select
 
ElseIf Target.Address(0, 0) = "J104" Then
    Select Case Target
        Case 3
            Range("A108:A117").EntireRow.Hidden = False
            Range("A114:A117").EntireRow.Hidden = True
        Case 4
            Range("A108:A117").EntireRow.Hidden = False
            Range("A116:A117").EntireRow.Hidden = True
        Case 5
            Range("A108:A117").EntireRow.Hidden = False
    End Select
End If
End Sub

Merci beaucoup de la réponse rapide.

Ça fonctionne :D

Cordialement.