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 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149
|
'***********************************************************
'Procédure permettant de charger la liste des Fonctions"
'Dans La 1ére liste déroulante au chargement du formulaire
''''''''''''''''''''''''''''''''''''''''''''''''''''''''****
'Déclaration des variables
Dim Colonne As Integer
Dim i As Integer, J As Integer
Dim Criteres2 As Integer
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
AfficheFeuilles
'Initalisation des variables
Colonne = 56 'Affectation du numéro de colonne à 56 car la première donnée en colonne BD
'On efface la couleur de remplissage des en-têtes de colonnes, ici les noms des "Fonctions"
Sheets("Liste").Select
'Range("BB2:BF2").Select '.interiorcolorindex = Clear
Sheets("Liste").Range("BD2:BH2").Interior.ColorIndex = Clear
'On réalise une boucle qui vas charger les noms des "Fonctions dans la liste déroulante.
Do While Cells(2, Colonne).Value <> "" 'Tant qu'il y a des valeurs dans la ligne 2, on charge les noms jusqu'a rencontrer une cellule vide
frmSélection.cboType2.AddItem Cells(2, Colonne).Value
Colonne = Colonne + 1 'On Incrémente le numéro de colonne afin de passer à la colonne de droite.
Loop
'MasqueFeuilles
End Sub
'*******************************************************************************
'Procédure permettant de charger la liste déroulante
'de la "Sélection correspondante au choix effectué dans la liste des Fonctions
'*******************************************************************************
Private Sub cboType2_change()
AfficheFeuilles
'Initalisation des variables
i = 56 '= 56 ème Colonne
'On vide la liste déroulante des villes afin de ne pas cumuler les enregistrements
frmSélection.cboCriteres2.Clear
'On retire les couleurs de remplissage des en-têtes
Sheets("liste").Range("BD2:BH2").Interior.ColorIndex = Clear
'On boucle pour récupérer chacune des Sélection de la Fonction sélectionnée
Do While Cells(2, i).Value <> ""
'On test que le nom de la Fonction dans la liste déroulante soit indentique à la cellule active
If Cells(2, i).Value = cboType2.Value Then 'Si oui
'On sélectionne la cellule de la Fonction
Cells(2, i).Select
'On y ajoute une couleur de remplissage
ActiveCell.Interior.ColorIndex = 22 'On color la cellule de la colonne concernée
'On récupère son positionnement par le n° de colonne
Colonne = ActiveCell.Column ' ok jusqu' ici
End If
i = i + 1 'On incrémente le numéro de colonne
Loop
'On initialise à 3 le numéro de ligne, la 1ére Sélection se trouve en ligne 3
J = 3
'On boucle les lignes pour récupérer les noms des villes
Do While Cells(J, Colonne).Value <> ""
'On charge les villes dans la liste déroulante des villes.
frmSélection.cboCriteres2.AddItem Cells(J, Colonne)
J = J + 1 'On incrémente le numéro de ligne.
Loop
'On affiche la première valeur par défaut
cboCriteres2.ListIndex = 0
MasqueFeuilles
End Sub
Private Sub btnValider_Click()
shListe.Activate
frmSélection.cboCriteres2 = cboCriteres2.Value
Worksheets("Liste").Range("BL2").Value = cboCriteres2.Value
Unload Me
'********************************
'Liste des Statuts
'********************************
If shListe.Range("BL2") = "Agent" Then
shMenu.Select
Affiche_Agent
Else
If shListe.Range("BL2") = "Cadre" Then
shMenu.Select
Affiche_Cadre
Else
'********************************
'Liste des Contrats
'********************************
If shListe.Range("BL2") = "CDI" Then
shMenu.Select
Affiche_CDI
Else
If shListe.Range("BL2") = "CDD" Then
shMenu.Select
Affiche_CDD
Else
If shListe.Range("BL2") = "INTERIMAIRE" Then
shMenu.Select
Affiche_Intérimaires
Else
If shListe.Range("BL2") = "STAGIAIRE" Then
shMenu.Select
Affiche_Stagiaires
Else
If shListe.Range("BL2") = "TEMPS PARTIEL" Then
shMenu.Select
Affiche_Temps_partiel
Else
If shListe.Range("BL2") = "ALTERNANCE" Then
shMenu.Select
Affiche_Alternance
Else
'********************************
'Liste des Services
'********************************
If shListe.Range("BL2") = "Achat" Then
shMenu.Select
Affiche_Achats
Else
If shListe.Range("BL2") = "Commercial" Then
shMenu.Select
Affiche_Commercial
Else
If shListe.Range("BL2") = "Maintenance" Then
shMenu.Select
Affiche_Maintenance
Else
End if x fois
'je n'ai pas mis la totalité du code |
Partager