Douchette code barre

Bonjour,

Merci de m'aider ^_^ ;

Je veux un ligne vide après chaque 12 lignes scannés par un douchette..

Merci

Bonjour,

Enregistrer le classeur au format .xlsm. (Votre Excel doit être paramétré pour accepter les macros...)

Coller cette macro dans la feuille, puis exécuter la macro avant la saisie.

Sub Protection()
Dim i
   With ActiveSheet
       .Unprotect
       .EnableSelection = xlUnlockedCells
       .Columns("B:B").Locked = False
      For i = 16 To 1048576 Step 13
         .Range("B" & i).Locked = True
      Next
      .Protect
End With
Application.MoveAfterReturnDirection = xlDown
End Sub

Après la saisie douchette, selon la suite du travail, il peut être nécessaire de déprotéger la feuille (et de modifier le paramétrage de déplacement...)

Selon l'ordinateur la macro prends quelques secondes pour s'exécuter. Si on n'utilise jamais plus de 10000 lignes par exemple, dans la macro il peut être avantageux de remplacer 1048576 par 10000. Cela sera plus rapide.

A+