VBA plusieurs conditions IF

Version imprimable

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 ?

Code:

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

Merci et bonne continuation.

27/06/2016, 10h49
Menhir

Citation:

Envoyé par nacereddine.mourad

cliquez sur le bouton saisie dans la feuille Mouvementmatériels

http://www.developpez.net/forums/d84...s-discussions/

Citation:

Les lignes en rouge ne fonctionnent pas ?

Pourrais-tu être plus descriptif ? Que signifie "ça ne fonctionne pas" ?
Ca génère un bug ? Lequel ?
Ce ne donne pas les résultats attendus ? Quels étaient les résultats attendus ? Quels sont les résultats obtenus ?

Bonjour, pardon pour le retard

merci Menhir, pour ma part j'ai mie

Code:

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
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
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
Unload Me
UserForm1.Show
End If
 
If TextBox18.Text = ComboRef.Text And _
TextBox17.Value > 0 Then
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
Unload Me
UserForm1.Show
End If
 
Case vbCancel
        'procédure si click sur Annuler
  Exit Sub
End Select
 
End Sub

Code:

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
Private Sub CommandButton21_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 <> ComboRef2.RowSource And _
TextBox17.Value <= 0 Then
UserForm2.Show
Set LastRow = Sheets("BDD").Range("A" & Sheets("BDD").Rows.Count).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 = TextBox1.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)
Sheets("Mouvementmatériels").Rows(Ligne + 3).EntireRow.Delete
Unload Me
UserForm1.Show
End If
 
If TextBox18.Text <> ComboRef2.RowSource And _
TextBox17.Value > 0 Then
UserForm2.Show
Set LastRow = Sheets("BDD").Range("A" & Sheets("BDD").Rows.Count).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 = TextBox1.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)
Sheets("Mouvementmatériels").Range("b" & Me.ListBox3.ListIndex + 3) = Me.TextBox17.Value
Unload Me
UserForm1.Show
End If
 
Case vbCancel
        'procédure si click sur Annuler
  Exit Sub
End Select
 
End Sub

PSJ pour les autre (gestion matériel avec photos) bonne continuation.