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
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