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
A voir également:
- Copier coller une ligne
- Historique copier coller - Guide
- Copier-coller - Accueil - Informatique
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Comment copier une vidéo youtube - Guide
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
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
Bonjour melanie1324
Je vous remercie pour la resolution de ce problème.