Discussion :

[katle77]

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

[EngueEngue]

"aaa7" c'est pas un range chez moi, "A7" peut être!

En passant => ton code est une horreur..

[katle77]

Je suis désolée

je n'ai jamais pris de cours uniquement les tutos sur internet.
si non aaa7 c'est pour trouver la dernière cellule non vide de la ligne 7

[papouclo]

Bonjour,
Remplacer la ligne incriminée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

verfif = Sheets("ENTEROBACTERIES").Cells(7, Cells.Columns.Count). End(xlToLeft).Column

Cordialement
Claude