Microsoft 365 Déplacer une ligne vers une autre feuille

nag38

XLDnaute Nouveau
Bonjour,
Je souhaiterai déplacer une ligne d'un tableau vers une autre feuille, j'ai trouvé un code sur ce même forum qui permet de faire cela, mais lorsque le déplacement se fait il y'a écrase la première ligne existante au lieu d'en ajouter une nouvelle.
avez-vous une idée pour corriger cela.
Voici le code en question

Option Explicit
Dim N1 As Integer, N2 As Integer, Archives


Sub Archiver()

Set Archives = Sheets("ARCHIVES ODM & BILANS BU HX")
N1 = 6
N2 = 6
While Cells(N1, 2).Value <> ""
If Cells(N1, 12).Value <> "" Then
Rows(N1).Copy Archives.Cells(N2, 1)
N2 = N2 + 1
Rows(N1).Delete Shift:=xlUp
N1 = N1 - 1
End If
N1 = N1 + 1
Wend
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, nag38

Avec ceci, est-ce qu'on se rapproche du résultat souhaité?
(test à l'aveuglette ou presque puisque fichier exemple non joint par le demandeur ;))
VB:
Sub Archiver_test()
Dim Source As Worksheet, Desti As Worksheet, N1&
'ci-dessous adapter le nom des feuilles
Set Source = Sheets(1): Set Desti = Sheets(2)
N1 = 6
While Source.Cells(N1, "B").Value <> ""
Source.Rows(N1).Copy Desti.Cells(Rows.Count, 1).End(3)(2)
Application.CutCopyMode = False
N1 = N1 + 1
Wend
End Sub
 

Discussions similaires