djamal74
XLDnaute Nouveau
Bonjour,
Je suis débutant en VBA. J'utilise un formulaire pour la saisie des données qui contient 15 pages en tout. J'ai un petit problème au niveau de la page 14 et 15. J'ai un code d'erreur qui s'affiche (voir les images)
1- Champ Date: J'aimerais avoir la date du jour automatiquement.
2- Champ Nombre de personnes ; J'aimerais avoir le chiffre 1 par défaut.
3- Le bouton "Effacer" : Effacer seulement le champ "Activité" et le champ Nombre de personne (garder le chiffre 1 par défaut)
4- Le bouton "Enregistrer" : Enregistrer les données dans "Base de données" et effacer le formulaire.
NB: Toutes les autres pager sont correct.
Voici le code VBA:
'2020 Jul 21
'Denis Lamarre, 579-883-8920
'dlamarre@cedeq.com
Option Explicit
Option Base 1
Const SAVED As String = "La fiche a été enregistrée"
'Boutons "Effacer"
Private Sub ButtonEffacer1_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie1 = Format(Date, "yyyy/mm/dd")
NbrDemandes1 = 1
Spin1 = 1
ComboBoxNom1 = ""
ComboBoxNom1.List = rNomDuRequérant.Value
ComboBoxTitre1 = ""
ComboBoxDirection1 = ""
ComboBoxService1 = ""
ComboBoxActivite1 = ""
End Sub
Private Sub ButtonEffacer2_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie2 = Format(Date, "yyyy/mm/dd")
NbrDemandes2 = 1
Spin2 = 1
ComboBoxNom2 = ""
ComboBoxNom2.List = rNomDuRequérant.Value
ComboBoxTitre2 = ""
ComboBoxDirection2 = ""
ComboBoxService2 = ""
ComboBoxActivite2 = ""
End Sub
Private Sub ButtonEffacer3_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie3 = Format(Date, "yyyy/mm/dd")
NbrDemandes3 = 1
Spin3 = 1
ComboBoxFormation3 = ""
ComboBoxNom3 = ""
ComboBoxNom3.List = rNomDuRequérant.Value
ComboBoxTitre3 = ""
ComboBoxDirection3 = ""
ComboBoxService3 = ""
ComboBoxActivite3 = ""
End Sub
Private Sub ButtonEffacer4_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie4 = Format(Date, "yyyy/mm/dd")
NbrDemandes4 = 1
Spin4 = 1
ComboBoxNom4 = ""
ComboBoxNom4.List = rNomDuRequérant.Value
ComboBoxTitre4 = ""
ComboBoxDirection4 = ""
ComboBoxService4 = ""
ComboBoxActivite4 = ""
End Sub
Private Sub ButtonEffacer5_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie5 = Format(Date, "yyyy/mm/dd")
NbrDemandes5 = 1
Spin5 = 1
End Sub
Private Sub ButtonEffacer6_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie6 = Format(Date, "yyyy/mm/dd")
NbrDemandes6 = 1
Spin6 = 1
ComboBoxNom6 = ""
ComboBoxNom6.List = rNomDuRequérant.Value
ComboBoxTitre6 = ""
ComboBoxDirection6 = ""
ComboBoxService6 = ""
ComboBoxActivite6 = ""
End Sub
Private Sub ButtonEffacer7_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie7 = Format(Date, "yyyy/mm/dd")
NbrDemandes7 = 1
Spin7 = 1
ComboBoxNom7.List = rNomDuRequérant.Value
ComboBoxTitre7 = ""
ComboBoxDirection7 = ""
ComboBoxService7 = ""
ComboBoxActivite7 = ""
End Sub
Private Sub ButtonEffacer8_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie8 = Format(Date, "yyyy/mm/dd")
NbrDemandes8 = 1
Spin8 = 1
ComboBoxNom8.List = rNomDuRequérant.Value
ComboBoxTitre8 = ""
ComboBoxDirection8 = ""
ComboBoxService8 = ""
ComboBoxActivite8 = ""
End Sub
Private Sub ButtonEffacer9_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie9 = Format(Date, "yyyy/mm/dd")
NbrDemandes9 = 1
Spin9 = 1
ComboBoxNom9 = ""
ComboBoxNom9.List = rNomDuRequérant.Value
ComboBoxTitre9 = ""
ComboBoxDirection9 = ""
ComboBoxService9 = ""
ComboBoxActivite9 = ""
End Sub
Private Sub ButtonEffacer10_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie10 = Format(Date, "yyyy/mm/dd")
NbrDemandes10 = 1
Spin10 = 1
TextSujetUn10 = ""
TextSujetDeux10 = ""
TextSujetTrois10 = ""
ComboBD1 = ""
ComboBD2 = ""
ComboBD3 = ""
ComboBoxNom10 = ""
ComboBoxNom10.List = rNomDuRequérant.Value
ComboBoxTitre10 = ""
ComboBoxDirection10 = ""
ComboBoxService10 = ""
ComboBoxActivite10 = ""
End Sub
Private Sub ButtonEffacer11_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie11 = Format(Date, "yyyy/mm/dd")
NbrDemandes11 = 1
Spin11 = 1
ComboBoxNom11 = ""
ComboBoxNom11.List = rNomDuRequérant.Value
ComboBoxTitre11 = ""
ComboBoxDirection11 = ""
ComboBoxService11 = ""
ComboBoxActivite11 = ""
End Sub
Private Sub ButtonEffacer12_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie12 = Format(Date, "yyyy/mm/dd")
NbrDemandes12 = 1
Spin12 = 1
TextSujetUn12 = ""
TextSujetDeux12 = ""
TextSujetTrois12 = ""
ComboBoxNom12 = ""
ComboBoxNom12.List = rNomDuRequérant.Value
ComboBoxTitre12 = ""
ComboBoxDirection12 = ""
ComboBoxService12 = ""
ComboBoxActivite12 = ""
End Sub
Private Sub ButtonEffacer13_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie13 = Format(Date, "yyyy/mm/dd")
NbrDemandes13 = 1
Spin13 = 1
TextSujetUn13 = ""
TextSujetDeux13 = ""
TextSujetTrois13 = ""
ComboBoxNom13 = ""
ComboBoxNom13.List = rNomDuRequérant.Value
ComboBoxTitre13 = ""
ComboBoxDirection13 = ""
ComboBoxService13 = ""
ComboBoxActivite13 = ""
End Sub
Private Sub ButtonEffacer14_Click()
End Sub
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie14 = Format(Date, "yyyy/mm/dd")
NbrDemandes14 = 1
Spin14 = 1
ComboBoxFrequentation14 = ""
End Sub
Private Sub ButtonEffacer15_Click()
End Sub
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie15 = Format(Date, "yyyy/mm/dd")
NbrDemandes15 = 1
Spin15 = 1
ComboBoxFrequentation15 = ""
End Sub
'Boutons "Enregistrer"
Private Sub ButtonEnregistrer1_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie1)
.Range(2) = CLng(NbrDemandes1)
.Range(3) = TextService1
.Range(8) = ComboBoxNom1
.Range(9) = ComboBoxTitre1
.Range(10) = ComboBoxDirection1
.Range(11) = ComboBoxService1
.Range(12) = ComboBoxActivite1
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer1_Click
End Sub
Private Sub ButtonEnregistrer2_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie2)
.Range(2) = CLng(NbrDemandes2)
.Range(3) = TextService2
.Range(8) = ComboBoxNom2
.Range(9) = ComboBoxTitre2
.Range(10) = ComboBoxDirection2
.Range(11) = ComboBoxService2
.Range(12) = ComboBoxActivite2
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer2_Click
End Sub
Private Sub ButtonEnregistrer3_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie3)
.Range(2) = CLng(NbrDemandes3)
.Range(3) = TextService3
.Range(7) = ComboBoxFormation3
.Range(8) = ComboBoxNom3
.Range(9) = ComboBoxTitre3
.Range(10) = ComboBoxDirection3
.Range(11) = ComboBoxService3
.Range(12) = ComboBoxActivite3
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer3_Click
End Sub
Private Sub ButtonEnregistrer4_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie4)
.Range(2) = CLng(NbrDemandes4)
.Range(3) = TextService4
.Range(8) = ComboBoxNom4
.Range(9) = ComboBoxTitre4
.Range(10) = ComboBoxDirection4
.Range(11) = ComboBoxService4
.Range(12) = ComboBoxActivite4
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer4_Click
End Sub
Private Sub ButtonEnregistrer5_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie5)
.Range(2) = CLng(NbrDemandes5)
.Range(3) = TextService5
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer5_Click
End Sub
Private Sub ButtonEnregistrer6_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie6)
.Range(2) = CLng(NbrDemandes6)
.Range(3) = TextService6
.Range(8) = ComboBoxNom6
.Range(9) = ComboBoxTitre6
.Range(10) = ComboBoxDirection6
.Range(11) = ComboBoxService6
.Range(12) = ComboBoxActivite6
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer6_Click
End Sub
Private Sub ButtonEnregistrer7_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie7)
.Range(2) = CLng(NbrDemandes7)
.Range(3) = TextService7
.Range(8) = ComboBoxNom7
.Range(9) = ComboBoxTitre7
.Range(10) = ComboBoxDirection7
.Range(11) = ComboBoxService7
.Range(12) = ComboBoxActivite7
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer7_Click
End Sub
Private Sub ButtonEnregistrer8_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie8)
.Range(2) = CLng(NbrDemandes8)
.Range(3) = TextService8
.Range(8) = ComboBoxNom8
.Range(9) = ComboBoxTitre8
.Range(10) = ComboBoxDirection8
.Range(11) = ComboBoxService8
.Range(12) = ComboBoxActivite8
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer8_Click
End Sub
Private Sub ButtonEnregistrer9_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie9)
.Range(2) = CLng(NbrDemandes9)
.Range(3) = TextService9
.Range(8) = ComboBoxNom9
.Range(9) = ComboBoxTitre9
.Range(10) = ComboBoxDirection9
.Range(11) = ComboBoxService9
.Range(12) = ComboBoxActivite9
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer9_Click
End Sub
Private Sub ButtonEnregistrer10_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie10)
.Range(2) = CLng(NbrDemandes10)
.Range(3) = TextService10
.Range(4) = TextSujetUn10
.Range(5) = TextSujetDeux10
.Range(6) = TextSujetTrois10
.Range(8) = ComboBoxNom10
.Range(9) = ComboBoxTitre10
.Range(10) = ComboBoxDirection10
.Range(11) = ComboBoxService10
.Range(12) = ComboBoxActivite10
.Range(13) = ComboBD1
.Range(14) = ComboBD2
.Range(15) = ComboBD3
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer10_Click
End Sub
Private Sub ButtonEnregistrer11_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie11)
.Range(2) = CLng(NbrDemandes11)
.Range(3) = TextService11
.Range(8) = ComboBoxNom11
.Range(9) = ComboBoxTitre11
.Range(10) = ComboBoxDirection11
.Range(11) = ComboBoxService11
.Range(12) = ComboBoxActivite11
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer11_Click
End Sub
Private Sub ButtonEnregistrer12_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie12)
.Range(2) = CLng(NbrDemandes12)
.Range(3) = TextService12
.Range(4) = TextSujetUn12
.Range(5) = TextSujetDeux12
.Range(6) = TextSujetTrois12
.Range(8) = ComboBoxNom12
.Range(9) = ComboBoxTitre12
.Range(10) = ComboBoxDirection12
.Range(11) = ComboBoxService12
.Range(12) = ComboBoxActivite12
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer12_Click
End Sub
Private Sub ButtonEnregistrer13_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie13)
.Range(2) = CLng(NbrDemandes13)
.Range(3) = TextService13
.Range(4) = TextSujetUn13
.Range(5) = TextSujetDeux13
.Range(6) = TextSujetTrois13
.Range(8) = ComboBoxNom13
.Range(9) = ComboBoxTitre13
.Range(10) = ComboBoxDirection13
.Range(11) = ComboBoxService13
.Range(12) = ComboBoxActivite13
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer13_Click
End Sub
Private Sub ButtonEnregistrer14_Click()
End Sub
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie14)
.Range(2) = CLng(NbrDemandes14)
.Range(16) = ComboBoxFrequentation14
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer14_Click
Private Sub ButtonEnregistrer15_Click()
End Sub
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie15)
.Range(2) = CLng(NbrDemandes15)
.Range(16) = ComboBoxFrequentation17
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer15_Click
Private Sub Label140_Click()
End Sub
Private Sub ComboBD1_Change()
End Sub
Private Sub ComboBoxFrequentation14_Change()
End Sub
Private Sub ComboBoxNom7_Change()
End Sub
Private Sub ComboBoxService1_Change()
End Sub
Private Sub ComboBoxService11_Change()
End Sub
Private Sub ComboBoxService3_Change()
End Sub
Private Sub ComboBoxService4_Change()
End Sub
Private Sub ComboBoxTitre7_Change()
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label129_Click()
End Sub
Private Sub Label141_Click()
End Sub
Private Sub Label142_Click()
End Sub
Private Sub Label144_Click()
End Sub
Private Sub Label85_Click()
End Sub
Private Sub Label184_Click()
End Sub
Private Sub Label54_Click()
End Sub
Private Sub MultiPage1_Change()
End Sub
Private Sub Spin15_SpinDown()
End Sub
Private Sub Spin15_SpinUp()
End Sub
Private Sub TextSujetUn13_Change()
End Sub
'Form
Private Sub UserForm_Initialize()
ButtonEffacer1_Click
ButtonEffacer2_Click
ButtonEffacer3_Click
ButtonEffacer4_Click
ButtonEffacer5_Click
ButtonEffacer6_Click
ButtonEffacer7_Click
ButtonEffacer8_Click
ButtonEffacer9_Click
ButtonEffacer10_Click
ButtonEffacer11_Click
ButtonEffacer12_Click
ButtonEffacer13_Click
End Sub
'Global buttons
Private Sub ButtonFermer_Click()
Unload Me
End Sub
Private Sub ButtonSource_Click()
Worksheets("Base de données").Activate
End Sub
'ComboBox Direction
Private Sub ComboBoxDirection1_Change()
ComboBoxService1.Clear
If ComboBoxDirection1.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService1.List = Range("BPDG").Value
ElseIf ComboBoxDirection1.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService1.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection1.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService1.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection1.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService1.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection1.Text = "DAL - Activités d’alimentation" Then
ComboBoxService1.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection1.Text = "DAL - Logistique" Then
ComboBoxService1.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection1.Text = "DAL - Soutien" Then
ComboBoxService1.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection1.Text = "DHEB - Hébergement" Then
ComboBoxService1.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection1.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService1.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection1.Text = "DPSMD - Adultes" Then
ComboBoxService1.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection1.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService1.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection1.Text = "DQEPE - Performance" Then
ComboBoxService1.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection1.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService1.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection1.Text = "DREI - Enseignement" Then
ComboBoxService1.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection1.Text = "DREI - Recherche" Then
ComboBoxService1.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection1.Text = "DRF - Budget et performance financière" Then
ComboBoxService1.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection1.Text = "DRF - Services financiers" Then
ComboBoxService1.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection1.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService1.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection1.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService1.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection1.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService1.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection1.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService1.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection1.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService1.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection1.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService1.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection1.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService1.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection1.Text = "DSI - Gestion hospitalière" Then
ComboBoxService1.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection1.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService1.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection1.Text = "DSM - Services diagnostiques" Then
ComboBoxService1.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection1.Text = "DSP - Département de pharmacie" Then
ComboBoxService1.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection1.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService1.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection1.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService1.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection1.Text = "DSP - Soins critiques" Then
ComboBoxService1.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection1.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService1.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection2_Change()
ComboBoxService2.Clear
If ComboBoxDirection2.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService2.List = Range("BPDG").Value
ElseIf ComboBoxDirection2.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService2.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection2.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService2.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection2.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService2.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection2.Text = "DAL - Activités d'alimentation" Then
ComboBoxService2.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection2.Text = "DAL - Logistique" Then
ComboBoxService2.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection2.Text = "DAL - Soutien" Then
ComboBoxService2.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection2.Text = "DHEB - Hébergement" Then
ComboBoxService2.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection2.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService2.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection2.Text = "DPSMD - Adultes" Then
ComboBoxService2.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection2.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService2.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection2.Text = "DQEPE - Performance" Then
ComboBoxService2.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection2.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService2.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection2.Text = "DREI - Enseignement" Then
ComboBoxService2.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection2.Text = "DREI - Recherche" Then
ComboBoxService2.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection2.Text = "DRF - Budget et performance financière" Then
ComboBoxService2.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection2.Text = "DRF - Services financiers" Then
ComboBoxService2.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection2.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService2.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection2.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService2.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection2.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService2.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection2.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService2.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection2.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService2.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection2.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService2.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection2.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService2.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection2.Text = "DSI - Gestion hospitalière" Then
ComboBoxService2.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection2.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService2.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection2.Text = "DSM - Services diagnostiques" Then
ComboBoxService2.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection2.Text = "DSP - Département de pharmacie" Then
ComboBoxService2.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection2.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService2.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection2.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService2.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection2.Text = "DSP - Soins critiques" Then
ComboBoxService2.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection2.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService2.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection3_Change()
ComboBoxService3.Clear
If ComboBoxDirection3.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService3.List = Range("BPDG").Value
ElseIf ComboBoxDirection3.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService3.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection3.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService3.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection3.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService3.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection3.Text = "DAL - Activités d'alimentation" Then
ComboBoxService3.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection3.Text = "DAL - Logistique" Then
ComboBoxService3.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection3.Text = "DAL - Soutien" Then
ComboBoxService3.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection3.Text = "DHEB - Hébergement" Then
ComboBoxService3.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection3.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService3.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection3.Text = "DPSMD - Adultes" Then
ComboBoxService3.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection3.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService3.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection3.Text = "DQEPE - Performance" Then
ComboBoxService3.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection3.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService3.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection3.Text = "DREI - Enseignement" Then
ComboBoxService3.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection3.Text = "DREI - Recherche" Then
ComboBoxService3.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection3.Text = "DRF - Budget et performance financière" Then
ComboBoxService3.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection3.Text = "DRF - Services financiers" Then
ComboBoxService3.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection3.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService3.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection3.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService3.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection3.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService3.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection3.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService3.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection3.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService3.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection3.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService3.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection3.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService3.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection3.Text = "DSI - Gestion hospitalière" Then
ComboBoxService3.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection3.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService3.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection3.Text = "DSM - Services diagnostiques" Then
ComboBoxService3.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection3.Text = "DSP - Département de pharmacie" Then
ComboBoxService3.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection3.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService3.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection3.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService3.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection3.Text = "DSP - Soins critiques" Then
ComboBoxService3.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection3.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService3.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection4_Change()
ComboBoxService4.Clear
If ComboBoxDirection4.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService4.List = Range("BPDG").Value
ElseIf ComboBoxDirection4.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService4.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection4.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService4.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection4.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService4.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection4.Text = "DAL - Activités d'alimentation" Then
ComboBoxService4.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection4.Text = "DAL - Logistique" Then
ComboBoxService4.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection4.Text = "DAL - Soutien" Then
ComboBoxService4.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection4.Text = "DHEB - Hébergement" Then
ComboBoxService4.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection4.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService4.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection4.Text = "DPSMD - Adultes" Then
ComboBoxService4.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection4.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService4.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection4.Text = "DQEPE - Performance" Then
ComboBoxService4.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection4.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService4.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection4.Text = "DREI - Enseignement" Then
ComboBoxService4.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection4.Text = "DREI - Recherche" Then
ComboBoxService4.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection4.Text = "DRF - Budget et performance financière" Then
ComboBoxService4.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection4.Text = "DRF - Services financiers" Then
ComboBoxService4.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection4.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService4.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection4.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService4.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection4.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService4.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection4.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService4.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection4.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService4.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection4.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService4.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection4.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService4.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection4.Text = "DSI - Gestion hospitalière" Then
ComboBoxService4.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection4.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService4.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection4.Text = "DSM - Services diagnostiques" Then
ComboBoxService4.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection4.Text = "DSP - Département de pharmacie" Then
ComboBoxService4.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection4.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService4.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection4.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService4.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection4.Text = "DSP - Soins critiques" Then
ComboBoxService4.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection4.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService4.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxTitre5_Change()
ComboBoxDiscipline5.Clear
If ComboBoxTitre5.Text = "Médecin" Then
ComboBoxDiscipline5.List = Range("Medecin").Value
ElseIf ComboBoxTitre5.Text = "Stagiaire " Then
ComboBoxDiscipline5.List = Range("Stagiaire").Value
ElseIf ComboBoxTitre5.Text = "Résident et externe" Then
ComboBoxDiscipline5.List = Range("Résident_et_externe").Value
End If
End Sub
Private Sub ComboBoxDirection6_Change()
ComboBoxService6.Clear
If ComboBoxDirection6.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService6.List = Range("BPDG").Value
ElseIf ComboBoxDirection6.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService6.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection6.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService6.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection6.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService6.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection6.Text = "DAL - Activités d'alimentation" Then
ComboBoxService6.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection6.Text = "DAL - Logistique" Then
ComboBoxService6.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection6.Text = "DAL - Soutien" Then
ComboBoxService6.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection6.Text = "DHEB - Hébergement" Then
ComboBoxService6.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection6.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService6.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection6.Text = "DPSMD - Adultes" Then
ComboBoxService6.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection6.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService6.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection6.Text = "DQEPE - Performance" Then
ComboBoxService6.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection6.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService6.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection6.Text = "DREI - Enseignement" Then
ComboBoxService6.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection6.Text = "DREI - Recherche" Then
ComboBoxService6.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection6.Text = "DRF - Budget et performance financière" Then
ComboBoxService6.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection6.Text = "DRF - Services financiers" Then
ComboBoxService6.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection6.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService6.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection6.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService6.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection6.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService6.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection6.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService6.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection6.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService6.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection6.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService6.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection6.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService6.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection6.Text = "DSI - Gestion hospitalière" Then
ComboBoxService6.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection6.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService6.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection6.Text = "DSM - Services diagnostiques" Then
ComboBoxService6.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection6.Text = "DSP - Département de pharmacie" Then
ComboBoxService6.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection6.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService6.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection6.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService6.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection6.Text = "DSP - Soins critiques" Then
ComboBoxService6.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection6.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService6.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection7_Change()
ComboBoxService7.Clear
If ComboBoxDirection7.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService7.List = Range("BPDG").Value
ElseIf ComboBoxDirection7.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService7.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection7.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService7.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection7.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService7.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection7.Text = "DAL - Activités d'alimentation" Then
ComboBoxService7.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection7.Text = "DAL - Logistique" Then
ComboBoxService7.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection7.Text = "DAL - Soutien" Then
ComboBoxService7.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection7.Text = "DHEB - Hébergement" Then
ComboBoxService7.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection7.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService7.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection7.Text = "DPSMD - Adultes" Then
ComboBoxService7.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection7.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService7.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection7.Text = "DQEPE - Performance" Then
ComboBoxService7.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection7.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService7.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection7.Text = "DREI - Enseignement" Then
ComboBoxService7.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection7.Text = "DREI - Recherche" Then
ComboBoxService7.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection7.Text = "DRF - Budget et performance financière" Then
ComboBoxService7.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection7.Text = "DRF - Services financiers" Then
ComboBoxService7.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection7.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService7.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection7.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService7.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection7.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService7.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection7.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService7.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection7.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService7.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection7.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService7.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection7.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService7.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection7.Text = "DSI - Gestion hospitalière" Then
ComboBoxService7.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection7.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService7.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection7.Text = "DSM - Services diagnostiques" Then
ComboBoxService7.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection7.Text = "DSP - Département de pharmacie" Then
ComboBoxService7.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection7.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService7.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection7.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService7.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection7.Text = "DSP - Soins critiques" Then
ComboBoxService7.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection7.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService7.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection8_Change()
ComboBoxService8.Clear
If ComboBoxDirection8.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService8.List = Range("BPDG").Value
ElseIf ComboBoxDirection8.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService8.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection8.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService8.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection8.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService8.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection8.Text = "DAL - Activités d'alimentation" Then
ComboBoxService8.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection8.Text = "DAL - Logistique" Then
ComboBoxService8.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection8.Text = "DAL - Soutien" Then
ComboBoxService8.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection8.Text = "DHEB - Hébergement" Then
ComboBoxService8.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection8.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService8.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection8.Text = "DPSMD - Adultes" Then
ComboBoxService8.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection8.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService8.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection8.Text = "DQEPE - Performance" Then
ComboBoxService8.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection8.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService8.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection8.Text = "DREI - Enseignement" Then
ComboBoxService8.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection8.Text = "DREI - Recherche" Then
ComboBoxService8.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection8.Text = "DRF - Budget et performance financière" Then
ComboBoxService8.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection8.Text = "DRF - Services financiers" Then
ComboBoxService8.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection8.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService8.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection8.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService8.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection8.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService8.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection8.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService8.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection8.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService8.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection8.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService8.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection8.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService8.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection8.Text = "DSI - Gestion hospitalière" Then
ComboBoxService8.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection8.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService8.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection8.Text = "DSM - Services diagnostiques" Then
ComboBoxService8.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection8.Text = "DSP - Département de pharmacie" Then
ComboBoxService8.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection8.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService8.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection8.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService8.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection8.Text = "DSP - Soins critiques" Then
ComboBoxService8.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection8.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService8.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection9_Change()
ComboBoxService9.Clear
If ComboBoxDirection9.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService9.List = Range("BPDG").Value
ElseIf ComboBoxDirection9.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService9.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection9.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService9.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection9.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService9.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection9.Text = "DAL - Activités d'alimentation" Then
ComboBoxService9.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection9.Text = "DAL - Logistique" Then
ComboBoxService9.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection9.Text = "DAL - Soutien" Then
ComboBoxService9.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection9.Text = "DHEB - Hébergement" Then
ComboBoxService9.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection9.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService9.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection9.Text = "DPSMD - Adultes" Then
ComboBoxService9.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection9.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService9.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection9.Text = "DQEPE - Performance" Then
ComboBoxService9.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection9.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService9.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection9.Text = "DREI - Enseignement" Then
ComboBoxService9.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection9.Text = "DREI - Recherche" Then
ComboBoxService9.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection9.Text = "DRF - Budget et performance financière" Then
ComboBoxService9.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection9.Text = "DRF - Services financiers" Then
ComboBoxService9.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection9.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService9.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection9.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService9.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection9.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService9.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection9.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService9.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection9.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService9.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection9.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService9.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection9.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService9.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection9.Text = "DSI - Gestion hospitalière" Then
ComboBoxService9.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection9.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService9.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection9.Text = "DSM - Services diagnostiques" Then
ComboBoxService9.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection9.Text = "DSP - Département de pharmacie" Then
ComboBoxService9.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection9.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService9.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection9.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService9.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection9.Text = "DSP - Soins critiques" Then
ComboBoxService9.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection9.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService9.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection10_Change()
ComboBoxService10.Clear
If ComboBoxDirection10.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService10.List = Range("BPDG").Value
ElseIf ComboBoxDirection10.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService10.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection10.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService10.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection10.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService10.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection10.Text = "DAL - Activités d'alimentation" Then
ComboBoxService10.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection10.Text = "DAL - Logistique" Then
ComboBoxService10.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection10.Text = "DAL - Soutien" Then
ComboBoxService10.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection10.Text = "DHEB - Hébergement" Then
ComboBoxService10.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection10.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService10.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection10.Text = "DPSMD - Adultes" Then
ComboBoxService10.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection10.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService10.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection10.Text = "DQEPE - Performance" Then
ComboBoxService10.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection10.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService10.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection10.Text = "DREI - Enseignement" Then
ComboBoxService10.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection10.Text = "DREI - Recherche" Then
ComboBoxService10.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection10.Text = "DRF - Budget et performance financière" Then
ComboBoxService10.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection10.Text = "DRF - Services financiers" Then
ComboBoxService10.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection10.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService10.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection10.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService10.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection10.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService10.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection10.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService10.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection10.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService10.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection10.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService10.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection10.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService10.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection10.Text = "DSI - Gestion hospitalière" Then
ComboBoxService10.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection10.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService10.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection10.Text = "DSM - Services diagnostiques" Then
ComboBoxService10.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection10.Text = "DSP - Département de pharmacie" Then
ComboBoxService10.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection10.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService10.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection10.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService10.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection10.Text = "DSP - Soins critiques" Then
ComboBoxService10.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection10.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService10.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection11_Change()
ComboBoxService11.Clear
If ComboBoxDirection11.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService11.List = Range("BPDG").Value
ElseIf ComboBoxDirection11.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService11.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection11.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService11.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection11.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService11.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection11.Text = "DAL - Activités d'alimentation" Then
ComboBoxService11.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection11.Text = "DAL - Logistique" Then
ComboBoxService11.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection11.Text = "DAL - Soutien" Then
ComboBoxService11.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection11.Text = "DHEB - Hébergement" Then
ComboBoxService11.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection11.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService11.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection11.Text = "DPSMD - Adultes" Then
ComboBoxService11.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection11.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService11.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection11.Text = "DQEPE - Performance" Then
ComboBoxService11.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection11.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService11.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection11.Text = "DREI - Enseignement" Then
ComboBoxService11.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection11.Text = "DREI - Recherche" Then
ComboBoxService11.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection11.Text = "DRF - Budget et performance financière" Then
ComboBoxService11.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection11.Text = "DRF - Services financiers" Then
ComboBoxService11.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection11.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService11.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection11.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService11.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection11.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService11.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection11.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService11.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection11.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService11.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection11.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService11.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection11.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService11.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection11.Text = "DSI - Gestion hospitalière" Then
ComboBoxService11.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection11.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService11.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection11.Text = "DSM - Services diagnostiques" Then
ComboBoxService11.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection11.Text = "DSP - Département de pharmacie" Then
ComboBoxService11.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection11.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService11.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection11.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService11.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection11.Text = "DSP - Soins critiques" Then
ComboBoxService11.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection11.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService11.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection12_Change()
ComboBoxService12.Clear
If ComboBoxDirection12.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService12.List = Range("BPDG").Value
ElseIf ComboBoxDirection12.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService12.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection12.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService12.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection12.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService12.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection12.Text = "DAL - Activités d'alimentation" Then
ComboBoxService12.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection12.Text = "DAL - Logistique" Then
ComboBoxService12.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection12.Text = "DAL - Soutien" Then
ComboBoxService12.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection12.Text = "DHEB - Hébergement" Then
ComboBoxService12.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection12.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService12.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection12.Text = "DPSMD - Adultes" Then
ComboBoxService12.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection12.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService12.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection12.Text = "DQEPE - Performance" Then
ComboBoxService12.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection12.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService12.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection12.Text = "DREI - Enseignement" Then
ComboBoxService12.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection12.Text = "DREI - Recherche" Then
ComboBoxService12.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection12.Text = "DRF - Budget et performance financière" Then
ComboBoxService12.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection12.Text = "DRF - Services financiers" Then
ComboBoxService12.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection12.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService12.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection12.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService12.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection12.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService12.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection12.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService12.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection12.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService12.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection12.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService12.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection12.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService12.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection12.Text = "DSI - Gestion hospitalière" Then
ComboBoxService12.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection12.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService12.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection12.Text = "DSM - Services diagnostiques" Then
ComboBoxService12.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection12.Text = "DSP - Département de pharmacie" Then
ComboBoxService12.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection12.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService12.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection12.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService12.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection12.Text = "DSP - Soins critiques" Then
ComboBoxService12.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection12.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService12.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection13_Change()
ComboBoxService13.Clear
If ComboBoxDirection13.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService13.List = Range("BPDG").Value
ElseIf ComboBoxDirection13.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService13.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection13.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService13.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection13.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService13.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection13.Text = "DAL - Activités d'alimentation" Then
ComboBoxService13.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection13.Text = "DAL - Logistique" Then
ComboBoxService13.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection13.Text = "DAL - Soutien" Then
ComboBoxService13.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection13.Text = "DHEB - Hébergement" Then
ComboBoxService13.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection13.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService13.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection13.Text = "DPSMD - Adultes" Then
ComboBoxService13.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection13.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService13.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection13.Text = "DQEPE - Performance" Then
ComboBoxService13.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection13.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService13.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection13.Text = "DREI - Enseignement" Then
ComboBoxService13.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection13.Text = "DREI - Recherche" Then
ComboBoxService13.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection13.Text = "DRF - Budget et performance financière" Then
ComboBoxService13.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection13.Text = "DRF - Services financiers" Then
ComboBoxService13.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection13.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService13.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection13.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService13.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection13.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService13.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection13.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService13.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection13.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService13.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection13.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService13.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection13.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService13.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection13.Text = "DSI - Gestion hospitalière" Then
ComboBoxService13.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection13.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService13.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection13.Text = "DSM - Services diagnostiques" Then
ComboBoxService13.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection13.Text = "DSP - Département de pharmacie" Then
ComboBoxService13.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection13.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService13.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection13.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService13.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection13.Text = "DSP - Soins critiques" Then
ComboBoxService13.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection13.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService13.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
'DateSaisie
Private Sub DateSaisie1_Change()
End Sub
Private Sub DateSaisie2_Change()
End Sub
Private Sub DateSaisie3_Change()
End Sub
Private Sub DateSaisie4_Change()
End Sub
Private Sub DateSaisie5_Change()
End Sub
Private Sub DateSaisie6_Change()
End Sub
Private Sub DateSaisie7_Change()
End Sub
Private Sub DateSaisie8_Change()
End Sub
Private Sub DateSaisie9_Change()
End Sub
Private Sub DateSaisie10_Change()
End Sub
Private Sub DateSaisie11_Change()
End Sub
Private Sub DateSaisie12_Change()
End Sub
Private Sub DateSaisie13_Change()
End Sub
Private Sub DateSaisie14_Change()
End Sub
Private Sub DateSaisie15_Change()
End Sub
'Spin button
Private Sub Spin1_Change()
NbrDemandes1.Value = Spin1.Value
End Sub
Private Sub Spin2_Change()
NbrDemandes2.Value = Spin2.Value
End Sub
Private Sub Spin3_Change()
NbrDemandes3.Value = Spin3.Value
End Sub
Private Sub Spin4_Change()
NbrDemandes4.Value = Spin4.Value
End Sub
Private Sub Spin5_Change()
NbrDemandes5.Value = Spin5.Value
End Sub
Private Sub Spin6_Change()
NbrDemandes6.Value = Spin6.Value
End Sub
Private Sub Spin7_Change()
NbrDemandes7.Value = Spin7.Value
End Sub
Private Sub Spin8_Change()
NbrDemandes8.Value = Spin8.Value
End Sub
Private Sub Spin9_Change()
NbrDemandes9.Value = Spin9.Value
End Sub
Private Sub Spin10_Change()
NbrDemandes10.Value = Spin10.Value
End Sub
Private Sub Spin11_Change()
NbrDemandes11.Value = Spin11.Value
End Sub
Private Sub Spin12_Change()
NbrDemandes12.Value = Spin12.Value
End Sub
Private Sub Spin13_Change()
NbrDemandes13.Value = Spin13.Value
End Sub
Private Sub Spin14_Change()
NbrDemandes14.Value = Spin14.Value
End Sub
Private Sub Spin15_Change()
NbrDemandes15.Value = Spin15.Value
End Sub
--------------------------------
Je ne peux pas joindre le fichier il est volumuneux
Merci d'avance
Je suis débutant en VBA. J'utilise un formulaire pour la saisie des données qui contient 15 pages en tout. J'ai un petit problème au niveau de la page 14 et 15. J'ai un code d'erreur qui s'affiche (voir les images)
1- Champ Date: J'aimerais avoir la date du jour automatiquement.
2- Champ Nombre de personnes ; J'aimerais avoir le chiffre 1 par défaut.
3- Le bouton "Effacer" : Effacer seulement le champ "Activité" et le champ Nombre de personne (garder le chiffre 1 par défaut)
4- Le bouton "Enregistrer" : Enregistrer les données dans "Base de données" et effacer le formulaire.
NB: Toutes les autres pager sont correct.
Voici le code VBA:
'2020 Jul 21
'Denis Lamarre, 579-883-8920
'dlamarre@cedeq.com
Option Explicit
Option Base 1
Const SAVED As String = "La fiche a été enregistrée"
'Boutons "Effacer"
Private Sub ButtonEffacer1_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie1 = Format(Date, "yyyy/mm/dd")
NbrDemandes1 = 1
Spin1 = 1
ComboBoxNom1 = ""
ComboBoxNom1.List = rNomDuRequérant.Value
ComboBoxTitre1 = ""
ComboBoxDirection1 = ""
ComboBoxService1 = ""
ComboBoxActivite1 = ""
End Sub
Private Sub ButtonEffacer2_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie2 = Format(Date, "yyyy/mm/dd")
NbrDemandes2 = 1
Spin2 = 1
ComboBoxNom2 = ""
ComboBoxNom2.List = rNomDuRequérant.Value
ComboBoxTitre2 = ""
ComboBoxDirection2 = ""
ComboBoxService2 = ""
ComboBoxActivite2 = ""
End Sub
Private Sub ButtonEffacer3_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie3 = Format(Date, "yyyy/mm/dd")
NbrDemandes3 = 1
Spin3 = 1
ComboBoxFormation3 = ""
ComboBoxNom3 = ""
ComboBoxNom3.List = rNomDuRequérant.Value
ComboBoxTitre3 = ""
ComboBoxDirection3 = ""
ComboBoxService3 = ""
ComboBoxActivite3 = ""
End Sub
Private Sub ButtonEffacer4_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie4 = Format(Date, "yyyy/mm/dd")
NbrDemandes4 = 1
Spin4 = 1
ComboBoxNom4 = ""
ComboBoxNom4.List = rNomDuRequérant.Value
ComboBoxTitre4 = ""
ComboBoxDirection4 = ""
ComboBoxService4 = ""
ComboBoxActivite4 = ""
End Sub
Private Sub ButtonEffacer5_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie5 = Format(Date, "yyyy/mm/dd")
NbrDemandes5 = 1
Spin5 = 1
End Sub
Private Sub ButtonEffacer6_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie6 = Format(Date, "yyyy/mm/dd")
NbrDemandes6 = 1
Spin6 = 1
ComboBoxNom6 = ""
ComboBoxNom6.List = rNomDuRequérant.Value
ComboBoxTitre6 = ""
ComboBoxDirection6 = ""
ComboBoxService6 = ""
ComboBoxActivite6 = ""
End Sub
Private Sub ButtonEffacer7_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie7 = Format(Date, "yyyy/mm/dd")
NbrDemandes7 = 1
Spin7 = 1
ComboBoxNom7.List = rNomDuRequérant.Value
ComboBoxTitre7 = ""
ComboBoxDirection7 = ""
ComboBoxService7 = ""
ComboBoxActivite7 = ""
End Sub
Private Sub ButtonEffacer8_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie8 = Format(Date, "yyyy/mm/dd")
NbrDemandes8 = 1
Spin8 = 1
ComboBoxNom8.List = rNomDuRequérant.Value
ComboBoxTitre8 = ""
ComboBoxDirection8 = ""
ComboBoxService8 = ""
ComboBoxActivite8 = ""
End Sub
Private Sub ButtonEffacer9_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie9 = Format(Date, "yyyy/mm/dd")
NbrDemandes9 = 1
Spin9 = 1
ComboBoxNom9 = ""
ComboBoxNom9.List = rNomDuRequérant.Value
ComboBoxTitre9 = ""
ComboBoxDirection9 = ""
ComboBoxService9 = ""
ComboBoxActivite9 = ""
End Sub
Private Sub ButtonEffacer10_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie10 = Format(Date, "yyyy/mm/dd")
NbrDemandes10 = 1
Spin10 = 1
TextSujetUn10 = ""
TextSujetDeux10 = ""
TextSujetTrois10 = ""
ComboBD1 = ""
ComboBD2 = ""
ComboBD3 = ""
ComboBoxNom10 = ""
ComboBoxNom10.List = rNomDuRequérant.Value
ComboBoxTitre10 = ""
ComboBoxDirection10 = ""
ComboBoxService10 = ""
ComboBoxActivite10 = ""
End Sub
Private Sub ButtonEffacer11_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie11 = Format(Date, "yyyy/mm/dd")
NbrDemandes11 = 1
Spin11 = 1
ComboBoxNom11 = ""
ComboBoxNom11.List = rNomDuRequérant.Value
ComboBoxTitre11 = ""
ComboBoxDirection11 = ""
ComboBoxService11 = ""
ComboBoxActivite11 = ""
End Sub
Private Sub ButtonEffacer12_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie12 = Format(Date, "yyyy/mm/dd")
NbrDemandes12 = 1
Spin12 = 1
TextSujetUn12 = ""
TextSujetDeux12 = ""
TextSujetTrois12 = ""
ComboBoxNom12 = ""
ComboBoxNom12.List = rNomDuRequérant.Value
ComboBoxTitre12 = ""
ComboBoxDirection12 = ""
ComboBoxService12 = ""
ComboBoxActivite12 = ""
End Sub
Private Sub ButtonEffacer13_Click()
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie13 = Format(Date, "yyyy/mm/dd")
NbrDemandes13 = 1
Spin13 = 1
TextSujetUn13 = ""
TextSujetDeux13 = ""
TextSujetTrois13 = ""
ComboBoxNom13 = ""
ComboBoxNom13.List = rNomDuRequérant.Value
ComboBoxTitre13 = ""
ComboBoxDirection13 = ""
ComboBoxService13 = ""
ComboBoxActivite13 = ""
End Sub
Private Sub ButtonEffacer14_Click()
End Sub
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie14 = Format(Date, "yyyy/mm/dd")
NbrDemandes14 = 1
Spin14 = 1
ComboBoxFrequentation14 = ""
End Sub
Private Sub ButtonEffacer15_Click()
End Sub
Dim rNomDuRequérant As Range
Set rNomDuRequérant = Sheets("Base de données").ListObjects("Tableau1").ListColumns(8).DataBodyRange
DateSaisie15 = Format(Date, "yyyy/mm/dd")
NbrDemandes15 = 1
Spin15 = 1
ComboBoxFrequentation15 = ""
End Sub
'Boutons "Enregistrer"
Private Sub ButtonEnregistrer1_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie1)
.Range(2) = CLng(NbrDemandes1)
.Range(3) = TextService1
.Range(8) = ComboBoxNom1
.Range(9) = ComboBoxTitre1
.Range(10) = ComboBoxDirection1
.Range(11) = ComboBoxService1
.Range(12) = ComboBoxActivite1
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer1_Click
End Sub
Private Sub ButtonEnregistrer2_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie2)
.Range(2) = CLng(NbrDemandes2)
.Range(3) = TextService2
.Range(8) = ComboBoxNom2
.Range(9) = ComboBoxTitre2
.Range(10) = ComboBoxDirection2
.Range(11) = ComboBoxService2
.Range(12) = ComboBoxActivite2
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer2_Click
End Sub
Private Sub ButtonEnregistrer3_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie3)
.Range(2) = CLng(NbrDemandes3)
.Range(3) = TextService3
.Range(7) = ComboBoxFormation3
.Range(8) = ComboBoxNom3
.Range(9) = ComboBoxTitre3
.Range(10) = ComboBoxDirection3
.Range(11) = ComboBoxService3
.Range(12) = ComboBoxActivite3
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer3_Click
End Sub
Private Sub ButtonEnregistrer4_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie4)
.Range(2) = CLng(NbrDemandes4)
.Range(3) = TextService4
.Range(8) = ComboBoxNom4
.Range(9) = ComboBoxTitre4
.Range(10) = ComboBoxDirection4
.Range(11) = ComboBoxService4
.Range(12) = ComboBoxActivite4
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer4_Click
End Sub
Private Sub ButtonEnregistrer5_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie5)
.Range(2) = CLng(NbrDemandes5)
.Range(3) = TextService5
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer5_Click
End Sub
Private Sub ButtonEnregistrer6_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie6)
.Range(2) = CLng(NbrDemandes6)
.Range(3) = TextService6
.Range(8) = ComboBoxNom6
.Range(9) = ComboBoxTitre6
.Range(10) = ComboBoxDirection6
.Range(11) = ComboBoxService6
.Range(12) = ComboBoxActivite6
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer6_Click
End Sub
Private Sub ButtonEnregistrer7_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie7)
.Range(2) = CLng(NbrDemandes7)
.Range(3) = TextService7
.Range(8) = ComboBoxNom7
.Range(9) = ComboBoxTitre7
.Range(10) = ComboBoxDirection7
.Range(11) = ComboBoxService7
.Range(12) = ComboBoxActivite7
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer7_Click
End Sub
Private Sub ButtonEnregistrer8_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie8)
.Range(2) = CLng(NbrDemandes8)
.Range(3) = TextService8
.Range(8) = ComboBoxNom8
.Range(9) = ComboBoxTitre8
.Range(10) = ComboBoxDirection8
.Range(11) = ComboBoxService8
.Range(12) = ComboBoxActivite8
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer8_Click
End Sub
Private Sub ButtonEnregistrer9_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie9)
.Range(2) = CLng(NbrDemandes9)
.Range(3) = TextService9
.Range(8) = ComboBoxNom9
.Range(9) = ComboBoxTitre9
.Range(10) = ComboBoxDirection9
.Range(11) = ComboBoxService9
.Range(12) = ComboBoxActivite9
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer9_Click
End Sub
Private Sub ButtonEnregistrer10_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie10)
.Range(2) = CLng(NbrDemandes10)
.Range(3) = TextService10
.Range(4) = TextSujetUn10
.Range(5) = TextSujetDeux10
.Range(6) = TextSujetTrois10
.Range(8) = ComboBoxNom10
.Range(9) = ComboBoxTitre10
.Range(10) = ComboBoxDirection10
.Range(11) = ComboBoxService10
.Range(12) = ComboBoxActivite10
.Range(13) = ComboBD1
.Range(14) = ComboBD2
.Range(15) = ComboBD3
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer10_Click
End Sub
Private Sub ButtonEnregistrer11_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie11)
.Range(2) = CLng(NbrDemandes11)
.Range(3) = TextService11
.Range(8) = ComboBoxNom11
.Range(9) = ComboBoxTitre11
.Range(10) = ComboBoxDirection11
.Range(11) = ComboBoxService11
.Range(12) = ComboBoxActivite11
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer11_Click
End Sub
Private Sub ButtonEnregistrer12_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie12)
.Range(2) = CLng(NbrDemandes12)
.Range(3) = TextService12
.Range(4) = TextSujetUn12
.Range(5) = TextSujetDeux12
.Range(6) = TextSujetTrois12
.Range(8) = ComboBoxNom12
.Range(9) = ComboBoxTitre12
.Range(10) = ComboBoxDirection12
.Range(11) = ComboBoxService12
.Range(12) = ComboBoxActivite12
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer12_Click
End Sub
Private Sub ButtonEnregistrer13_Click()
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie13)
.Range(2) = CLng(NbrDemandes13)
.Range(3) = TextService13
.Range(4) = TextSujetUn13
.Range(5) = TextSujetDeux13
.Range(6) = TextSujetTrois13
.Range(8) = ComboBoxNom13
.Range(9) = ComboBoxTitre13
.Range(10) = ComboBoxDirection13
.Range(11) = ComboBoxService13
.Range(12) = ComboBoxActivite13
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer13_Click
End Sub
Private Sub ButtonEnregistrer14_Click()
End Sub
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie14)
.Range(2) = CLng(NbrDemandes14)
.Range(16) = ComboBoxFrequentation14
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer14_Click
Private Sub ButtonEnregistrer15_Click()
End Sub
Dim tData As ListObject
Set tData = Feuil1.ListObjects("Tableau1")
Dim lRow As ListRow
Set lRow = tData.ListRows.Add
With lRow
.Range(1) = CDate(DateSaisie15)
.Range(2) = CLng(NbrDemandes15)
.Range(16) = ComboBoxFrequentation17
End With
Call MsgBox(SAVED, vbInformation)
Call ButtonEffacer15_Click
Private Sub Label140_Click()
End Sub
Private Sub ComboBD1_Change()
End Sub
Private Sub ComboBoxFrequentation14_Change()
End Sub
Private Sub ComboBoxNom7_Change()
End Sub
Private Sub ComboBoxService1_Change()
End Sub
Private Sub ComboBoxService11_Change()
End Sub
Private Sub ComboBoxService3_Change()
End Sub
Private Sub ComboBoxService4_Change()
End Sub
Private Sub ComboBoxTitre7_Change()
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label129_Click()
End Sub
Private Sub Label141_Click()
End Sub
Private Sub Label142_Click()
End Sub
Private Sub Label144_Click()
End Sub
Private Sub Label85_Click()
End Sub
Private Sub Label184_Click()
End Sub
Private Sub Label54_Click()
End Sub
Private Sub MultiPage1_Change()
End Sub
Private Sub Spin15_SpinDown()
End Sub
Private Sub Spin15_SpinUp()
End Sub
Private Sub TextSujetUn13_Change()
End Sub
'Form
Private Sub UserForm_Initialize()
ButtonEffacer1_Click
ButtonEffacer2_Click
ButtonEffacer3_Click
ButtonEffacer4_Click
ButtonEffacer5_Click
ButtonEffacer6_Click
ButtonEffacer7_Click
ButtonEffacer8_Click
ButtonEffacer9_Click
ButtonEffacer10_Click
ButtonEffacer11_Click
ButtonEffacer12_Click
ButtonEffacer13_Click
End Sub
'Global buttons
Private Sub ButtonFermer_Click()
Unload Me
End Sub
Private Sub ButtonSource_Click()
Worksheets("Base de données").Activate
End Sub
'ComboBox Direction
Private Sub ComboBoxDirection1_Change()
ComboBoxService1.Clear
If ComboBoxDirection1.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService1.List = Range("BPDG").Value
ElseIf ComboBoxDirection1.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService1.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection1.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService1.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection1.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService1.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection1.Text = "DAL - Activités d’alimentation" Then
ComboBoxService1.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection1.Text = "DAL - Logistique" Then
ComboBoxService1.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection1.Text = "DAL - Soutien" Then
ComboBoxService1.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection1.Text = "DHEB - Hébergement" Then
ComboBoxService1.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection1.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService1.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection1.Text = "DPSMD - Adultes" Then
ComboBoxService1.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection1.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService1.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection1.Text = "DQEPE - Performance" Then
ComboBoxService1.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection1.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService1.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection1.Text = "DREI - Enseignement" Then
ComboBoxService1.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection1.Text = "DREI - Recherche" Then
ComboBoxService1.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection1.Text = "DRF - Budget et performance financière" Then
ComboBoxService1.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection1.Text = "DRF - Services financiers" Then
ComboBoxService1.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection1.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService1.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection1.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService1.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection1.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService1.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection1.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService1.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection1.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService1.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection1.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService1.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection1.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService1.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection1.Text = "DSI - Gestion hospitalière" Then
ComboBoxService1.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection1.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService1.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection1.Text = "DSM - Services diagnostiques" Then
ComboBoxService1.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection1.Text = "DSP - Département de pharmacie" Then
ComboBoxService1.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection1.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService1.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection1.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService1.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection1.Text = "DSP - Soins critiques" Then
ComboBoxService1.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection1.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService1.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection2_Change()
ComboBoxService2.Clear
If ComboBoxDirection2.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService2.List = Range("BPDG").Value
ElseIf ComboBoxDirection2.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService2.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection2.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService2.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection2.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService2.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection2.Text = "DAL - Activités d'alimentation" Then
ComboBoxService2.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection2.Text = "DAL - Logistique" Then
ComboBoxService2.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection2.Text = "DAL - Soutien" Then
ComboBoxService2.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection2.Text = "DHEB - Hébergement" Then
ComboBoxService2.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection2.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService2.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection2.Text = "DPSMD - Adultes" Then
ComboBoxService2.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection2.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService2.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection2.Text = "DQEPE - Performance" Then
ComboBoxService2.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection2.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService2.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection2.Text = "DREI - Enseignement" Then
ComboBoxService2.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection2.Text = "DREI - Recherche" Then
ComboBoxService2.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection2.Text = "DRF - Budget et performance financière" Then
ComboBoxService2.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection2.Text = "DRF - Services financiers" Then
ComboBoxService2.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection2.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService2.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection2.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService2.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection2.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService2.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection2.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService2.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection2.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService2.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection2.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService2.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection2.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService2.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection2.Text = "DSI - Gestion hospitalière" Then
ComboBoxService2.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection2.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService2.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection2.Text = "DSM - Services diagnostiques" Then
ComboBoxService2.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection2.Text = "DSP - Département de pharmacie" Then
ComboBoxService2.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection2.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService2.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection2.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService2.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection2.Text = "DSP - Soins critiques" Then
ComboBoxService2.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection2.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService2.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection3_Change()
ComboBoxService3.Clear
If ComboBoxDirection3.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService3.List = Range("BPDG").Value
ElseIf ComboBoxDirection3.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService3.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection3.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService3.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection3.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService3.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection3.Text = "DAL - Activités d'alimentation" Then
ComboBoxService3.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection3.Text = "DAL - Logistique" Then
ComboBoxService3.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection3.Text = "DAL - Soutien" Then
ComboBoxService3.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection3.Text = "DHEB - Hébergement" Then
ComboBoxService3.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection3.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService3.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection3.Text = "DPSMD - Adultes" Then
ComboBoxService3.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection3.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService3.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection3.Text = "DQEPE - Performance" Then
ComboBoxService3.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection3.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService3.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection3.Text = "DREI - Enseignement" Then
ComboBoxService3.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection3.Text = "DREI - Recherche" Then
ComboBoxService3.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection3.Text = "DRF - Budget et performance financière" Then
ComboBoxService3.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection3.Text = "DRF - Services financiers" Then
ComboBoxService3.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection3.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService3.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection3.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService3.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection3.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService3.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection3.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService3.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection3.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService3.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection3.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService3.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection3.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService3.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection3.Text = "DSI - Gestion hospitalière" Then
ComboBoxService3.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection3.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService3.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection3.Text = "DSM - Services diagnostiques" Then
ComboBoxService3.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection3.Text = "DSP - Département de pharmacie" Then
ComboBoxService3.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection3.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService3.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection3.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService3.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection3.Text = "DSP - Soins critiques" Then
ComboBoxService3.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection3.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService3.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection4_Change()
ComboBoxService4.Clear
If ComboBoxDirection4.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService4.List = Range("BPDG").Value
ElseIf ComboBoxDirection4.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService4.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection4.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService4.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection4.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService4.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection4.Text = "DAL - Activités d'alimentation" Then
ComboBoxService4.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection4.Text = "DAL - Logistique" Then
ComboBoxService4.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection4.Text = "DAL - Soutien" Then
ComboBoxService4.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection4.Text = "DHEB - Hébergement" Then
ComboBoxService4.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection4.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService4.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection4.Text = "DPSMD - Adultes" Then
ComboBoxService4.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection4.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService4.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection4.Text = "DQEPE - Performance" Then
ComboBoxService4.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection4.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService4.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection4.Text = "DREI - Enseignement" Then
ComboBoxService4.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection4.Text = "DREI - Recherche" Then
ComboBoxService4.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection4.Text = "DRF - Budget et performance financière" Then
ComboBoxService4.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection4.Text = "DRF - Services financiers" Then
ComboBoxService4.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection4.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService4.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection4.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService4.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection4.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService4.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection4.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService4.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection4.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService4.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection4.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService4.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection4.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService4.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection4.Text = "DSI - Gestion hospitalière" Then
ComboBoxService4.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection4.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService4.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection4.Text = "DSM - Services diagnostiques" Then
ComboBoxService4.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection4.Text = "DSP - Département de pharmacie" Then
ComboBoxService4.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection4.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService4.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection4.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService4.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection4.Text = "DSP - Soins critiques" Then
ComboBoxService4.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection4.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService4.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxTitre5_Change()
ComboBoxDiscipline5.Clear
If ComboBoxTitre5.Text = "Médecin" Then
ComboBoxDiscipline5.List = Range("Medecin").Value
ElseIf ComboBoxTitre5.Text = "Stagiaire " Then
ComboBoxDiscipline5.List = Range("Stagiaire").Value
ElseIf ComboBoxTitre5.Text = "Résident et externe" Then
ComboBoxDiscipline5.List = Range("Résident_et_externe").Value
End If
End Sub
Private Sub ComboBoxDirection6_Change()
ComboBoxService6.Clear
If ComboBoxDirection6.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService6.List = Range("BPDG").Value
ElseIf ComboBoxDirection6.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService6.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection6.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService6.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection6.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService6.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection6.Text = "DAL - Activités d'alimentation" Then
ComboBoxService6.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection6.Text = "DAL - Logistique" Then
ComboBoxService6.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection6.Text = "DAL - Soutien" Then
ComboBoxService6.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection6.Text = "DHEB - Hébergement" Then
ComboBoxService6.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection6.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService6.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection6.Text = "DPSMD - Adultes" Then
ComboBoxService6.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection6.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService6.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection6.Text = "DQEPE - Performance" Then
ComboBoxService6.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection6.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService6.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection6.Text = "DREI - Enseignement" Then
ComboBoxService6.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection6.Text = "DREI - Recherche" Then
ComboBoxService6.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection6.Text = "DRF - Budget et performance financière" Then
ComboBoxService6.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection6.Text = "DRF - Services financiers" Then
ComboBoxService6.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection6.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService6.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection6.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService6.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection6.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService6.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection6.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService6.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection6.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService6.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection6.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService6.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection6.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService6.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection6.Text = "DSI - Gestion hospitalière" Then
ComboBoxService6.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection6.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService6.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection6.Text = "DSM - Services diagnostiques" Then
ComboBoxService6.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection6.Text = "DSP - Département de pharmacie" Then
ComboBoxService6.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection6.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService6.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection6.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService6.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection6.Text = "DSP - Soins critiques" Then
ComboBoxService6.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection6.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService6.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection7_Change()
ComboBoxService7.Clear
If ComboBoxDirection7.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService7.List = Range("BPDG").Value
ElseIf ComboBoxDirection7.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService7.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection7.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService7.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection7.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService7.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection7.Text = "DAL - Activités d'alimentation" Then
ComboBoxService7.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection7.Text = "DAL - Logistique" Then
ComboBoxService7.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection7.Text = "DAL - Soutien" Then
ComboBoxService7.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection7.Text = "DHEB - Hébergement" Then
ComboBoxService7.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection7.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService7.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection7.Text = "DPSMD - Adultes" Then
ComboBoxService7.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection7.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService7.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection7.Text = "DQEPE - Performance" Then
ComboBoxService7.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection7.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService7.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection7.Text = "DREI - Enseignement" Then
ComboBoxService7.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection7.Text = "DREI - Recherche" Then
ComboBoxService7.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection7.Text = "DRF - Budget et performance financière" Then
ComboBoxService7.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection7.Text = "DRF - Services financiers" Then
ComboBoxService7.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection7.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService7.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection7.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService7.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection7.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService7.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection7.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService7.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection7.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService7.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection7.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService7.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection7.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService7.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection7.Text = "DSI - Gestion hospitalière" Then
ComboBoxService7.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection7.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService7.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection7.Text = "DSM - Services diagnostiques" Then
ComboBoxService7.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection7.Text = "DSP - Département de pharmacie" Then
ComboBoxService7.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection7.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService7.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection7.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService7.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection7.Text = "DSP - Soins critiques" Then
ComboBoxService7.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection7.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService7.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection8_Change()
ComboBoxService8.Clear
If ComboBoxDirection8.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService8.List = Range("BPDG").Value
ElseIf ComboBoxDirection8.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService8.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection8.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService8.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection8.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService8.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection8.Text = "DAL - Activités d'alimentation" Then
ComboBoxService8.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection8.Text = "DAL - Logistique" Then
ComboBoxService8.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection8.Text = "DAL - Soutien" Then
ComboBoxService8.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection8.Text = "DHEB - Hébergement" Then
ComboBoxService8.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection8.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService8.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection8.Text = "DPSMD - Adultes" Then
ComboBoxService8.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection8.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService8.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection8.Text = "DQEPE - Performance" Then
ComboBoxService8.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection8.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService8.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection8.Text = "DREI - Enseignement" Then
ComboBoxService8.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection8.Text = "DREI - Recherche" Then
ComboBoxService8.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection8.Text = "DRF - Budget et performance financière" Then
ComboBoxService8.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection8.Text = "DRF - Services financiers" Then
ComboBoxService8.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection8.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService8.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection8.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService8.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection8.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService8.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection8.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService8.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection8.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService8.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection8.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService8.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection8.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService8.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection8.Text = "DSI - Gestion hospitalière" Then
ComboBoxService8.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection8.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService8.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection8.Text = "DSM - Services diagnostiques" Then
ComboBoxService8.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection8.Text = "DSP - Département de pharmacie" Then
ComboBoxService8.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection8.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService8.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection8.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService8.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection8.Text = "DSP - Soins critiques" Then
ComboBoxService8.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection8.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService8.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection9_Change()
ComboBoxService9.Clear
If ComboBoxDirection9.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService9.List = Range("BPDG").Value
ElseIf ComboBoxDirection9.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService9.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection9.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService9.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection9.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService9.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection9.Text = "DAL - Activités d'alimentation" Then
ComboBoxService9.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection9.Text = "DAL - Logistique" Then
ComboBoxService9.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection9.Text = "DAL - Soutien" Then
ComboBoxService9.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection9.Text = "DHEB - Hébergement" Then
ComboBoxService9.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection9.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService9.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection9.Text = "DPSMD - Adultes" Then
ComboBoxService9.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection9.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService9.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection9.Text = "DQEPE - Performance" Then
ComboBoxService9.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection9.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService9.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection9.Text = "DREI - Enseignement" Then
ComboBoxService9.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection9.Text = "DREI - Recherche" Then
ComboBoxService9.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection9.Text = "DRF - Budget et performance financière" Then
ComboBoxService9.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection9.Text = "DRF - Services financiers" Then
ComboBoxService9.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection9.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService9.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection9.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService9.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection9.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService9.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection9.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService9.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection9.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService9.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection9.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService9.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection9.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService9.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection9.Text = "DSI - Gestion hospitalière" Then
ComboBoxService9.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection9.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService9.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection9.Text = "DSM - Services diagnostiques" Then
ComboBoxService9.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection9.Text = "DSP - Département de pharmacie" Then
ComboBoxService9.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection9.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService9.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection9.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService9.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection9.Text = "DSP - Soins critiques" Then
ComboBoxService9.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection9.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService9.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection10_Change()
ComboBoxService10.Clear
If ComboBoxDirection10.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService10.List = Range("BPDG").Value
ElseIf ComboBoxDirection10.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService10.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection10.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService10.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection10.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService10.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection10.Text = "DAL - Activités d'alimentation" Then
ComboBoxService10.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection10.Text = "DAL - Logistique" Then
ComboBoxService10.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection10.Text = "DAL - Soutien" Then
ComboBoxService10.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection10.Text = "DHEB - Hébergement" Then
ComboBoxService10.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection10.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService10.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection10.Text = "DPSMD - Adultes" Then
ComboBoxService10.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection10.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService10.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection10.Text = "DQEPE - Performance" Then
ComboBoxService10.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection10.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService10.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection10.Text = "DREI - Enseignement" Then
ComboBoxService10.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection10.Text = "DREI - Recherche" Then
ComboBoxService10.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection10.Text = "DRF - Budget et performance financière" Then
ComboBoxService10.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection10.Text = "DRF - Services financiers" Then
ComboBoxService10.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection10.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService10.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection10.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService10.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection10.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService10.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection10.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService10.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection10.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService10.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection10.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService10.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection10.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService10.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection10.Text = "DSI - Gestion hospitalière" Then
ComboBoxService10.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection10.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService10.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection10.Text = "DSM - Services diagnostiques" Then
ComboBoxService10.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection10.Text = "DSP - Département de pharmacie" Then
ComboBoxService10.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection10.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService10.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection10.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService10.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection10.Text = "DSP - Soins critiques" Then
ComboBoxService10.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection10.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService10.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection11_Change()
ComboBoxService11.Clear
If ComboBoxDirection11.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService11.List = Range("BPDG").Value
ElseIf ComboBoxDirection11.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService11.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection11.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService11.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection11.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService11.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection11.Text = "DAL - Activités d'alimentation" Then
ComboBoxService11.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection11.Text = "DAL - Logistique" Then
ComboBoxService11.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection11.Text = "DAL - Soutien" Then
ComboBoxService11.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection11.Text = "DHEB - Hébergement" Then
ComboBoxService11.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection11.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService11.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection11.Text = "DPSMD - Adultes" Then
ComboBoxService11.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection11.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService11.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection11.Text = "DQEPE - Performance" Then
ComboBoxService11.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection11.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService11.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection11.Text = "DREI - Enseignement" Then
ComboBoxService11.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection11.Text = "DREI - Recherche" Then
ComboBoxService11.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection11.Text = "DRF - Budget et performance financière" Then
ComboBoxService11.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection11.Text = "DRF - Services financiers" Then
ComboBoxService11.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection11.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService11.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection11.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService11.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection11.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService11.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection11.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService11.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection11.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService11.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection11.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService11.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection11.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService11.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection11.Text = "DSI - Gestion hospitalière" Then
ComboBoxService11.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection11.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService11.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection11.Text = "DSM - Services diagnostiques" Then
ComboBoxService11.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection11.Text = "DSP - Département de pharmacie" Then
ComboBoxService11.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection11.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService11.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection11.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService11.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection11.Text = "DSP - Soins critiques" Then
ComboBoxService11.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection11.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService11.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection12_Change()
ComboBoxService12.Clear
If ComboBoxDirection12.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService12.List = Range("BPDG").Value
ElseIf ComboBoxDirection12.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService12.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection12.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService12.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection12.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService12.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection12.Text = "DAL - Activités d'alimentation" Then
ComboBoxService12.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection12.Text = "DAL - Logistique" Then
ComboBoxService12.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection12.Text = "DAL - Soutien" Then
ComboBoxService12.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection12.Text = "DHEB - Hébergement" Then
ComboBoxService12.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection12.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService12.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection12.Text = "DPSMD - Adultes" Then
ComboBoxService12.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection12.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService12.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection12.Text = "DQEPE - Performance" Then
ComboBoxService12.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection12.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService12.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection12.Text = "DREI - Enseignement" Then
ComboBoxService12.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection12.Text = "DREI - Recherche" Then
ComboBoxService12.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection12.Text = "DRF - Budget et performance financière" Then
ComboBoxService12.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection12.Text = "DRF - Services financiers" Then
ComboBoxService12.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection12.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService12.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection12.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService12.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection12.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService12.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection12.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService12.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection12.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService12.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection12.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService12.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection12.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService12.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection12.Text = "DSI - Gestion hospitalière" Then
ComboBoxService12.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection12.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService12.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection12.Text = "DSM - Services diagnostiques" Then
ComboBoxService12.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection12.Text = "DSP - Département de pharmacie" Then
ComboBoxService12.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection12.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService12.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection12.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService12.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection12.Text = "DSP - Soins critiques" Then
ComboBoxService12.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection12.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService12.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
Private Sub ComboBoxDirection13_Change()
ComboBoxService13.Clear
If ComboBoxDirection13.Text = "BPDG - Bureau du Président-directeur général" Then
ComboBoxService13.List = Range("BPDG").Value
ElseIf ComboBoxDirection13.Text = "CPQS - Commissariat aux plaintes et à la qualité des services" Then
ComboBoxService13.List = Range("CPQS_Commissariat_aux_plaintes").Value
ElseIf ComboBoxDirection13.Text = "DAI - Développement et transformation des actifs immobiliers" Then
ComboBoxService13.List = Range("DAI_Developpement_et_transformation_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection13.Text = "DAI - Gestion des actifs immobiliers" Then
ComboBoxService13.List = Range("DAI_Gestion_des_actifs_immobiliers").Value
ElseIf ComboBoxDirection13.Text = "DAL - Activités d'alimentation" Then
ComboBoxService13.List = Range("DAL_Activites_d_alimentation").Value
ElseIf ComboBoxDirection13.Text = "DAL - Logistique" Then
ComboBoxService13.List = Range("DAL_Logistique").Value
ElseIf ComboBoxDirection13.Text = "DAL - Soutien" Then
ComboBoxService13.List = Range("DAL_Soutien").Value
ElseIf ComboBoxDirection13.Text = "DHEB - Hébergement" Then
ComboBoxService13.List = Range("DHEB_Hebergement").Value
ElseIf ComboBoxDirection13.Text = "DJSP - Programmes - Jeunesse et des activités de santé publique" Then
ComboBoxService13.List = Range("DJSP_Programmes_Jeunesse_et_des_activités_de_sante_publique").Value
ElseIf ComboBoxDirection13.Text = "DPSMD - Adultes" Then
ComboBoxService13.List = Range("DPSMD_Adultes").Value
ElseIf ComboBoxDirection13.Text = "DPSMD - Enfants et adolescents" Then
ComboBoxService13.List = Range("DPSMD_Enfants_et_adolescents").Value
ElseIf ComboBoxDirection13.Text = "DQEPE - Performance" Then
ComboBoxService13.List = Range("DQEPE_Performance").Value
ElseIf ComboBoxDirection13.Text = "DQEPE - Qualité, évaluation et éthique" Then
ComboBoxService13.List = Range("DQEPE_Qualite_evaluation_et_ethique").Value
ElseIf ComboBoxDirection13.Text = "DREI - Enseignement" Then
ComboBoxService13.List = Range("DREI_Enseignement").Value
ElseIf ComboBoxDirection13.Text = "DREI - Recherche" Then
ComboBoxService13.List = Range("DREI_Recherche").Value
ElseIf ComboBoxDirection13.Text = "DRF - Budget et performance financière" Then
ComboBoxService13.List = Range("DRF_Budget_et_performance_financiere").Value
ElseIf ComboBoxDirection13.Text = "DRF - Services financiers" Then
ComboBoxService13.List = Range("DRF_Services_financiers").Value
ElseIf ComboBoxDirection13.Text = "DRHCAJ - Services spécialisés RH" Then
ComboBoxService13.List = Range("DRHCAJ_Services_specialises_RH").Value
ElseIf ComboBoxDirection13.Text = "DRHCAJ - Comm. et rel. avec les médias" Then
ComboBoxService13.List = Range("DRHCAJ_Comm_et_rel_avec_les_medias").Value
ElseIf ComboBoxDirection13.Text = "DRHCAJ - Partenariat et soutien RH" Then
ComboBoxService13.List = Range("DRHCAJ_Partenariat_et_soutien_RH").Value
ElseIf ComboBoxDirection13.Text = "DRTI - Ressources technologiques et informationnelles" Then
ComboBoxService13.List = Range("DRTI_Ressources_technologiques_et_informationnelles").Value
ElseIf ComboBoxDirection13.Text = "DSADP - Services généraux et médicaux de 1re ligne" Then
ComboBoxService13.List = Range("DSADP_Services_generaux_et_medicaux_de_premiere_ligne").Value
ElseIf ComboBoxDirection13.Text = "DSADP - Soins et services à domicile (SAD) et ressources non institutionnelles (RNI)" Then
ComboBoxService13.List = Range("DSADP_Soins_et_services_a_domicile_SAD_et_ressources_non_institutionnelles_RNI").Value
ElseIf ComboBoxDirection13.Text = "DSI - Évaluation et développement de la pratique professionnelle" Then
ComboBoxService13.List = Range("DSI_Evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection13.Text = "DSI - Gestion hospitalière" Then
ComboBoxService13.List = Range("DSI_Gestion_hospitaliere").Value
ElseIf ComboBoxDirection13.Text = "DSM - Réadaptation, évaluation et développement de la pratique professionnelle" Then
ComboBoxService13.List = Range("DSM_Readaptation_evaluation_et_developpement_de_la_pratique_professionnelle").Value
ElseIf ComboBoxDirection13.Text = "DSM - Services diagnostiques" Then
ComboBoxService13.List = Range("DSM_Services_diagnostiques").Value
ElseIf ComboBoxDirection13.Text = "DSP - Département de pharmacie" Then
ComboBoxService13.List = Range("DSP_Departement_de_pharmacie").Value
ElseIf ComboBoxDirection13.Text = "DSP - Départements cliniques (Médecins seulement)" Then
ComboBoxService13.List = Range("DSP_Departements_cliniques_Medecins_seulement").Value
ElseIf ComboBoxDirection13.Text = "DSP - Enseignement médical (Rés., ext., stag. IPS et stag. en pharmacie)" Then
ComboBoxService13.List = Range("DSP_Enseignement_medical_Residents_externes_stagiaires_IPS_et_stagiaires_en_pharmacie").Value
ElseIf ComboBoxDirection13.Text = "DSP - Soins critiques" Then
ComboBoxService13.List = Range("DSP_Soins_critiques").Value
ElseIf ComboBoxDirection13.Text = "DSADP - Service à domicile et de proximité" Then
ComboBoxService13.List = Range("DSADP_Service_a_domicile_et_de_proximite").Value
End If
End Sub
'DateSaisie
Private Sub DateSaisie1_Change()
End Sub
Private Sub DateSaisie2_Change()
End Sub
Private Sub DateSaisie3_Change()
End Sub
Private Sub DateSaisie4_Change()
End Sub
Private Sub DateSaisie5_Change()
End Sub
Private Sub DateSaisie6_Change()
End Sub
Private Sub DateSaisie7_Change()
End Sub
Private Sub DateSaisie8_Change()
End Sub
Private Sub DateSaisie9_Change()
End Sub
Private Sub DateSaisie10_Change()
End Sub
Private Sub DateSaisie11_Change()
End Sub
Private Sub DateSaisie12_Change()
End Sub
Private Sub DateSaisie13_Change()
End Sub
Private Sub DateSaisie14_Change()
End Sub
Private Sub DateSaisie15_Change()
End Sub
'Spin button
Private Sub Spin1_Change()
NbrDemandes1.Value = Spin1.Value
End Sub
Private Sub Spin2_Change()
NbrDemandes2.Value = Spin2.Value
End Sub
Private Sub Spin3_Change()
NbrDemandes3.Value = Spin3.Value
End Sub
Private Sub Spin4_Change()
NbrDemandes4.Value = Spin4.Value
End Sub
Private Sub Spin5_Change()
NbrDemandes5.Value = Spin5.Value
End Sub
Private Sub Spin6_Change()
NbrDemandes6.Value = Spin6.Value
End Sub
Private Sub Spin7_Change()
NbrDemandes7.Value = Spin7.Value
End Sub
Private Sub Spin8_Change()
NbrDemandes8.Value = Spin8.Value
End Sub
Private Sub Spin9_Change()
NbrDemandes9.Value = Spin9.Value
End Sub
Private Sub Spin10_Change()
NbrDemandes10.Value = Spin10.Value
End Sub
Private Sub Spin11_Change()
NbrDemandes11.Value = Spin11.Value
End Sub
Private Sub Spin12_Change()
NbrDemandes12.Value = Spin12.Value
End Sub
Private Sub Spin13_Change()
NbrDemandes13.Value = Spin13.Value
End Sub
Private Sub Spin14_Change()
NbrDemandes14.Value = Spin14.Value
End Sub
Private Sub Spin15_Change()
NbrDemandes15.Value = Spin15.Value
End Sub
--------------------------------
Je ne peux pas joindre le fichier il est volumuneux
Merci d'avance
