Suppression d'une ligne depuis une cellule selectionné

Kobaya à dit:

Bonsoir dudux2,

Comme je ne suis pas sûr de ce que tu entends par "supprimé certaine cellules", je te propose deux solutions. Quand J contient "s", la première supprime les cellules des colonnes G et K, la deuxième efface le contenu de ces colonnes :

Code:

Sub Suppression()
    Range("J1").Select
    Do
        ' ATTENTION : l'opérateur Like fait la différence majuscule/minuscule
        If ActiveCell.Value Like "*s*" Then
            ' colonne G
            Cells(ActiveCell.Row, 7).Delete shift:=xlShiftUp
            ' colonne K
            Cells(ActiveCell.Row, 11).Delete shift:=xlShiftUp
        End If
        
        ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Row = ActiveSheet.Rows.Count
End Sub

Sub Effacer()
    Do
        ' ATTENTION : l'opérateur Like fait la différence majuscule/minuscule
        If ActiveCell.Value Like "*s*" Then
            ' colonne G
            Cells(ActiveCell.Row, 7).ClearContents
            ' colonne K
            Cells(ActiveCell.Row, 11).ClearContents
        End If
        
        ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Row = ActiveSheet.Rows.Count
End Sub

Cliquez pour agrandir...