Supprimer ligne sur critère

alfrede -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je travaille sous excel 2007 et je suis novice en VBA, j'ai une tableau de 5 colonnes, je souhaiterais supprimer entièrement une ligne lorsqu'une cellule de la colonne A est supérieur à 600 000.

help please!

Merci

2 réponses

  1. chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 313
     
    (Re) Bonjour,

    cette fois-ci il faudra passer par une macro, tu n'y couperas pas :D
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    re,

    bon, puisqu'il faut le faire par macro, allons y

    conditions de la macro
    étiquettes de champs en ligne 1 à adapter

    Sub enlever_svt_criter()
         Application.ScreenUpdating = False
        derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row
        ActiveSheet.Range("A1:E" & derlig).AutoFilter Field:=1, Criteria1:=">=600000"
        With Range("A2:E" & derlig)
              .SpecialCells(xlCellTypeVisible).EntireRow.Delete
              .AutoFilter
        End With
    End Sub
    


    mais tu pourrais le faire quand m^me sans macro....je l'ai fait en améliorant une macro faite avec l'enregistreur
    0