Bonjour,
désolée pour le titre je ne savais pas comment expliquer.
J'ai un formulaire où on rentre des dates et j'ai rajouté une période (matin/aprem) également.
J'aimerais donc qu'une fois rempli cela s'affiche dans ma semaine de planning et donc avec ma bonne période.
J'ai donc ajouté mon/ma ComboBox avec matin/aprem, mais je ne sais pas comment coder pour le mettre sur ma feuille de planning.
voici ce qui a été fait. merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 Private Sub UserForm_Initialize() Dim i As Integer Dim nom As String, prénom As String, identifiant As String '// Assignation BDD_personnes et affectations .................................... Set BDD_personnes = Range("Personnes").Worksheet.ListObjects(1) Set BDD_affectations = Range("Affectations").Worksheet.ListObjects(1) ' Initialisation année et mode .................................... If sel_année <> 0 Then Me.tbx_année = sel_année Cmd_Valider.Caption = "Créer" '// création d'un dictionnaire des noms avec pour chaque nom le dictionnaire des prénoms correspondants Set noms = CreateObject("Scripting.Dictionary") With BDD_personnes For i = 1 To .ListRows.Count identifiant = .ListColumns("Identifiant").DataBodyRange.Rows(i) nom = .ListColumns("Nom").DataBodyRange.Rows(i) prénom = .ListColumns("Prénom").DataBodyRange.Rows(i) If Not noms.exists(nom) Then Set noms(nom) = CreateObject("Scripting.Dictionary") Set prénoms = noms(nom): prénoms(prénom) = identifiant: Set noms(nom) = prénoms Next i End With Call tri_dico_AZ(noms) '// Chargement Comboboxes ............................ Me.cbx_nom.List = noms.keys If sel_nom <> Empty Then Me.cbx_nom = sel_nom: Me.cbx_prénom = sel_prénom Me.cbx_tâche.List = Range("tâches").Value 'MsgBox VarType(Me.lbl_identifiant) '// Remplissage ComboBox1 (période) ComboBox1.AddItem "matin" ComboBox1.AddItem "aprem" End Sub
Partager