Discussion :

[Korigoth]

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

[SfJ5Rpw8]

Bonjour,


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

[Korigoth]

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

[SfJ5Rpw8]

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

Code :

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

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 :

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

1
2
3
4
5
6
Private Sub OP_Secteur52_Click()
   if OP_Secteur52 then 
      MiseAjourSecteur OP_Secteur52.Caption
  end if
 
en sub