suppression de ligne Résolu

Question

Bonjour a tous
un tableau de 5 cellules J1:N5000
toutes les lignes qui comprennent une cellule 0 ou + grande que 49 doivent être supprimées
merci d'avance
amicalement
jacques



Configuration: Windows / Edge 18.18362

ccm81 · Answer

Bonjour

avec une petite macro

Option Explicit

Public Sub ok()
Dim li As Long, lifin As Long, co As Long
Application.ScreenUpdating = False
lifin = Range("A" & Rows.Count).End(xlUp).Row
For li = lifin To 2 Step -1
  For co = 1 To 14 'N
    If Cells(li, co).Value = 0 Or Cells(li, co).Value > 49 Then
      Rows(li).Delete
      Exit For
    End If
  Next co
Next li
End Sub
https://mon-partage.fr/f/gt48Y6yO/

Cdlmnt

Suppression de ligne

1 réponse

Discussions similaires

Newsletters