Suppression de ligne sous condition
Résolu
moi
-
moi -
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
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
-
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
