erreur avec un code frame6.enabled=false
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:
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 |
et des que je mets
me provoque l'erreur
Citation:
erreur execution 438
propriete ou methode non gere par cet objet
:aie:
ca fait 1 heure que je plante :aie::aie::aie: