Bonjour le forum,

J'ai créé un planning dans lequel un responsable remplit quotidiennement les affectations d'employés, en mettant un chiffre entre 1 et 7 dans la colonne du jour devant le nom de l'employé selon son affectation.
Il déclenche ensuite une macro qui calcule le nombre de personnes pour chaque affectation.

J'utilise ce code pour incrémenter les variables de "quantité de personnes":
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Select Case Cells(j, i)
    Case "1":  Qte1 = Qte1 + 1
    Case "2":  Qte2 = Qte2 + 1
    Case "3":  Qte3 = Qte3 + 1
    Case "4":  Qte4 = Qte4 + 1
    Case "5":  Qte5 = Qte5 + 1
    Case "6":  Qte6 = Qte6 + 1
    Case "7":  Qte7 = Qte7 + 1
    Case "1/2", "2/1"
        Qte1 = Qte1 + 0.5
        Qte2 = Qte2 + 0.5
    Case "1/3", "3/1"
        Qte1 = Qte1 + 0.5
        Qte3 = Qte3 + 0.5
    Case "1/4", "4/1"
        Qte1 = Qte1 + 0.5
        Qte4 = Qte4 + 0.5
    Case "1/5", "5/1"
        Qte1 = Qte1 + 0.5
        Qte5 = Qte5 + 0.5
    Case "1/6", "6/1"
        Qte1 = Qte1 + 0.5
        Qte6 = Qte6 + 0.5
    Case "1/7", "7/1"
        Qte1 = Qte1 + 0.5
        Qte7 = Qte7 + 0.5
 
    Case "2/3", "3/2"
        Qte2 = Qte2 + 0.5
        Qte3 = Qte3 + 0.5
    Case "2/4", "4/2"
        Qte2 = Qte2 + 0.5
        Qte4 = Qte4 + 0.5
    Case "2/5", "5/2"
        Qte2 = Qte2 + 0.5
        Qte5 = Qte5 + 0.5
    Case "2/6", "6/2"
        Qte2 = Qte2 + 0.5
        Qte6 = Qte6 + 0.5
    Case "2/7", "7/2"
        Qte2 = Qte2 + 0.5
        Qte7 = Qte7 + 0.5
 
    Case "3/4", "4/3"
        Qte3 = Qte3 + 0.5
        Qte4 = Qte4 + 0.5
    Case "3/5", "5/3"
        Qte3 = Qte3 + 0.5
        Qte5 = Qte5 + 0.5
    Case "3/6", "6/3"
        Qte3 = Qte3 + 0.5
        Qte6 = Qte6 + 0.5
    Case "3/7", "7/3"
        Qte3 = Qte3 + 1
        Qte7 = Qte7 + 1
 
    Case "4/5", "5/4"
        Qte4 = Qte4 + 0.5
        Qte5 = Qte5 + 0.5
    Case "4/6", "6/4"
        Qte4 = Qte4 + 0.5
        Qte6 = Qte6 + 0.5
    Case "4/7", "7/4"
        Qte4 = Qte4 + 0.5
        Qte7 = Qte7 + 0.5
 
    Case "5/6", "6/5"
        Qte5 = Qte6 + 0.5
        Qte6 = Qte5 + 0.5
    Case "5/7", "7/5"
        Qte5 = Qte5 + 0.5
        Qte7 = Qte7 + 0.5
 
    Case "6/7", "7/6"
        Qte6 = Qt6 + 0.5
        Qte7 = Qte7  + 0.5
End Select
Mais comme vous le voyez, c'est un peu indigeste et long. Idéalement, je voudrais pouvoir simplifier ce code et pourquoi pas donner la possibilité au responsable d'ajouter de nouvelles affectations sans devoir ajouter du code à ce code.