Bonjour à tous,

Je sollicite votre aide car je sèche.

J'ai fait un formulaire me permettant de générer des codes-barres.


Lu but est que quand je note un matricule en L9 ça me génère un code barre dans la cellule L17 une fois qu'il a été gérer dans la cellule j'appuie sur un bouton qui me le met dans une autre feuille.


Je sèche à l'étape de me coller les codes-barres dans l'autre feuille une fois que j'appuie sur le bouton.


En effet, j'aimerais que quand ça me le colle sur l'autre feuille ça ne vienne pas écraser les anciens codes barre, de préférence que ça me créait une nouvelle ligne et me le colle directement en gardant la même mise en forme.

Voici mon code

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
    Range("C9:H11").Select
    Selection.ClearContents
End Sub
Sub z()
'
' z Macro
'
 
'
    Range("L17:Q20").Select
    Selection.Copy
    Sheets("IMPRESSION EN MASSE").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A7").Select
    Sheets("GENERATEUR").Select
    Range("L9:Q11").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub