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