Sub Bouton1_Clic()
Dim Var As String, Var1 As String
Dim MotTrouvé
On Error Resume Next
Var1 = InputBox("Rack ?", , "zzzz")
If Var1 = "" Then Exit Sub
Set MotTrouvé = Range("A4").EntireColumn.Find(What:=Var1, lookat:=xlWhole)
If Not MotTrouvé Is Nothing Then
' Vérifier si existe plusieurs codes identiques
If Application.WorksheetFunction.CountIf(Range("A:A"), Var1) > 1 Then
Var = InputBox("Merci de saisir le code ?", "CODE")
If Var = "" Then Exit Sub
' Trouver le code
Set MotTrouvé = Range("B3").EntireColumn.Find(What:=Var, lookat:=xlWhole)
' Si le code a été trouvé et que le rack correspond
If Not MotTrouvé Is Nothing And MotTrouvé.Offset(0, -1) = Var1 Then
Style = vbYesNo + vbDefaultButton1
Msg = "Vider l'emplacemennt => Rack : " & Var1 & " - code produit : " & Var
Title = "Attention"
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
MotTrouvé.EntireRow.Delete Shift:=xlUp
MsgBox " Le rack est libre maintenant"
End If
Else
MsgBox "Code non trouvé"
End If
Else
Var = MotTrouvé.Offset(0, 1).Value
Style = vbYesNo + vbDefaultButton1
Msg = "Vider l'emplacemennt => Rack : " & Var1 & " - code produit : " & Var
Title = "Attention"
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
MotTrouvé.EntireRow.Delete Shift:=xlUp
MsgBox " Le rack est libre maintenant"
End If
End If
Else
MsgBox "Rien trouvé", vbExclamation, "Mon programme"
Exit Sub
End If
[A1].Select
End Sub