Discussion :

[guy59960]

Bonjour à tous,

Bien que j'ai dupliqué un certain nombre de fois des Useforms ou des boutons pour lancer les formulaires dont il s'agit avec un résultat probant, pour l'une des procédures j'ai un code erreur 380 "Impossible de définir la propriété value - valeur de propriété non value" alors qu'au bouton concerné j'ai mis associé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub aller_Usflot1()
'
'
msg = "Voulez-vous affecter un dossier à un avocat du lot 1?"
Style = vbYesNo + vbDefaultButton1
Title = "Marché AVOCATS"
réponse = MsgBox(msg, Style, Title)
If réponse = vbYes Then
MsgBox "L'affaire doit être confiée normalement à  " & Sheets("lot 1").Range("e6").Value
Usflot1.Show
End If
End Sub

Le système semble contester "Usflot1.Show alors que j'ai bien le formulaire "Usflot1", cette anomalie serait-elle due aux codes associés notamment au bouton validation car j'ai écrit :

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
Private Sub UserForm_Initialize()
Usflot1.TxtAvocatI.Value = Sheets("lot 1").Range("e6").Value
With Usflot1
.TxtNomAffaire = ""
.TxtObservation = ""
.ListAvocatR.Value = Sheets("lot 1").Range("e6").Value
.TxtAvocatI.Value = Sheets("lot 1").Range("e6").Value
.ListAutreChoix.Value = "même avocat"
End With
 
End Sub
 
 
Private Sub quitter_Click()
Call Initialise_lot1
 
Usflot1.Hide
 
 
 
End Sub
 
 
 
Private Sub Valider_Click()
Sheets("lot 1").Select
 
 
msg = "avez vous vérifié vos saisies ?"
Style = vbYesNo
Title = "vérification des informations saisies marché public d'avocats de  LMH"
réponse = MsgBox(msg, Style, Title)
If réponse = vbNo Then
Me.TxtNomAffaire.SetFocus
Exit Sub
 
End If
 
If Me.TxtObservation = "" Then
MsgBox "Vous devez enregistrer une observation"
Me.TxtObservation.SetFocus
Exit Sub
End If
 
If Me.ListAvocatR.Value = "" Then
MsgBox "Vous devez confirmer la sélection de l'avocat à retenir"
Me.ListAvocatR.SetFocus
Exit Sub
End If
 
If Me.TxtNomAffaire = "" Then
MsgBox "Vous devez préciser le nom de l'affaire"
Me.TxtNomAffaire.SetFocus
Exit Sub
End If
 
If Me.TxtAvocatI.Value <> Sheets("lot 1").Range("e6").Value Then
MsgBox "Il y a une erreur sur le nom de l'avocat devant être normalement choisi"
Me.TxtAvocatI.SetFocus
Exit Sub
 
End If
 
 
 
 
If ((TxtAvocatI.Value <> ListAvocatR.Value) And (ListAutreChoix = "")) Then
MsgBox ("Vous avez oublié de préciser la raison du changement d'avocats - s'il n'y a pas de changement il convient de sélectionner même avocat")
Me.ListAutreChoix.SetFocus
Exit Sub
 
End If
 
 
 
If (TxtAvocatI.Value <> ListAvocatR.Value) And (raisonAutreChoix = "même avocat") Then
MsgBox ("Vous avez spécifié une absence de changement d'avocats alors que vous précisez deux noms différents d'avocats")
Me.TxtAvocatI.SetFocus
Exit Sub
End If
 
Range("a60000").End(xlUp).Offset(1, 0).Value = TxtNomAffaire
Range("a60000").End(xlUp).Offset(0, 1).Value = TxtAvocatI
Range("a60000").End(xlUp).Offset(0, 2).Value = ListAvocatR
Range("a60000").End(xlUp).Offset(0, 3).Value = ListAutreChoix
Range("a60000").End(xlUp).Offset(0, 7).Value = TxtObservation
MsgBox ("votre enregistrement a été pris en compte")
 
Call Initialise_lot1
 
Usflot1.Hide
Sheets("lot 1").Select
Range("E1").Select
 
Exit Sub
 
 
 
End Sub
 
 
Sub Initialise_lot1()
With Usflot1
.TxtNomAffaire = ""
.TxtObservation = ""
.ListAvocatR.Value = Sheets("lot 1").Range("e6").Value
.TxtAvocatI.Value = Sheets("lot 1").Range("e6").Value
.ListAutreChoix.Value = "même avocat"
End With
 
 
End Sub

[sabzzz]

bonjour guy,

peut tu identifier les controls utilisés dans ton code ?
par exemple : ListAvocatR, est ce que c'est un ListBox ?

isabelle

[guy59960]

Isabelle,

Bonjour,

Pour répondre à ta question, les controls que j'ai utilisé sont :

3 textbox ( TxtNomAffaire, TxtAvocatI, TxtObservation)
2 listbox (ListAvocatR, ListAutreChoix)

et naturellement deux CommanButton (valider, quitter).

Espérant que ces quelques informations pourront t'aider à comprendre mon actuel problème

Cordialement

Guy

[casefayere]

Bonjour,
je pense que ces codes ne peuvent pas convenir pour des listbox, il faudrait savoir comment tu remplis celles-ci à l'origine

Code :

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

.ListAvocatR.Value = Sheets("lot 1").Range("e6").Value

Code :

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

.ListAutreChoix.Value = "même avocat"

Bonne journée

[sabzzz]

bonjour guy,

peut tu faire un essai en remplacant les lignes :

Code :

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

Range("a60000").End(xlUp).Offset(1, 0).Value = TxtNomAffaire

par:

Code :

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

Sheets("NomDeLaFeuille").Range("a60000").End(xlUp).Offset(1, 0).Value = TxtNomAffaire

isabelle

[guy59960]

Bonjour,

Merci à Isabelle et CASEFAYERE qui ont pris le temps de regarder ma problématique et la gentillesse de me répondre. En fait l'erreur provenait d'ailleurs : les codes étaient bons mais j'avais simplement commis l'erreur d'affecter à la ListBox 'ListAvocatR' un RowSource d'une autre table dédiée à une feuille différente (en l'occurrence "Lot 7" et non "Lot 1".
C'est en voulant mettre en pratique leurs conseils que j'ai découvert mon erreur.

Cordialement

Guy