Suppression de ligne excel en fonction du niveau de risque

Résolu/Fermé
chris_del_parisss - 1 nov. 2012 à 19:44
chris_del_parisss Messages postés 1 Date d'inscription jeudi 1 novembre 2012 Statut Membre Dernière intervention 1 novembre 2012 - 1 nov. 2012 à 22:59
Bonjour,

je souhaiterais faire une macro qui me permettrait de supprimer automatiquement toutes les lignes ou le risque est supérieur à 5 (colonne F).

Auriez vous la solution svp ?

Merci par avance :)

chris

A voir également:

2 réponses

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
1 nov. 2012 à 22:30
Bonjour,
Essayez avec cette procédure :
Sub SuppLigneSiF()
Dim deli As Integer, c As Integer
deli = Cells(Rows.Count, 6).End(xlUp).Row
Application.ScreenUpdating = False
For c = deli To 3 Step -1 ' 3 est la première ligne de données ---> à adapter ...!
  If Cells(c, 6) > 5 Then Rows(c).Delete
Next c
Application.ScreenUpdating = True
End Sub
Note : les données dès la ligne 3 ... à modifier selon votre application !


0
chris_del_parisss Messages postés 1 Date d'inscription jeudi 1 novembre 2012 Statut Membre Dernière intervention 1 novembre 2012
1 nov. 2012 à 22:59
merci beaucoup :)
0