Utiliser la valeur d'une cellule pour IF
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:
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 |
