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
A voir également:
- Macro de suppression de ligne
- Partage de photos en ligne - Guide
- Forcer suppression fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formulaire en ligne de meta - Guide
- Mètre en ligne - Guide
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
Tu veux dire 4 lignes sur 5, de façon régiulière ? laquelle ?
A partir de quelle ligne
Expliques un peu plus
Cdlmnt
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+
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