Macro de suppression de ligne

Résolu/Fermé
Alx - 3 oct. 2016 à 15:01
 Alx - 4 oct. 2016 à 13:26
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

ccm81 Messages postés 10463 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 21 septembre 2022 2 314
3 oct. 2016 à 15:22
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
0
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
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 534
3 oct. 2016 à 15:30
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+
0
ccm81 Messages postés 10463 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 21 septembre 2022 2 314
3 oct. 2016 à 17:18
Comme ça ?
http://www.cjoint.com/c/FJdpsASnwnq

Cdlmnt
0
oui ! exactement !
0
merci au fait !
0