Supprimer les cellules toutes les n cellules

[SamyDT]

Bonjour, c'est sans doute une question récurrente, mais je n'ai pas trouvé de réponse via le formulaire de recherche du forum.

Dans une colonne, j'ai des cellules vides ponctuées de cellules avec des valeurs toutes les 23 cases. Je souhaite utiliser du VBA pour les supprimer automatiquement.

Pouvez-vous m'aider ?

 

[Lone-wolf]

Re : Supprimer les cellules toutes les n cellules

Bonjour SamyDT,

pourrais-tu mettre une pièce jointe pour que l'on puisse t'aider.


A+ 😎

 

[SamyDT]

Re : Supprimer les cellules toutes les n cellules

Bonjour,

Je pense qu'une impression écran sera déjà plus claire :

 

[Lone-wolf]

Re : Supprimer les cellules toutes les n cellules

Re SamyDT,

Une proposition:

Sub Sup_Lignes_Vides()
Dim derlig As Long, d As Long
    derlig = ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For d = derlig To 1 Step -1
        If Application.CountA(Rows(d)) = Empty Then Rows(d).Delete
    Next d
End Sub

A+ 😎

 

[Lone-wolf]

Re : Supprimer les cellules toutes les n cellules

Re,

pour masquer - afficher les lignes vides:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig As Long, d As Long
    derlig = ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For d = derlig To 1 Step -1
        If Application.CountA(Rows(d)) = Empty Then Rows(d).Hidden = True
    Next d
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, d As Long
    derlig = ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
        For d = 1 To derlig
        If Application.CountA(Rows(d)) = Empty Then Rows(d).Hidden = False
    Next d
End Sub

A+ 😎

 

[Caillou]

Re : Supprimer les cellules toutes les n cellules

Bonjour à tous,

Une proposition sans VBA :
- Sélectionner colonne A
- F5 / Cellules / Cellules vides
- Clic droit / Supprimer / Décaler vers le haut / OK

Caillou

 

[Efgé]

Re : Supprimer les cellules toutes les n cellules

Bonjou SamyDT, Lone-wolf, Caillou

Plus court

Sub Supprimer()
On Error Resume Next
Sheets("Feuil1").UsedRange.Columns(1).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Cordialement

 

[Lone-wolf]

Re : Supprimer les cellules toutes les n cellules

Bonjour Efgé, Caillou,

dans la même lancée qu'Efgé

Sub Sup_Lignes_Vides_Et _Doublons()
Dim i As Integer
Application.ScreenUpdating = False
With Sheets("Feuil1")
.UsedRange.Columns(1).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
i = 1
Do While .Cells(i, 1).Value <> ""
i = i + 1
If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then Rows(i - 1).Delete
Loop
End With
End Sub

A+ 😎

 

[SamyDT]

Re : Supprimer les cellules toutes les n cellules

Merci à tous pour ces réponses, c'est très efficace.