Suppression de ligne sous condition
Résolu
moi
-
moi -
moi -
A voir également:
- Suppression de ligne sous condition
- Forcer suppression fichier - Guide
- Partage de photos en ligne - Guide
- Excel cellule couleur si condition texte - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
1 réponse
Bonjour Toi, bonjour le forum,
Essaie comme ça :
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
moi
Merci ;)