Reduction du Code et Option Box Questions

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:

---

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

Bonjour,


pas clair de voir ce-qui doit changer dans ton code selon la case d'option cochée ...?

Se que je veux, c'est de faire une boucle si c'est possible qui va faire le code de tout les boucles selont la quelle est clicker!

jai 10 Optionbox Differente qui on exactement le meme code SAUF 3 place ou je fais mention de leur OP_secteur52.caption ( Secteur 52 = caption )

Mon code va dans la feuille Calcule et Recherche le caption dans la premiere ligne ( donc departement ) et lorsquil est trouver. il ajoutes les superviseurs en dessous dans la combobox !

Donc Secteur 52 contient 4 superviseur dans sa liste qui sont ajouter dans la liste lorsque nous cochons le Secteur 52

un clear de la combobox est effectuer quand nous changeons de departement

Secteur52
Conditionnement
Informatique
Entrepot
AQ
CQ
Laverie Centrale
Documentation
Inginerie
Maintenance

Est-ce possible de créé une boucle qui va checker se qui est cocher et faire le code en fonction de se qui est cocher ?

le code que jai placer est appliquer lorsque nous clickons directement sur le option box mais sa me faite 10x 40 ligne ( 400 lignes) pour seulement généré des données dans une Combobox

merci

Commence par créer une procédure prenant en paramètre ton numéro de secteur ...

Code:

---

1 2 3 4 5 6 7

Sub MiseAjourSecteur (stSecteur as string) ...   Loop Until Calcule.Cells(1, SuperviseurCheck) = stSecteur ... end sub

---

en suite tu peu modifier l'appel de ta procédure ...

Code:

---

1 2 3 4 5 6

Private Sub OP_Secteur52_Click() if OP_Secteur52 then MiseAjourSecteur OP_Secteur52.Caption end if   en sub

---