Bonjour à tous,
Je me suis lancé dans VBA il y a peu et j'ai déjà eu l'occasion de corriger pas mal d'erreur en consultant les différents sujets du forum mais cette fois je tombe sur un os... Comme le dit le titre, c'est une erreur '91'. Je pense avoir correctement définit mes variables mais je sens que le problème est ailleurs... sans savoir où !!
Voici le code :
Ca bloque dans le cells.find... Est-ce que quelqu'un saurait m'aider ?
Je me suis lancé dans VBA il y a peu et j'ai déjà eu l'occasion de corriger pas mal d'erreur en consultant les différents sujets du forum mais cette fois je tombe sur un os... Comme le dit le titre, c'est une erreur '91'. Je pense avoir correctement définit mes variables mais je sens que le problème est ailleurs... sans savoir où !!
Voici le code :
Code:
Sub Livraison()
Dim a As String
Dim b As Integer
a = InputBox("Entrez le nom de la monture livrée")
b = InputBox("Entrez la quantité livrée")
Sheets("Inventaire").Select
If b < 0 Then
MsgBox "Attention, la valeur doit être positive !!", vbRetryCancel, "Attention !!"
Else: Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=False, SearchFormat:=False).Activate
End If
ActiveCell.Offset(0, 1).Select
ActiveCell = ActiveCell + b
Sheets("Livraisons").Select
Do While Range("C7").Value <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Date
ActiveCell.Offset(0, 1) = a
ActiveCell.Offset(0, 2) = b
End Sub
Ca bloque dans le cells.find... Est-ce que quelqu'un saurait m'aider ?