erreur avec un code frame6.enabled=false

**oscar.cesar** · 19/03/2008, 20h19

bonjour
dans mon userform1 j'ai 3 framed .
la frame1 est enabled =true , à l'intereieur j'ai qql combobox qui si ils sont correctement remplis, rendent
la frame2.enabled=true ,à l'intereieur j'ai qql combobox qui si ils sont correctement remplis, rendent
le frame6.enabled=true

mais pour activer un frame il faut auprealable le deactiver.

hors dans

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
 
Private Sub UserForm_initialize()
 
Me.Calendar1.Visible = False
 
Me.Frame5.ComboBox1.SetFocus
 
 
 
Label8.ControlTipText = "TAPEZ LE NUMERO DE L'INSTALLATION POUR LA SAISIE AUTOMATIQUE"
 
 
vARIABLEDECLENCHEMENT = True
 
 
'pour l'affichage plein ecran en fonction de la def
Res
Select Case H
Case 1024
With UserForm1
.Zoom = 100: .Height = 672: .Width = 750: '.Label3.Font.Size = 10
End With
Case 960
With UserForm1
.Zoom = 92: .Height = 625: .Width = 725: '.Label3.Font.Size = 9
End With
Case 864
With UserForm1
.Zoom = 82: .Height = 555: .Width = 700: '.Label3.Font.Size = 10
End With
Case 768 'def bureau
With UserForm1
.Zoom = 100: .Height = 560: .Width = 765: '.Label3.Font.Size = 9:
End With
Case 720
With UserForm1
.Zoom = 100: .Height = 445: .Width = 730: '.Label3.Font.Size = 9:
End With
Case 600
With UserForm1
.Zoom = 53: .Height = 370: .Width = 790: '.Label3.Font.Size = 9:
End With
Case Else
MsgBox "Résolution de : " & L & " x " & H & " : non paramétrée."
End Select
 
 
 
 
 
 
 
'affichage en pleine ecran
 
'Frame_Transparent Frame4, Me
 
With Me
.StartUpPosition = 3 ' position en haut à gauche de l'ecran l'affichage du userform
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
 
 
 
 
 
UserForm1.Caption = " GESTION DES CONTRATS                          Nous sommes le " & Date
 
'initialisation des variable
nbfichesaisie = 0
ligne = 0
 
'OptionButton3.Value = False
'OptionButton2.Value = False
'OptionButton4.Value = False
 
 
'Frame4.enable = False
'Frame6.enable = False
 
 
 
Frame5.BackColor = &H80FF80
Frame4.Enabled = False
 
 
 
Frame6.ENABLE = False
 
 
End Sub