CommandButton avec plusieurs condition, et la fonction LastRow

**nacereddine.mourad** · 26/06/2016, 13h02

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

**casefayere** · 26/06/2016, 13h14

Bonjour,
sans regarder le reste, cette ligne

Code :

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

Set LastRow = Sheets("BDD").Range("a65536").End(xlUp)

écris-la comme ça

Code :

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

Set LastRow = Sheets("BDD").Range("A" & Sheets("BDD").Rows.Count).End(xlUp)

si ça ne passe pas, tu as certainement une erreur dans le nom de fichier (espaces en trop...)

**Thautheme** · 26/06/2016, 13h20

Bonjour Nacereddine, bonjour le forum

Ton bouton est grisé !... Pas envie de chercher dans le code comment obtenir le droit d'accès... Donne-nous l'explication pour le faire.

**nacereddine.mourad** · 26/06/2016, 13h31

merci casefayere et Thautheme mais le code

Code :

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

Set LastRow = Sheets("BDD").Range("A" & Sheets("BDD").Rows.Count).End(xlUp)

remplie qu'une seul celule dans la colonne c.

Pour le bouton griser il faut sélectionner d’abord un item dans listbox3 et cliquer sur SpinButton1

**casefayere** · 26/06/2016, 13h39

j'ai écris que je ne regardais que la syntaxe et celle que je propose est bonne, rien à voir avec le reste du code
donc si je poursuis, cette ligne

Code :

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

LastRow.Offset(1, 0).Value = TextBox20.Text

représente la première cellule vide en A
celle-ci

Code :

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

LastRow.Offset(1, 1).Value = Sheets("Mouvementmatériels").Range("a" & Me.ListBox3.ListIndex + 3)

en B

Code :

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

1
2
3
LastRow.Offset(1, 2).Value...
LastRow.Offset(1, 2).Value.....
LastRow.Offset(1, 2).Value...

en C, D, E
je n'ai toujours pas étudié le reste de ta procédure

**nacereddine.mourad** · 26/06/2016, 13h53

oui c'est ce que j'ai écrit, mais malheureusement les données ne sent pas mis dans la feuille BDD comme je le veux

**Thautheme** · 26/06/2016, 14h07

Bonjour le fil, bonjour le forum,

Je n'ai pas compris ni l'intérêt ni l'utilisation de la variable MyRange !?
Pour accéder au lignes en rouge il faut bidouiller avec les TextBoxes 17, 18 et la combobox ComboRef.
Chez moi, quand les conditions sont remplies, je n'ai pas de bug. Le programme tourne sans problème ! Les lignes en rouge passent...
J'ai juste rajouté Val(TextBox17.Value) à la place de TextBox17.Value dans les trois conditions.

**nacereddine.mourad** · 26/06/2016, 14h26

c'était un code adapter, tu as raison, la variable MyRange n'a pas intérêt

les lignes en rouge passent mais il y'a qu'une cellule remplie dans BDD C4 en l'occurrence la ligne

Code :

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

LastRow.Offset(1, 2).Value = TextBox17.Value

les autre non

le code en entier

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
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
 
If TextBox18.Text <> ComboRef.Text And _
TextBox17.Value <= 0 Then
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 = 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)
Sheets("Mouvementmatériels").Rows(Ligne + 3).EntireRow.Delete
Unload Me
UserForm1.Show
End If
 
If TextBox18.Text <> ComboRef.Text And _
TextBox17.Value > 0 Then
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 = 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)
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

**Thautheme** · 26/06/2016, 18h36

Bonjour le fil, bonjour le forum,

Inutile de nous remettre le code que tu as déjà fourni dans le premier post...
Fait tourner ta macro pas à pas (touche [F8]), vérifie la valeur des différentes cellules au moment de l'exécution !... Par exemple :

Code :

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

Sheets("Mouvementmatériels").Range("a" & Me.ListBox3.ListIndex + 3)

Si ça ne se remplie pas c'est que ces cellules doivent être vides...

CommandButton avec plusieurs condition, et la fonction LastRow

Macros et VBA Excel

Discussions similaires

Partager

Partager