Suppression d'une ligne depuis une cellule selectionné

[dudux2]

Bonjour le forum,

Je n'arrive pas à trouvé le code nécessaire pour ma réalisation.

Si dans une cellule de la Colonne J, il y a un "s" et que l'on clique sur le bouton supprimer, je souhaiterais supprimé certaine cellules dont la ligne est représenté par un "s".

Exemple:

si je met un "s" dans la colonne J10, je voudrais qu'il me supprime les cellules G10 à K10.

Merci!

 

[Kobaya]

Re : Suppression d'une ligne depuis une cellule selectionné

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 :

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

 

[dudux2]

Re : Suppression d'une ligne depuis une cellule selectionné

Merci Kobaya pour ta participation!

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 :

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

En faite, je voudrais recherché si "s" est présent dans l'une des cases de la colonnes J (J10 à J65536)

Si l'on trouve un "s" dans une cellule, on récupère la ligne pour supprimer les cellules de G à K.

Et on continu la recherche pour supprimer les autres lignes.

Exemple: si l'on trouve un "s" dans la colonne J30, on supprime les cellules de G30 à K30.

Merci.