Besoin d'aide toujours Erreur Fatale

**Le POlonais** · 08/11/2007, 22h46

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

**Gorfael** · 09/11/2007, 00h15

Envoyé par Le POlonais

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

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
LETABLEAU.show
End Sub

Private Sub UserForm_Initialize()
....
End Sub

Salut
Laisse tomber ta macro : si elle fonctionne dans un cas et pas l'autre, ça ne vient pas d'elle, puisqu'elle fonctionne

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
cancel=true
LETABLEAU.show
End Sub

A+

**Le POlonais** · 09/11/2007, 11h33

Bonjour,

Mais pourquoi cancel=true?
je suis déjà assez ignorant comme cela, je ne veux pas en plus mourrir idiot.

Cela fonctionne.

Merci beaucoup pour votre aide

**wilfried_42** · 09/11/2007, 11h53

Bonjour à tous

Quand tu fais un double click sur une cellule, Excel le traduit en je veux la modifier, mais avant de la modifier, ta macro dit je lance une userform

Tu ne peux etre en meme temps sur une userform et sur une cellule d'ou l'erreur

En mettant Cancel = true, la macro indique à excel d'abandonner la fonction premiere du double click (la saisie de la cellule)

**Le POlonais** · 09/11/2007, 12h10

UN GRAND MERCI POUR CETTE EXPLICATION !!!!!!!!!!!!!!!!!!!

Le Polonais

**Le POlonais** · 13/11/2007, 10h29

Bonjour,

Wielfried 42 m'avait conseillé d'ajouter
Cancel = true après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
cancel=true
LETABLEAU.show
End Sub

Cela a fonctionné quelques jours sans problème mais cela recommence ERREUR FATALE
alors que je n'ai fait aucune modification depuis!!!!!!!!!!!!!!!!!!!!!

Merci d'avance pour votre aide.

Le POlonais

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
4
5
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
cancel=true
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
116
 
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

**Commodore** · 13/11/2007, 16h30

bonjour,

l'erreur fatale concerne-t-elle une ligne en particulier ?

si c'est le cas, essaie d'ajouter avant cette ligne un DoEvents.

**Le POlonais** · 13/11/2007, 17h54

Bonjour,

Le Doevents je dois le placer ou?
avant LETABLEAU.show ou après UserForm_Initialize
car si je fais F8, il ne plante jamais.
Tout ce que j'ai pu trouver, c'est qu'il plante quand il veut
lancer userform_initialize.
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!!!

Pourquoi il plante, je ne sais pas.

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
116
117
Private Sub UserForm_Initialize()
Doevents
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

**Commodore** · 14/11/2007, 10h13

pourrais-tu poster ton fichier si ce n'est pas confidentiel ?

**Le POlonais** · 14/11/2007, 11h36

Bonjour,

Impossible car il est tros volumineux 5 300 ko normal

3 500 ko .zip

c'est limité à 512 ko

A j'ai oublié de dire ERREUR FATALE dans la configuration suivante :

XP + Excel 2003

Merci par avance pour votre aide.

Le Polonais

**Le POlonais** · 27/11/2007, 09h39

Bonjour,

J'avais déjà posé cette question, il y a quelques semaines
et on m'avait conseillé :
Après l'événement doubleclic
cancel=true
doEvents
Mais j'ai toujour ce problème récurrent de temps en temps, j'ai ce message :

Microsoft office Excel a rencontré un problème et doit être fermé.
nous vous prions de nous excuser pour le désagrément encouru.

récupérer mon travail et redémarrer Microsoft office Excel .
Il y a des jours ou cela n'arrive pas et des jours à chaque lancement.

C'est pénible et je ne sais pas quoi faire.
Le fichier est sur l'ancienne demande.

Si quelqu'un avait une idée.

Merci

Norbert

**ouskel'n'or** · 27/11/2007, 10h07

Je n'ai pas retrouvé la discussion dont tu parles, tu pourrais passer l'URL ?
A+

**Le POlonais** · 27/11/2007, 10h36

http://www.developpez.net/forums/sho...d.php?t=441377

Merci d'avance

Norbert

**ouskel'n'or** · 27/11/2007, 11h48

Ok. Je vois que tu utilises les événements de Thisworkbook mais également la macro Auto_Open (qui permet la compatibilité avec les anciennes versions de VBA) Il est possible que ça contrarie VBA.
Pour ma part, je commencerais par rebaptiser la macro Auto_Open et je l'appellerais depuis l'événement Workbook_Open, dans Thisworkbook.
Ensuite tu as une userform nommée Création. Déjà supprime partout les accents. Parfois, VBA n'aime pas. Ensuite, tu fais directement
"NomDeluserform.show". Je sais que ça suffit dans la "plupart" des cas. Laisse toujours le temps au système de charger l'userform et remplace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Load Creation
Creation.show

Et là, je sais que je serai en désaccord avec certain mais cette précaution permet à VBA de charger l'userform avant de l'afficher. Et dans certains cas où l'userform a beaucoup de choses à charger, elle se révèle indispensable. Donc je le fais systématiquement. Et puis ça ne coûte rien.
Enfin, je n'ai pas compris l'utilité de la macro

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)

Pour finir, juste une observation sur ton code.
Comme tout le monde, tu vas chercher le code en enregistrant la macro en faisant (et quand je ne sais pas, je commence toujours par là). Or, tous les paramètres par défaut, donc inutiles, sont repris par l'enregistreur de macros.
Si tu n'as pas à modifier ces paramètres, tu peux tous les supprimer.
Exemple :

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
    With ActiveSheet.PageSetup
        '.LeftHeader = ""
        '.CenterHeader = ""
        '.RightHeader = ""
        '.LeftFooter = ""
        '.CenterFooter = ""
        '.RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0) 'tu es sûr ?
        .RightMargin = Application.InchesToPoints(0) 'tu es sûr ?
        .TopMargin = Application.InchesToPoints(0) 'tu es sûr ?
        .BottomMargin = Application.InchesToPoints(0) 'tu es sûr ?
        'Et comme tu n'as pas d'entête, les deux lignes suivantes -> Inutiles
        '.HeaderMargin = Application.InchesToPoints(0.511811023622047)
        '.FooterMargin = Application.InchesToPoints(0.511811023622047)
        '.PrintHeadings = False
        '.PrintGridlines = False
        '.PrintComments = xlPrintNoComments
        .PrintQuality = 600
        '.CenterHorizontally = False
        '.CenterVertically = False
        '.Orientation = xlLandscape
        '.Draft = False
        .PaperSize = xlPaperA4
        '.FirstPageNumber = xlAutomatic
        '...
        '...

Sans connaître les modifications que tu souhaites apporter à ton setup d'impression, tu pourrais déjà supprimer tout ce que j'ai mis en remarque. Et tant que l'un ou l'autre de ces paramètres n'est pas modifié "ailleurs", tu n'as pas à les préciser. Et ça allège le code si tu fais appel au setup pour ne modifier qu'un seul paramètre (je vois que tu as supprimé toutes les marges... tu es certain que l'imprimante accepte ça sans rechigner ?)
Commence par ce que je t'ai mis au début, ensuite tu dis

A+

**Le POlonais** · 27/11/2007, 12h49

Encore une fois merci pour ton aide.

J'ai fait les modifications que tu as demandé pour l'instant cela
ne plante plus.

Est ce que je dois garder le module Auto_open?

Par contre je n'ai pas compris ce que tu voulais que j'appelle depuis
Thisworkbook ===> workbook_open

Je le mets avant ou après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)

En faisant un DoubleClick, je veux lancer l'UserForm.

Merci

Amicalement

Norbert

**Le POlonais** · 30/11/2007, 09h49

Bonjour Ousk',

Je résume la situation :

J'ai 2 userforms
Le premier "Creation" s'affiche par workbook_open en fonction si le mois a déjà été créé.
Celui-ci aucun problème.

Le deuxième s'affiche si je le lance depuis ma barrre d'état personnalisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub LancementJournée()
    DoEvents 'Arrête momentanément l'exécution
    'afin que le système d'exploitation puisse traiter d'autres événements
Load LETABLEAU
DoEvents 'Arrête momentanément l'exécution
    'afin que le système d'exploitation puisse traiter d'autres événements
LETABLEAU.Show
End Sub

Il plante aléatoirement il peut fonctionner par exemple 5 fois de suite puis planter et refonctionner après?

Par contre si je fais F8 il s'ouvre toujours sans jamais planter mais ce n'est pas une solution.

Je n'ai pas très bien saisi ce que tu m'as expliquer ou sinon je me suis mal exprimé.

Je voudrais savoir si c'était possible de faire une sorte de auto_open mais qui ne se lancerait que si je clique sur le bouton de ma barre d'état personnalisée

Cordialement

A+

Norbert

Besoin d'aide toujours Erreur Fatale

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager