Copier coller une ligne
Résolu
mohamed_2016
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
mohamed_2016 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
mohamed_2016 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
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 pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Partager photos en ligne - 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.