Suppression de ligne sous condition

[Résolu/Fermé]
Signaler
-
 moi -
Bonjour,

J'ai une page TINTIN contenant une plage de données allant de A2:F1252
Je cherche une macro permettant de supprimer l'ensembles des lignes où la valeur de la colonne F est inférieure à 150
Qui peut m'aider ?

Merci

1 réponse

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
154
Bonjour Toi, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim PL As Variant 'déclare la variable PL (PLage)
Dim I As Integer 'déclare la variable I (PLage)
Dim LI As Range 'déclare la variable LI (plage des LIgnes)

Set LI = Range("A1") 'initialsie la variable LI
PL = Range("F2:F1252") 'définit la plage PL (variable tableau)
For I = 1 To UBound(PL, 1) 'boucle sur toutes les lignes I de la plage PL
'si la valeur ligne I, colonne 1 de la plage PL est inférieure à 150 redéfinit la plage des lignes LI
If PL(I, 1) < 150 Then Set LI = IIf(LI.Cells.Count = 1, Rows(I + 1), Application.Union(LI, Rows(I + 1)))
Next I
LI.Delete 'supprime la palge LI
End Sub