Erreur d'exécution 13
x
Alors j'ai un classeur de calcul de stock ça passe nickel sauf que j'ai des quantités à sortir avec virgule
si je fait stock a sortir 2 çà passe alors que un chiffre avec virgule ne fonctionne pas
Private Sub CmbValiderSortie_Click()
Dim Derligne As Integer
ListBoxDésignation.BackColor = &H80000005
TxtQuantitéASortir.BackColor = &H80000005
ComboDestination.BackColor = &H80000005
If Me.ListBoxDésignation.ListIndex = -1 Then
MsgBox " pas de sélection dans la liste, sortie impossible"
ListBoxDésignation.BackColor = &H80FFFF
ListBoxDésignation.SetFocus
Exit Sub
End If
If Me.TxtQuantitéASortir = "" Then
MsgBox " Quantité à sortir non définie, sortie impossible"
TxtQuantitéASortir.BackColor = &H80FFFF
TxtQuantitéASortir.SetFocus
Exit Sub
End If
If Me.ComboDestination.ListIndex = -1 Then
MsgBox " destination non définie, sortie impossible"
ComboDestination.BackColor = &H80FFFF
ComboDestination.SetFocus
Exit Sub
End If
LigneDansBase = Me.ListBoxDésignation.List(ListBoxDésignation.ListIndex, 6)
With Sheets("Infomed")
If CLng(Me.TxtQuantitéASortir) > .Cells(LigneDansBase, 3) Then
MsgBox "Le stock est insuffisant pour réaliser cette sortie"
Exit Sub
End If
.Unprotect '"123"
.Cells(LigneDansBase, 3) = .Cells(LigneDansBase, 3) - CLng(Me.TxtQuantitéASortir)
Me.ListBoxDésignation.List(Compteur, 0) = .Cells(LigneDansBase, 3)
.Protect '"123", True, True, , True
End With
With Sheets(ComboDestination.Value)
.Unprotect '"123"
Derligne = .Range("A1000").End(xlUp).Row + 1
.Cells(Derligne, 1) = Me.ComboDésignation
.Cells(Derligne, 2) = CLng(Me.TxtQuantitéASortir)
.Cells(Derligne, 3) = Date
.Protect ' "123", True, True, , True
End With
MsgBox "sortie effectuée"
Unload Me
End Sub
A
Bonjour,
préciser la ligne en erreur permettrait de gagner du temps.
Dans une précédente discussion vous disiez avoir résolu votre problème de nombres décimaux par l'utilisation de la fonction de conversion CLng().
Or CLng convertit en entier, donc les décimaux seront tronqués.
a priori toutes les données issues de l'userform sont converties en Long, mais les données issues de la feuille ne seraient elles pas considérées comme string ?