Probleme code VBA
s
bonjour j ai de problème sur des erreur
https://www.excel-pratique.com/fr/telechargements/outils-de-gestion/gestion-de-stock-no204.php
Private Sub CB_Pièce_Change()
Dim Message As String
Dim Réponse As Integer
Dim Formule, MonStock As String
If Me.CB_Pièce.ListIndex = 0 Then
Message = "Veuillez entrer une pièce valide !"
Réponse = MsgBox(Message, vbOKOnly, "Controle de saisie")
Me.CB_Pièce.SetFocus
Exit Sub
End If
Formule = "=vlookup(" & Chr(34) & Me.CB_Pièce.Value & Chr(34) & ",Pièces,4,false)"
MonStock = Evaluate(Formule)
If IsNumeric(MonStock) Then
Me.TB_Stock.Value = MonStock
End If
End Sub