Macro de suppression de ligne
Résolu
Alx
-
Alx -
Alx -
Bonjour,
J'ai un travail fastidieux de tri de donnée et je suis novice en excel.
Existe-t-il une macro qui me permettrai de supprimer 4 lignes sur 5 ? (en fait techniquement je ne conserve qu'une ligne sur les 5)
Merci
Cdlt
J'ai un travail fastidieux de tri de donnée et je suis novice en excel.
Existe-t-il une macro qui me permettrai de supprimer 4 lignes sur 5 ? (en fait techniquement je ne conserve qu'une ligne sur les 5)
Merci
Cdlt
3 réponses
-
Bonjour
Tu veux dire 4 lignes sur 5, de façon régiulière ? laquelle ?
A partir de quelle ligne
Expliques un peu plus
Cdlmnt-
C'est gentil, je vais essayer de clarifier ce que je fait manuellement (et c'est long)
Les valeurs commencent à la ligne 13
Je supprime la 14, 15, 16, 17.
Je garde la 18 et fait remonter les lignes à la 14
Je supprime la 15, 16, 17, 18.
la nouvelle ligne 19 remonte à la 15, etc...
Je reste a dispo si d'autres questions
-
-
Bonjour,
Tu peux faire ce testSub Test()
Dim DerLig As Long, Ligne As Long
Dim Rep As Integer
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For Ligne = 2 To DerLig
If (Ligne - 1) Mod 5 <> 0 Then
Rows(Ligne).Interior.ColorIndex = 6
End If
Next Ligne
Rep = MsgBox("Confirmez-vous la suppression des lignes jaunes ?", vbCritical + vbYesNo)
If Rep = vbYes Then
Application.ScreenUpdating = False
For Ligne = DerLig To 2 Step -1
If Rows(Ligne).Interior.ColorIndex = 6 Then Rows(Ligne).Delete
Next Ligne
Application.ScreenUpdating = True
End If
End Sub
A+ -
Comme ça ?
http://www.cjoint.com/c/FJdpsASnwnq
Cdlmnt
