Fonction SI, effacer une ligne

[Laetitia1664]

Bonjour les gars,

j'ai besoin de votre aide car je suis bloqué sur un code.
Sur mon tableau à plusieurs colonnes, si une cellule = "selected" je voudrais surpprimer la ligne entière.
Voilà sur le code sur lequel je suis parti mais ca bug.

Sub SelectedStandby()

Dim SSby As Range
Dim SSby2 As Integer

For Each SSby In Range("C1:C1000")
If SSby.Value = "Selected & Stand by" Then SSby2 = SSby.Row
Rows(SSby2).Delete
End If
Next SSby

End Sub


Merci d'avance pour votre aide
Cdt

 

[BOISGONTIER]

Re : Fonction SI, effacer une ligne

Bonsoir,

Suppression de lignes

JB

 

[laetitia90]

Re : Fonction SI, effacer une ligne

bonjour laetitia
un exemple

Sub es()
  Dim i As Long
   Application.ScreenUpdating = False
  For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
  If Cells(i, 3) = "Selected & Stand by" Then Rows(i).Delete
  Next i
End Sub

ps salut l'ami JB j'avais pas rafraichi

je conseille d'aller visiter son site egalement trop!!!! bien fait salut