Macro de suppression de ligne

[Résolu/Fermé]
Signaler
-
 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

3 réponses

Messages postés
10120
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
20 septembre 2021
2 206
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
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
536
Bonjour,

Tu peux faire ce test
Sub 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+
Messages postés
10120
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
20 septembre 2021
2 206
Comme ça ?
http://www.cjoint.com/c/FJdpsASnwnq

Cdlmnt
oui ! exactement !
merci au fait !