XL 2013 Date du jour automatique + bouton enregistrer et bouton effacer

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)

image
image
image

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
 

Phil69970

XLDnaute Barbatruc
Bonjour @djamal74

Plusieurs remarques :

a) Il y a des données sensibles dans ton fichier voir la charte et le RGPD
1623176680143.png


b) 21 modules c'est beaucoup.
Tu peux déjà virer tous les modules vides....
En général 3 à 4 modules suffisent largement
Par exemple :
1 module pour gérer les messages
1 module pour gérer les actions (copie par exemple)
1 module pour gérer les impressions
etc...
Ceci n'est qu'un exemple de gestion de ses modules il peut y en avoir plein d'autres l'idée est de retrouver rapidement ce que l'on veut faire/coder.

c)Plus de 1430 lignes de codes sans aucun commentaire c'est comment dire ......sans commentaire o_O🙃
A part toi c'est pratiquement impossible de s'approprier le code ou très difficilement.

@Phil69970
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT