Macro de suppression de ligne
Résolu/Fermé
A voir également:
- Macro de suppression de ligne
- Forcer suppression fichier - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
3 oct. 2016 à 15:22
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
Tu veux dire 4 lignes sur 5, de façon régiulière ? laquelle ?
A partir de quelle ligne
Expliques un peu plus
Cdlmnt
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
3 oct. 2016 à 15:30
3 oct. 2016 à 15:30
Bonjour,
Tu peux faire ce test
A+
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+
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
3 oct. 2016 à 17:18
3 oct. 2016 à 17:18
Comme ça ?
http://www.cjoint.com/c/FJdpsASnwnq
Cdlmnt
http://www.cjoint.com/c/FJdpsASnwnq
Cdlmnt
Modifié par Alx le 3/10/2016 à 15:52
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