Discussion :

[florent77]

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

[Menhir]

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
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

[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é

Encore merci

[Menhir]

Il y a une faille dans ton code : si Age est égal à 60, il n'entre dans aucun cas du Select Case.

[florent77]

C'est exact...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case is >= 60