Copier coller une ligne
Résolu/Fermé
mohamed_2016
Messages postés
31
Date d'inscription
mardi 2 août 2016
Statut
Membre
Dernière intervention
19 août 2016
-
Modifié par pijaku le 3/08/2016 à 12:29
mohamed_2016 Messages postés 31 Date d'inscription mardi 2 août 2016 Statut Membre Dernière intervention 19 août 2016 - 10 août 2016 à 11:04
mohamed_2016 Messages postés 31 Date d'inscription mardi 2 août 2016 Statut Membre Dernière intervention 19 août 2016 - 10 août 2016 à 11:04
A voir également:
- Copier coller une ligne
- Copier une vidéo youtube - Guide
- Copier coller pdf - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
1 réponse
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
9 août 2016 à 17:11
9 août 2016 à 17:11
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
10 août 2016 à 11:04
Bonjour melanie1324
Je vous remercie pour la resolution de ce problème.