Code-barre

[Chasse]

Bonjour le forum

Dans ma feuil1 toutes les cellules sont « seront » bloquées sauf une « Y2 »
j’aimerais chaque fois que j’entre un code bar « avec un scanner » que le n° s’inscrive dans la feuil 2« qui elle doit être normalement masquée » dans la 1ière cellule vide depuis le bas de la colonne C , et que la date du jour de scannage s’inscrive dans la colonne B

je vous joint mon fichier pour plus de clarté

D’avance merci pour votre aide

 

[Chasse]

Re : Code-barre

Bonjour le forum
J’ai trouvé une partie de la solution a mon problème
Avec ce code a mettre dans la feuille

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.Column = 26 And Target.Row = 2 Then
Target.Copy Destination:=Feuil1.Range("AE65536").End(xlUp).Offset(1, 0)
Range("AD65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
 Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    
    Cells.Select
    Selection.Locked = True
    Range("Z2").Select
    Selection.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
End Sub

Salutations