suprimer ligne commencant par SL sur la colonne H (avec entête)

[cere]

Bonjour,

je souhaite supprimer chaque lignes d'une feuille dont la colonne H (colonne avec entête) commence par les caractères SL... sachant que le nombre de lignes est variable.

j'ai fabriqué ce code VBA mais cela ne fonctionne pas du tout 🙁 . j'ai du louper qqch

For n = Range("H" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("H" & n) = "SL" Then
Rows(n).Delete
End If
Next

merci pour votre aide. 🙂

 

[Paf]

Re : suprimer ligne commencant par SL sur la colonne H (avec entête)

Bonjour

peut-être

If Range("H" & n) Like "SL*" Then

A+

 

[Staple1600]

Re : suprimer ligne commencant par SL sur la colonne H (avec entête)

Bonsoir à tous

cere
Pourquoi ne pas utiliser le filtre automatique pour cette tâche ?
(et si vraiment besoin, on peut aussi le faire avec VBA)

Sub SuppLignesparFiltre()
Dim pf As Range
Columns("H:H").AutoFilter Field:=1, Criteria1:="=SL*", Operator:=xlAnd
Set pf = [_FilterDatabase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

NB: test OK sur mon PC (XL 2013)

EDITION: Bonsoir Paf

 

[cere]

Re : suprimer ligne commencant par SL sur la colonne H (avec entête)

Bonjour,

Merci à tous les 2 (Paf et Staple1600). Vos 2 solutions fonctionnent très bien.
j'ai choisi finalement celle de Staple1600 qui s'exécute plus rapidement dans ma macro vba.

merci beaucoup de votre retour.

😀