je tiens d'abord à vous remercier pour vos efforts

le bouton rendu (CommandButton13) doit fonctionner avec 4 conditions, cliquez sur le bouton saisie dans la feuille Mouvementmatériels pour voir userform1 ----> CommandButton13 (rendu)
Les lignes en rouge ne fonctionnent pas ?


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
Private Sub CommandButton13_Click()
Dim LastRow As Range

Dim Ligne
  Ligne = ListBox3.ListIndex

'Msgbox Ok + Annuler
Select Case MsgBox("Veuillez confirmer que le matériel est rendu", vbOKCancel, "Demande de confirmation")
    Case vbOK
        'procédure si click sur Ok

If TextBox18.Text = ComboRef.Text And _
TextBox17.Value <= 0 Then
With MyRange
Sheets("BDD").Range("c" & Me.ComboRef.ListIndex + 3) = Sheets("BDD").Range("c" & Me.ComboRef.ListIndex + 3) + Me.TextBox1.Value
Sheets("Mouvementmatériels").Rows(Ligne + 3).EntireRow.Delete
End With
Unload Me
UserForm1.Show
End If

If TextBox18.Text = ComboRef.Text And _
TextBox17.Value > 0 Then
With MyRange
Sheets("BDD").Range("c" & Me.ComboRef.ListIndex + 3) = Sheets("BDD").Range("c" & Me.ComboRef.ListIndex + 3) + Me.TextBox1.Value
Sheets("Mouvementmatériels").Range("b" & Me.ListBox3.ListIndex + 3) = Me.TextBox17.Value
End With
Unload Me
UserForm1.Show
End If

If TextBox18.Text <> ComboRef.Text And _
TextBox17.Value <= 0 Then
Set LastRow = Sheets("BDD").Range("a65536").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox20.Text
LastRow.Offset(1, 1).Value = Sheets("Mouvementmatériels").Range("a" & Me.ListBox3.ListIndex + 3)
LastRow.Offset(1, 2).Value = TextBox17.Value
LastRow.Offset(1, 3).Value = Sheets("Mouvementmatériels").Range("n" & Me.ListBox3.ListIndex + 3)
LastRow.Offset(1, 4).Value = Sheets("Mouvementmatériels").Range("m" & Me.ListBox3.ListIndex + 3)
With MyRange
Sheets("Mouvementmatériels").Rows(Ligne + 3).EntireRow.Delete
End With
Unload Me
UserForm1.Show
End If

If TextBox18.Text <> ComboRef.Text And _
TextBox17.Value > 0 Then
Set LastRow = Sheets("BDD").Range("a65536").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox20.Text
LastRow.Offset(1, 1).Value = Sheets("Mouvementmatériels").Range("a" & Me.ListBox3.ListIndex + 3)
LastRow.Offset(1, 2).Value = TextBox17.Value
LastRow.Offset(1, 3).Value = Sheets("Mouvementmatériels").Range("n" & Me.ListBox3.ListIndex + 3)
LastRow.Offset(1, 4).Value = Sheets("Mouvementmatériels").Range("m" & Me.ListBox3.ListIndex + 3)
With MyRange
Sheets("Mouvementmatériels").Range("b" & Me.ListBox3.ListIndex + 3) = Me.TextBox17.Value
End With
Unload Me
UserForm1.Show
End If

Case vbCancel
        'procédure si click sur Annuler
  Exit Sub
End Select

End Sub
merci et bonne continuation