Copier coller une ligne
Résolu
Bonjour le forum
je veut copier une ligne et la coller dans une feuille puis la supprimer de la feuille source
voila le début de code
je veut copier une ligne et la coller dans une feuille puis la supprimer de la feuille source
voila le début de code
Sub clear()
Dim DL As Integer
Dim I As Integer
' optimisation
Application.ScreenUpdating = False ' pour gagner du temps : on désactive avant le macro et on réactive aprés
DL = Range("A" & Application.Rows.Count).End(xlUp).Row
For I = DL To 2 Step -1
If Not IsNumeric(Cells(I, 1).Value) = True Then
Rows(I).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
1 réponse
-
bonjour,
voici un début de réponse
Sub clear()
Dim DL As Integer
Dim I, j As Integer
' optimisation
Application.ScreenUpdating = False ' pour gagner du temps : on désactive avant le macro et on réactive aprés
DL = Range("A" & Application.Rows.Count).End(xlUp).Row
For I = DL To 2 Step -1
If Not IsNumeric(Cells(I, 1).Value) = True Then
'copier la ligne i dans la feuille nomfeuille ligne J
Rows(I).copy sheets("nomfeuille").rows(J)
'suppression de la ligne
Rows(I).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
