Coller dans une nouvelle feuille VBA

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:

---

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

---

Bonjour,
Pour Copier/Coller ou Couper/Coller comme d'ailleurs toutes actions sur des objets tels que cellules, feuilles ou classeurs ouverts il n'y a jamais lieu d'utiliser les méthodes Select, Activate, etc. il suffit simplement de préciser la parentalité des objets concernés

A lire éventuellement mon billet sur ce sujet Excel VBA - La parentalité d’un objet

Pour Copier/Coller ou Couper/Coller, on utilisera la méthode Copy ou Cut de l'objet Range en utilisant l'argument Destination

Exemple de la copie des cellules A5:A9 de la feuille nommée Data vers la cellule C20 de la feuille nommée Cible toutes les deux présentes dans le classeur où se trouve le code VBA (ThisWorkbook)

Code:

---

1 2 3 4 5

Sub t() With ThisWorkbook .Worksheets("Data").Range("A5:A9").Copy Destination:=.Worksheets("Cible").Range("C20") End With End Sub

---