pb macro sortie de stock

[lioneldu47]

Bonjour le forum,​

Dans un userform j'ai un combobox2 (référence) et un textbox81 (quantité)... Je souhaiterais que la quantité entrée dans le textbox81 soit enlevé de la quatrième colonne d'une feuille Stock sur la ligne de la référence correspondante.
J'ai essayé avec cette fin de macro mais cela ne fonctionne pas:

With Sheets("Stock")
Sheets("Stock").Unprotect
Set lp = .Range("A:A").Find(ComboBox2, LookIn:=xlValues, lookat:=xlWhole)
lp = lp.Row
If ComboBox2 <> "" Then .Cells(lp, 4) = .Cells(lp, 4) - CLng(TextBox81.Value)

End
End Sub


Merci pour votre aide😀

 

[fhoest]

Re : pb macro sortie de stock

Bonjour,
je pense que tu ne doit pas mettre de . devant cells avec un range oui mais pas un cells
je ne suis pas certains car je n'est pas tester le morceau de code
A+
ps il manque end with a la place de end

 

[lioneldu47]

Re : pb macro sortie de stock

merci pour ta réponse mais il y a toujours une erreur au niveau de lp = lp.Row

c'est une erreur 91 variable objet non définie.

Merci pour votre aide...

 

[Compte Supprimé 979]

Re : pb macro sortie de stock

Salut Lioneldu47,

Pourquoi utiliser une variable objet pour ce que tu veux faire 😕

With Sheets("Stock")
  Dim Lp As Long
  With Sheets("Stock")
    .Unprotect
    On Error Resume Next
    Lp = 0: Lp = .Range("A:A").Find(ComboBox2, LookIn:=xlValues, lookat:=xlWhole).Row
    If Err.Number <> 0 And Lp = 0 Then
      MsgBox "Impossible de trouver la ligne de l'article", vbCritical, "ERREUR ..."
    End If
    On Error GoTo 0
    If ComboBox2 <> "" Then .Cells(Lp, 4) = .Cells(Lp, 4) - CLng(TextBox81.Value)
  End With
End Sub

C'est certainement que la ligne n'est pas trouvée 😉

A+

 

[lioneldu47]

Re : pb macro sortie de stock

Il manquait un end with mais à part ça cela fonctionne très bien merci beaucoup...

A+