Bonjour,

j'aimerai effectué le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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