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
48
49
50
| Sub a()
Dim blnEstHomme As Boolean
Dim intAge As Integer
Dim intPerf As Integer
' Je suppose que tes valeurs sont rangées dans un tableau sur ta feuille 1
' Le sexe est noté dans la colonne B par H ou F
' l'age dans la colonne C
' La perf dans la colonne D
' Et le score s'écrit dans le colonne E
For i = NuméroDeLaPremièreLigne To NuméroDeLaDernièreLigne
blnEstHomme = IIf(Feuil1.Range("B" & i).Value = H, True, False)
intAge = Feuil1.Range("C" & i).Value
intPerf = Feuil1.Range("D" & i).Value
If blnEstHomme Then
Select Case intAge
Case 1 To 30
' à repeter dans chage cas
Select Case intPerf
Case 1 To 599
' à repeter dans chaque sous-cas
Feuil1.Range("E" & i).Value = 0
Case 600 To 649
Feuil1.Range("E" & i).Value = 1
Case 650 To 699
Case 700 To 749
Case 750 To 799
Case Else
End Select
Case 31 To 40
Case 41 To 50
Case 51 To 60
Case Else
End Select
Else
' faire la meme chose avec les valeurs pour les femmes
End If
End Sub |
