1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub UserForm_Initialize()
Dim C As Integer, L As Integer
New_HS.Bouton_Reset = True
Me.Label_Nom.Caption = ""
ChoixAmbu.List = Worksheets("Listes").Range("B9:B44").Value
Set dicoDate = CreateObject("Scripting.Dictionary")
Set dicoAgents = CreateObject("Scripting.Dictionary")
With ThisWorkbook.Sheets("2018").UsedRange
For C = 0 To 364
Debug.Print .Cells(12, 29).Offset(0, C).Value
If CStr("" & (.Cells(12, 29).Offset(0, C).Value)) <> "" Then dicoDate(.Cells(12, 29).Offset(0, C).Value) = .Cells(12, 29).Offset(0, C).Column
Next
For L = 25 To .Rows.Count
Debug.Print .Cells(L, 27).Value
If CStr("" & .Cells(L, 27).Value) <> "" Then dicoAgents(.Cells(L, 27).Value) = L
Next
End With
End Sub |