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
Partager