Microsoft 365 Effacer le contenu si cellule suivante identique

Faroyo à dit:

J'aimerai savoir s'il était possible d'effacer en meme temps le contenu des colonnes A, C et D

Cliquez pour agrandir...

fanch55 à dit:

Salut,
A mettre dans le code de sheet1 :

VB:

Sub SupDessous() ' pour traiter toute la colonne,
Dim Lr As Range, I As Long
    Set Lr = Columns("B").Find("", , , , xlPrevious)
    If Not Lr Is Nothing Then
        For I = Lr.Row To 2 Step -1
            Compress_Column Cells(I, "B")
        Next
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = Columns("B").Column Then
        Compress_Column Target(1)
    End If
End Sub

Sub Compress_Column(Cell As Range)
Application.EnableEvents = False
    Select Case Cell
        Case Is = ""
        Case Is <> Cell.Offset(-1)
        Case Else: Cell.ClearContents
    End Select
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

​

Phil69970 à dit:

Re
Bonjour François

@Faroyo


Comme ceci ?

Cliquez pour agrandir...

Phil69970 à dit:

@Faroyo

Et si tu veux regrouper les lignes pour ne plus avoir des lignes vides.....

Cliquez pour agrandir...

Faroyo à dit:

Le code fonctionne parfaitement et meme question pour vous, serait-il possible d’étendre l'effacement des cellules aux colonnes A , C et D.

Cliquez pour agrandir...

Sub SupDessous()
Dim Lr As Range, I As Long
Application.EnableEvents = False
    Set Lr = Columns("B").Find("", , , , xlPrevious)
    If Not Lr Is Nothing Then
        For I = Lr.Row To 2 Step -1
            Select Case Cells(I, "B")
                Case Is = ""
                Case Is <> Cells(I, "B").Offset(-1)
                Case Else: Rows(I).Delete
            End Select
        Next
    End If
Application.EnableEvents = True
End Sub