Bonsoir

J'ai une erreur d"exécution 13 à l'ouverture d'un formulaire.

je pense que c'est le code en rouge,
les valeurs de la colonne D sont des dates.
Je ne comprend pas
Merci pour une aide

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub UserForm_Initialize()

   Set f = Sheets("BD")
   Set Rng = f.Range("A2:M" & f.[A65000].End(xlUp).Row)
   BD = Rng.Value
   
  Set d = CreateObject("Scripting.Dictionary")
  BD = f.Range("A2:N" & f.[A65000].End(xlUp).Row).Value
  
  Me.ListBox1.List = BD
  For i = LBound(BD) To UBound(BD)
    d(Year(BD(i, 4))) = ""
  Next i
  
  Me.ComboBox1.List = d.keys
  Me.ListBox1.ColumnCount = 14
   
   Ncol = Rng.Columns.Count
   Set dte = Range([D2], [A65536].End(xlUp))
   
   
   Set D2 = CreateObject("Scripting.Dictionary")
   Set d3 = CreateObject("Scripting.Dictionary")
   
   D2.CompareMode = vbTextCompare
   d3.CompareMode = vbTextCompare
   For i = LBound(BD) To UBound(BD)
   
    
    If Not D2.Exists(BD(i, 2)) Then D2(BD(i, 2)) = ""
    If Not d3.Exists(BD(i, 3)) Then d3(BD(i, 3)) = ""
   Next i
 
   temp = D2.keys
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox2.List = temp
   temp = d3.keys
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox3.List = temp
   Me.ListBox1.Clear
   
   Me.ComboBox1.ListIndex = -1
   Me.ComboBox2.ListIndex = -1
   Me.Enreg = f.[A65000].End(xlUp).Row + 1
   
   Me.ComboBox5.ColumnCount = 2
   Me.ComboBox5.ColumnWidths = "350,40"
   Me.ComboBox5.RowSource = "ceremonie"
   
    Me.Frame4.Visible = False
   F_calendrier2datesForm.Hide
End Sub