Salut à toutes et à tous,

Je sèche..
Est-ce possible de déclarer ma cellule "B14" en variable sachant que la procédure ci-dessous sera en grande partie identique pour des cellules autres que "B14".

Merci pour vos pistes


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
Dim Age As Integer, Niveau As Integer, Score As Integer
 
Score = Range("B13")
Niveau = Range("B10")
Age = Range("B11")
 
 
Select Case Age
 
    Case Is < 40
        Select Case Niveau
            Case 1
                Range("B14") = -(Score - 27) / 6
            Case 2
                Range("B14") = -(Score - 27) / 5
            Case 3
                Range("B14") = -(Score - 27) / 4
        End Select
 
    Case 40 To 59
       Select Case Niveau
            Case 1
                Range("B14") = -(Score - 30) / 8
            Case 2
                Range("B14") = -(Score - 31) / 6
            Case 3
                Range("B14") = -(Score - 27) / 5
        End Select
 
     Case Is > 60
        Select Case Niveau
            Case 1
                Range("B14") = -(Score - 36) / 9
            Case 2
                Range("B14") = -(Score - 34) / 8
            Case 3
                Range("B14") = -(Score - 31) / 6
        End Select
 
End Select