Bonjour,
La procédure est la suivante:
- l'utilisateur scan une référence, celle-ci s'inscrit dans une cellule
je souhaiterais et c'est la que je bug vérifier (par macro) que la valeur de la cellule (la réponse de l'inputbox) soit identique une valeur données (une autre cellule).
si la valeur est identique l'utilisateur scan le n°de lot
Si la valeur est différente la macro s'arrête est la valeur de l'inputbox s'éfface.
J'ai donc écrit le code suivant mais lors de l'exécution la ligne suivante se met en jaune (verfif = Sheets("ENTEROBACTERIES").Range("aaa7").Selection.End(xlToLeft).Value)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub cb1_click()
 
 
Sheets("ENTEROBACTERIES").Range("A1").Select
    Selection.End(xlToRight).Offset(5, 0).Select
    ActiveCell.FormulaR1C1 = InputBox("Scanner le code produit", "Code produit AMX")
 
verfif = Sheets("ENTEROBACTERIES").Range("aaa7").Selection.End(xlToLeft).Value
 
  If verfif = "Attention" Then
  Range("A1").Select
    Selection.End(xlToRight).Offset(5, 0).ClearContents
    MsgBox "recommencer"
 
 
   Else: verfif = [a6]
  Range("A1").Select
    Selection.End(xlToRight).Offset(7, 0).Select
    ActiveCell.FormulaR1C1 = InputBox("Scanner et vérifier le N°de lot", "Code produit AMX")
 
 
End If
 
   Range("a1").Select
Selection.End(xlToRight).Offset(3, 0).Select
    Selection.Copy
    Sheets("tracepatiententerobacteries").Select
    Range("A4").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Sheets("ENTEROBACTERIES").Select
Range("a1").Select
 
 
 
 
 
End Sub