Copier coller une ligne
Résolu
mohamed_2016
Messages postés
33
Statut
Membre
-
mohamed_2016 Messages postés 33 Statut Membre -
mohamed_2016 Messages postés 33 Statut Membre -
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
