Salut

jai 12 Option Box differente pour les differents departement.
et jaimerais reduire un peu le nombre de ligne..... donc ne pas repeter le code si-dessous 12 fois mais avec le nom de l'option box diffrent

Est-il posssible de faire une seul fois le code et selon la optionbox cocher la boucle se fait dans ma feuille de calcule afin de savoir les differents superviseur et postes rattacher au departement cocher




OP_ = Option Box ( Bouton d'option )
CB_ = Combo Box ( Zone de Liste modifiable )
Calcule = Une des feuilles dans Excel


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
 
Private Sub OP_Secteur52_Click()
SuperviseurCheck = 4
SuperviseurFound = 2
PosteCheck = 26
PosteFound = 2
 
 
    If OP_Secteur52.Value = True Then
        CB_Superviseur.Clear
        CB_Poste.Clear
 
        Do
 
            SuperviseurCheck = SuperviseurCheck + 1
 
        Loop Until Calcule.Cells(1, SuperviseurCheck) = OP_Secteur52.Caption
 
        Do While Calcule.Cells(SuperviseurFound, SuperviseurCheck) <> ""
 
            CB_Superviseur.AddItem Calcule.Cells(SuperviseurFound, SuperviseurCheck).Value
            SuperviseurFound = SuperviseurFound + 1
 
        Loop
 
        Do
 
            PosteCheck = PosteCheck + 1
 
        Loop Until Calcule.Cells(1, PosteCheck) = OP_Secteur52.Caption
 
        Do While Calcule.Cells(PosteFound, PosteCheck) <> ""
 
            CB_Poste.AddItem Calcule.Cells(PosteFound, PosteCheck).Value
            PosteFound = PosteFound + 1
 
        Loop
 
    End If
End Sub
2ieme question est ici :
Option Box Questions


merci d'avance