Suppression de ligne sous condition
Résolu/Fermé
A voir également:
- Suppression de ligne sous condition
- Forcer suppression fichier - Guide
- Excel cellule couleur si condition texte - Guide
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
23 mars 2016 à 17:30
23 mars 2016 à 17:30
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
23 mars 2016 à 17:38