Bonjour à toutes & tous
Tout jeune dans l'histoire du VBA, je suis à la recherche de lignes de codes pour la réalisation suivante :
Dans un classeur, j'ai une feuille Excel dites "Litige", qui me sert de matrice, j'en souhaite récupérer plusieurs cellules différentes pour les copier dans un autre classeur et feuille dites "suivi" + dans des cellules bien distinctes.
Mon souci, c'est que lorsque je change les données de ma matrice "litige" et que je clique sur le bouton "Ajout", les nouvelles cellules copiées se mettent sur la ligne n°2 mais la référence des cellules est décalée de 1.
La première fois est bon, mais quand j'en fait un deuxième que cela ne va plus.
J'ai trouvé des lignes de codes mais cela se fait par ligne et quand je fais un rajout, les cellules sont décalées de 1...
Si vous avez des idées, je suis preneur ! et j'espère avoir été clair..
Merci
Private Sub CommandButton1_Click()
Dim Last_Row1 As Long, Last_Row2 As Long
Dim WB1 As Workbook, WB2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Set WB1 = ThisWorkbook
Set ws1 = WB1.Sheets("Suivi")
Set WB2 = Workbooks.Open("C:\Users\xxxxx\Desktop\Test macro.xlsx")
Set ws2 = WB2.Sheets("Feuil1")
Last_Row1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
Last_Row2 = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
ws1.Range("A2:J" & Last_Row1).Copy ws2.Range("A" & Last_Row2)
End Sub