"erreur 380"valeur propriete

**pilounet54** · 24/03/2012, 16h41

bonjour
vous me conseillez quoi pour regler c'est erreur svp

380 "Valeur de propriété non valide"
c'est a l'ouverture de l'userform j'ai enlever tous les masque de saisis
ques que je peu faire de plus ?

et si je passe a excel 2010 es ce que sans enleve l'erreur

**AlainTech** · 24/03/2012, 19h10

Bonjour,

Sans le code de l'UserForm, il va être difficile de t'aider.

**pilounet54** · 24/03/2012, 20h37

380 "Valeur de propriété non valide"
merci je voie pas ce qui pourai bug
code ci dessous

bonjour voici le code :

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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
Option Explicit
Dim NoLigne As Long 'No de ligne dans la feuille de calculs
Dim NbreColonnes As Integer 'Nombre de colonnes ds la feuille de calculs
Dim fl As Worksheet 'La feuille de calculs
Dim Ligne As Long
Dim lcellule  As Range
Private Sub CommandButton1_Click() ''''''''''date du jour
  'Me.Date_du_jour = Date
End Sub
Private Sub Label1_Click() '''''date
 
End Sub
Private Sub Label12_Click()
 
End Sub
Private Sub Label26_Click() '''ligne
 
End Sub
 
Private Sub Label27_Click() ''affiche ligne
 
End Sub
 
Private Sub Label5_Click() '''libelle de l'operation
 
End Sub
Private Sub Label6_Click() '''''''''''''''''montant
 
End Sub
Private Sub Label8_Click() ''''''''''''recette
 
End Sub
Private Sub Label9_Click() '''''''nouvelle enregistrement
 
End Sub
'
   Private Sub Fermer_Click() '''''''''''fermer
    Unload Me
End Sub
Private Sub Date_du_jour_Change()
'''ok1''''''
 
''Private Sub TextBox1_Change()
''exemple pour format xx/xx/xxxx
'Dim Valeur As Byte
'Date_du_jour.MaxLength = 10 'nb caracteres maxi dans textbox
 
'Valeur = Len(Date_du_jour)
'If Valeur = 2 Or Valeur = 5 Then Date_du_jour = Date_du_jour & "/"
 
End Sub
Private Sub TextBox_Libellé_Change()
''ok2
End Sub
Private Sub ComboBoxRecettes_Change()
''ok3
End Sub
Private Sub TextBox10_Change() ''''''''''''''''caisse
'If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub TextBox8_Change() ''''''''''''''1sur10
 
End Sub
 
Private Sub TextBox11_Change()
 
End Sub
 
Private Sub TextBoxdepenses_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub TextBox9_Change() ''''''''''''banque
 
End Sub
Private Sub Valider_Click()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ok
        Range("c" & Ligne).Value = TextBox11.Value
        Range("d" & Ligne).Value = ComboBoxdepenses.Value
        Range("f" & Ligne).Value = TextBox_Libellé.Value
        Range("j" & Ligne).Value = "-" & Val(TextBoxdepenses)
        Range("k" & Ligne).Value = "-" & Val(TextBox9)
        Range("l" & Ligne).Value = "-" & Val(TextBox10)
End Sub
 
Private Sub SupprimerLigne_Click()
 
   Set fl = Worksheets("Bilan")
 
    NoLigne = ScrollBar2.Value
 
 
    If MsgBox("Attention : La ligne " & NoLigne & " sera définitivement supprimée" & _
        vbCrLf & "Êtes-vous sûr de vouloir faire ça ?", vbYesNo, "SUPPRESSION DE LA LIGNE") = vbYes Then
        fl.Rows(NoLigne).Delete
        'Call ScrollBarMax
        'Init
   End If
 Unload Me
 
End Sub
 
Private Sub EffacerLigne_Click() 'Effacement simple -> ligne destinée à être de nouveau renseignée
 
    Set fl = Worksheets("Bilan")
    NoLigne = ScrollBar2.Value
 
    If MsgBox("La ligne " & NoLigne & " va être effacée, " & vbCrLf & _
        "les données seront définitivement perdues" & vbCrLf & "Êtes-vous sûr de vouloir faire ça ?", _
        vbYesNo, "EFFACEMENT DE LA LIGNE") = vbYes Then
        fl.Rows(NoLigne).ClearContents
        'Call ScrollBarMax
 
 
    End If
 
 Range("c" & Ligne).Value = 0
 Unload Me
End Sub
 
 Private Sub ScrollBar2_Change()
    Ligne = ScrollBar2.Value
        'ScrollBar2.Max = Sheets("Bilan").Range("c65000").End(xlUp).Row
        'Ligne = ScrollBar2.Value
 
        'Date_du_jour.Value = Range("c" & Ligne).Value
 
 
        TextBox11.Value = Range("c" & Ligne).Value
        ComboBoxdepenses.Value = Range("d" & Ligne).Value
        TextBox_Libellé.Value = Range("f" & Ligne).Value
        TextBoxdepenses.Value = Range("j" & Ligne).Value
        TextBox9.Value = Range("k" & Ligne).Value
        TextBox10.Value = Range("l" & Ligne).Value
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''recuper le n de la ligne
 
        Label26.Caption = ScrollBar2.Value
 
    End Sub
Private Sub UserForm_Initialize()
Dim Ligne As Long
    'Récupération de la valeur de la position initiale du curseur dans la cellue A1 de la feuille active
    Set lcellule = ActiveSheet.Range("A1")
    Ligne = lcellule.Value
    With ScrollBar2
        .Min = 1 'Position mini du curseur
        .Max = Sheets("Bilan").Range("C65000").End(xlUp).Row 'Position maxi du curseur
        .LargeChange = 10 'Distance de déplacement intervenant lorsque l'utilisateur _
        clique entre le curseur de défilement et la flèche de défilement.
        .SmallChange = 1 'Déplacement se produisant lorsque l'utilisateur clique sur _
        les flèches de défilement.
        .Value = lcellule 'Positionnement initial du curseur
 
        'Me.Date_du_jour.Value = Range("C" & Ligne).Value
 
        Me.TextBox11.Value = Range("c" & Ligne).Value
        Me.ComboBoxdepenses.Value = Range("d" & Ligne).Value
        Me.TextBox_Libellé.Value = Range("f" & Ligne).Value ' NombreSansSigne = Replace("-408000/408999", "-", "")
        Me.TextBoxdepenses.Value = Replace(Range("j" & Ligne).Value, "-", "")
        Me.TextBox9.Value = Replace(Range("k" & Ligne).Value, "-", "")
        Me.TextBox10.Value = Replace(Range("l" & Ligne).Value, "-", "")
 
        '''''''''''''''''''''''''''''''''a garder'''''''''''''''''''''''''''''''''''
 
        'Me.TextBox12.Value = .Value '''''''''''''''''''''valeur ScrollBar2
        'Me.TextBox13.Value = Range("C" & Ligne).Value '''''''valeur de cellule colonne B
        'Me.TextBox14.Value = lcellule  ''''''''''''''''''''' valeur du rows
    End With
 
    Ligne = ScrollBar2.Value
    Label26.Caption = Ligne
 
 ''''''''''''''''''''''''''''rajout pour la croix supprimer
    Dim hwnd As Long
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", Me.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
End Sub

merci

**SfJ5Rpw8** · 24/03/2012, 22h14

Il y as beaucoup de chose dans ton initiate.. ne vois tu pas la ligne en defaut ?que trouve ton dans la cellule A1 de la feuille active ?

**pilounet54** · 24/03/2012, 22h34

bonjour il a ceci :
dans le section change de la feuille

Code :

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

Sheets("BILAN").Range("A1").Value = ActiveCell.Row

j'ai l'impression que si tous les texbox sont vide cela me fait l'erreur 380
et des l'instant que les texbox peuvent etre plein
rien ce passe
merci

**pilounet54** · 25/03/2012, 11h49

bonjour si je click dans la zone verte ok cela fonctionne
mais si je click dans la zone rouge cela ne fonctione pas
la difference c'est que la zone jaune la cellule est vide
mais j'aurai souhaite que cela fontionne quand même
fichier joint :userfom
merci
dans le code de userform j'ai mis "erreur''

**mercatog** · 25/03/2012, 12h28

Tu as fixé le Min de ta ScrollBar à 10 et plus bas dans le code tu veux appliquer la valeur 7 à ta ScrollBar

Attention, tu as mis Private Sub UserForm1_Initialize

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim LCellule As Long
 
LCellule = Val(ActiveSheet.Range("A1").Value)
With ScrollBar2
    .Min = 10
    .Max = 100
    .LargeChange = 10
    .SmallChange = 5
    If LCellule >= .Min Then .Value = LCellule
End With
End Sub

**pilounet54** · 26/03/2012, 10h13

bonjour et merci de tes conseils que j'ai appliqué mais pour l'instant cela ne fonctionne pas

"erreur 380"valeur propriete [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager