Bonjour,

En double cliquant je lance mon UserForm.
Si je lance par F8 UserForm_Initialize ==> OK
Si je doubleclique ==> Erreur fatale Excel 2003

J'ai reussis avec l'aide F1 de trouver le numéro de l'erreur :
C'est une erreur visual #5
Mais cela ne m'avance pas plus!!!
Si quelqu'un à la solution

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
LETABLEAU.show
End Sub
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Private Sub UserForm_Initialize()
LANNEE.Value = Sheets("Data").Range("B1") 'Par défaut c'est l'année en cours
LEMOIS.Value = Worksheets("Data").Range("B2").Value 'Par défaut c'est le mois en cours
LEJOUR.Value = ActiveSheet.Name 'Par défaut c'est l'onglet qui a été choisi par défaut
 
NOMNATURE1.AddItem "Matin 6h00"
NOMNATURE1.AddItem "Matin 11h00"
NOMNATURE1.AddItem "Diurne"
NOMNATURE1.AddItem "Semi-Nocturne"
NOMNATURE1.AddItem "Nocturne"
NOMNATURE2.AddItem "Matin 6h00"
NOMNATURE2.AddItem "Matin 11h00"
NOMNATURE2.AddItem "Diurne"
NOMNATURE2.AddItem "Semi-Nocturne"
NOMNATURE2.AddItem "Nocturne"
NOMNATURE3.AddItem "Matin 6h00"
NOMNATURE3.AddItem "Matin 11h00"
NOMNATURE3.AddItem "Diurne"
NOMNATURE3.AddItem "Semi-Nocturne"
NOMNATURE3.AddItem "Nocturne"
NOMNATURE4.AddItem "Matin 6h00"
NOMNATURE4.AddItem "Matin 11h00"
NOMNATURE4.AddItem "Diurne"
NOMNATURE4.AddItem "Semi-Nocturne"
NOMNATURE4.AddItem "Nocturne"
NOMNATURELOCALE1.AddItem "Matin 11h00"
NOMNATURELOCALE1.AddItem "Diurne"
NOMNATURELOCALE1.AddItem "Semi-Nocturne"
NOMNATURELOCALE1.AddItem "Nocturne"
NOMNATURELOCALE2.AddItem "Matin 11h00"
NOMNATURELOCALE2.AddItem "Diurne"
NOMNATURELOCALE2.AddItem "Semi-Nocturne"
NOMNATURELOCALE2.AddItem "Nocturne"
NOMNATURELOCALE3.AddItem "Matin 11h00"
NOMNATURELOCALE3.AddItem "Diurne"
NOMNATURELOCALE3.AddItem "Semi-Nocturne"
NOMNATURELOCALE3.AddItem "Nocturne"
NOMNATURELOCALE4.AddItem "Matin 11h00"
NOMNATURELOCALE4.AddItem "Diurne"
NOMNATURELOCALE4.AddItem "Semi-Nocturne"
NOMNATURELOCALE4.AddItem "Nocturne"
NOMNATURELOCALE5.AddItem "Matin 11h00"
NOMNATURELOCALE5.AddItem "Diurne"
NOMNATURELOCALE5.AddItem "Semi-Nocturne"
NOMNATURELOCALE5.AddItem "Nocturne"
NOMNATURELOCALE6.AddItem "Matin 11h00"
NOMNATURELOCALE6.AddItem "Diurne"
NOMNATURELOCALE6.AddItem "Semi-Nocturne"
NOMNATURELOCALE6.AddItem "Nocturne"
NOMNATURELOCALE7.AddItem "Matin 11h00"
NOMNATURELOCALE7.AddItem "Diurne"
NOMNATURELOCALE7.AddItem "Semi-Nocturne"
NOMNATURELOCALE7.AddItem "Nocturne"
NOMNATURELOCALE8.AddItem "Matin 11h00"
NOMNATURELOCALE8.AddItem "Diurne"
NOMNATURELOCALE8.AddItem "Semi-Nocturne"
NOMNATURELOCALE8.AddItem "Nocturne"
NOMNATURELOCALE9.AddItem "Matin 11h00"
NOMNATURELOCALE9.AddItem "Diurne"
NOMNATURELOCALE9.AddItem "Semi-Nocturne"
NOMNATURELOCALE9.AddItem "Nocturne"
NOMNATURELOCALE10.AddItem "Matin 11h00"
NOMNATURELOCALE10.AddItem "Diurne"
NOMNATURELOCALE10.AddItem "Semi-Nocturne"
NOMNATURELOCALE10.AddItem "Nocturne"
NOMNATURELOCALE11.AddItem "Matin 11h00"
NOMNATURELOCALE11.AddItem "Diurne"
NOMNATURELOCALE11.AddItem "Semi-Nocturne"
NOMNATURELOCALE11.AddItem "Nocturne"
NOMNATURELOCALE12.AddItem "Matin 11h00"
NOMNATURELOCALE12.AddItem "Diurne"
NOMNATURELOCALE12.AddItem "Semi-Nocturne"
NOMNATURELOCALE12.AddItem "Nocturne"
NOMNATURELOCALE13.AddItem "Matin 11h00"
NOMNATURELOCALE13.AddItem "Diurne"
NOMNATURELOCALE13.AddItem "Semi-Nocturne"
NOMNATURELOCALE13.AddItem "Nocturne"
NOMNATURELOCALE14.AddItem "Matin 11h00"
NOMNATURELOCALE14.AddItem "Diurne"
NOMNATURELOCALE14.AddItem "Semi-Nocturne"
NOMNATURELOCALE14.AddItem "Nocturne"
NOMNATURENC1.AddItem "Matin 11h00"
NOMNATURENC1.AddItem "Diurne"
NOMNATURENC1.AddItem "Semi-Nocturne"
NOMNATURENC1.AddItem "Nocturne"
NOMNATURENC2.AddItem "Matin 11h00"
NOMNATURENC2.AddItem "Diurne"
NOMNATURENC2.AddItem "Semi-Nocturne"
NOMNATURENC2.AddItem "Nocturne"
NOMNATURENC3.AddItem "Matin 11h00"
NOMNATURENC3.AddItem "Diurne"
NOMNATURENC3.AddItem "Semi-Nocturne"
NOMNATURENC3.AddItem "Nocturne"
NOMNATURENC4.AddItem "Matin 11h00"
NOMNATURENC4.AddItem "Diurne"
NOMNATURENC4.AddItem "Semi-Nocturne"
NOMNATURENC4.AddItem "Nocturne"
NOMNATURENC5.AddItem "Matin 11h00"
NOMNATURENC5.AddItem "Diurne"
NOMNATURENC5.AddItem "Semi-Nocturne"
NOMNATURENC5.AddItem "Nocturne"
NOMNATURENC6.AddItem "Matin 11h00"
NOMNATURENC6.AddItem "Diurne"
NOMNATURENC6.AddItem "Semi-Nocturne"
NOMNATURENC6.AddItem "Nocturne"
NOMNATURENC7.AddItem "Matin 11h00"
NOMNATURENC7.AddItem "Diurne"
NOMNATURENC7.AddItem "Semi-Nocturne"
NOMNATURENC7.AddItem "Nocturne"
NOMNATURENC8.AddItem "Matin 11h00"
NOMNATURENC8.AddItem "Diurne"
NOMNATURENC8.AddItem "Semi-Nocturne"
NOMNATURENC8.AddItem "Nocturne"
 
End Sub