Private Sub CommandButton59_Click()
With ListBox1
Sheets("Temp").Rows(.ListCount + 1).Delete Shift:=xlUp
.RemoveItem (.ListCount - 1)
End With
End Sub
End Sub
Private Sub CommandButton59_Click() 'Effacer dernière ligne
With Sheets("Temp").[A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
.Rows(.Rows.Count).Delete xlUp
ListBox1.RemoveItem ListBox1.ListCount - 1
End With
End Sub
Private Sub CommandButton59_Click() 'Effacer dernière ligne
With Sheets("Temp").[A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
TTC = .Range("g" & .Rows.Count).Value
.Rows(.Rows.Count).Delete xlUp
ListBox1.RemoveItem ListBox1.ListCount - 1
End With
TextBox4 = TextBox4 - TTC
End Sub
Private Sub m_CmdB_PROD_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim cond As Boolean: cond = X > 5 And X < m_CmdB_PROD.Width - 5 And Y > 5 And Y < m_CmdB_PROD.Height - 5
m_CmdB_PROD.Font.Underline = cond
End Sub
bonjour
lorsque je choisi le mode de paiement et je clique sur Sauvegarder commande rien ne se passe. Comment cela fonctionne?