Suppression de ligne

Résolu
jack2125 Messages postés 457 Date d'inscription   Statut Membre Dernière intervention   -  
jack2125 Messages postés 457 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
1
jack2125 Messages postés 457 Date d'inscription   Statut Membre Dernière intervention  
 
je vais tester
merci beaucoup
bonne soiree
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses