Copier coller une ligne

[Résolu/Fermé]
Signaler
Messages postés
31
Date d'inscription
mardi 2 août 2016
Statut
Membre
Dernière intervention
19 août 2016
-
Messages postés
31
Date d'inscription
mardi 2 août 2016
Statut
Membre
Dernière intervention
19 août 2016
-
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
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

Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
146
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
Messages postés
31
Date d'inscription
mardi 2 août 2016
Statut
Membre
Dernière intervention
19 août 2016

Bonjour le Forum ,
Bonjour melanie1324
Je vous remercie pour la resolution de ce problème.