je tiens d'abord à vous remercier de 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 ?
Merci et bonne continuation.
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 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 Case vbCancel 'procédure si click sur Annuler Exit Sub End Select End Sub
Partager