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🙂🙂🙂🙂