Affecter une procédure à des cellules variables

Version imprimable

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:

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Age As Integer, Niveau As Integer, Score As Integer
Dim Cible As Range
 
Score = Range("B13")
Niveau = Range("B10")
Age = Range("B11")
Set Cible = Range("B14")
 
Select Case Age
    Case < 40
        Cible = -(Score - 27) / Choose(Niveau, 6, 5, 4)
    Case 40 To 59
        Cible = -(Score - Choose(Niveau, 30, 31, 27)) / Choose(Niveau, 8, 6, 5)
     Case Is > 60
        Cible = -(Score - Choose(Niveau, 36, 34, 31)) / Choose(Niveau, 9, 8, 6)
End Select

18/10/2018, 13h19
florent77

Bonjour Menhir,

Un grand merci pour le coup de pouce et pour la simplification du code.

Je ne connaissais pas la fonction Choose, elle va m'être d'une grande utilité :P

Encore merci ;)
18/10/2018, 13h41
Menhir

Il y a une faille dans ton code : si Age est égal à 60, il n'entre dans aucun cas du Select Case.
18/10/2018, 13h49
florent77

C'est exact... :oops:

Code:

Case is >= 60