Substrater x ()
Obscurcir le rFind comme gamme, le sFind, s comme corde
line1 :
sFind = Application.InputBox (« écrire le code barres », 2)
Si le sFind = faux sortent alors le sous-marin
Avec Sheet1.Range (« E2 », Sheet1.Range (« E2 »). Extrémité (xlDown))
Placer le rFind =. Trouver (ce qui : =sFind, LookAt : =xlWhole, MatchCase : =False, SearchFormat : =False)
Si le rFind n'est rien alors
s = MsgBox (« identification n'existe-t-il pas l'essai encore ? », vbYesNo)
Si s = vbNo sortent alors le sous-marin
Autrement
Si UCase (rFind.Offset (, 1)) = « OUI » puis
MsgBox « utilisé précédemment »
Signal sonore
Autrement
rFind.Offset (, 1) = « OUI »
MsgBox « CORRECT »
Finir si
Finir si
Finir avec
Line1 GoTo
Sous-marin d'extrémité
|