Comment supprimer des lignes si une cellule est supérieure ou inférieure à une valeur donnée dans Excel ?
Il peut arriver que vous deviez supprimer des lignes lorsque les cellules d’une colonne spécifiée sont supérieures ou inférieures à une valeur donnée dans Excel. Cet article présente plusieurs méthodes efficaces pour résoudre ce problème.
Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée avec du code VBA
Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée avec Kutools pour Excel
Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée avec Kutools pour Excel
Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée avec du code VBA
Supposons que vous souhaitiez supprimer toute une ligne lorsque la cellule de la colonne D est supérieure ou inférieure à une valeur donnée dans Excel. Vous pouvez alors utiliser le code VBA suivant pour y parvenir.
1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre de code.
Code VBA : Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée dans Excel
Public Sub ProcessData()
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
Exit Sub
End If
xRg.Range("A1").EntireRow.Insert
Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
xRg.Range("A1") = "Temp"
xRg.AutoFilter 1, ">30000"
Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
On Error GoTo 0
If Not xRg Is Nothing Then xRg.EntireRow.Delete
End SubRemarque : dans le code ci-dessus, >30000 signifie que vous allez supprimer des lignes si les cellules de la colonne spécifiée contiennent une valeur supérieure à 30000. Si vous souhaitez supprimer des lignes lorsque les cellules sont inférieures à une valeur donnée, remplacez simplement le symbole > par <, puis indiquez votre propre valeur.
3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui s’ouvre, sélectionnez la plage (une seule colonne dans laquelle vous souhaitez identifier les cellules supérieures ou inférieures à une valeur donnée), puis cliquez sur le bouton OK. Voir capture d’écran :
Toutes les lignes dont la valeur de la cellule en colonne D dépasse 30 000 sont immédiatement supprimées.
Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée avec Kutools pour Excel
L’utilitaire Sélectionner des cellules spécifiques de Kutools pour Excel vous permet de sélectionner toutes les lignes dont les cellules sont supérieures ou inférieures à une valeur donnée dans une colonne spécifiée. Vous pouvez ensuite supprimer manuellement toutes les lignes sélectionnées en une seule opération.
1. Sélectionnez la colonne à partir de laquelle vous souhaitez supprimer des lignes, puis cliquez sur Kutools > Sélectionner > Sélectionner des cellules spécifiques. Voir la capture d’écran :
2. Dans la boîte de dialogue Sélectionner des cellules spécifiques, veuillez sélectionner Ligne entière dans la section Sélectionner le type. Dans la section Spécifier le type, sélectionnez Supérieur à ou Inférieur à dans la première liste déroulante, saisissez la valeur souhaitée dans la zone de texte suivante, puis cliquez sur le bouton OK.
3. Une boîte de dialogue s’ouvre alors pour vous indiquer combien de lignes ont été sélectionnées ; cliquez sur le bouton OK. Vous constaterez que toutes les lignes dont la valeur en colonne D est supérieure à 30 000 sont immédiatement sélectionnées.
4. Cliquez avec le bouton droit sur l’une des lignes sélectionnées, puis choisissez Supprimer dans le menu contextuel. Toutes les lignes sélectionnées sont alors supprimées.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Supprimer des lignes si une cellule est supérieure/inférieure à une valeur donnée avec Kutools pour Excel
Outre les deux méthodes précédentes, vous pouvez filtrer toutes les lignes dont les cellules sont supérieures ou inférieures à une valeur donnée dans une colonne spécifiée, puis supprimer ces lignes filtrées à l’aide de l’utilitaire Supprimer les lignes et colonnes masquées (visibles) de Kutools pour Excel.
1. Sélectionnez l’en-tête de colonne, puis cliquez sur Données > Filtrer. Voir la capture d’écran :
2. Cliquez sur la flèche déroulante de la colonne à partir de laquelle vous souhaitez supprimer des lignes, puis cliquez sur Filtres de nombre > Supérieur à ou Inférieur à, comme illustré ci-dessous :
3. Dans la boîte de dialogue Filtre automatique personnalisé, saisissez le nombre souhaité après la case « est supérieur à » ou « est inférieur à », puis cliquez sur le bouton OK.
4. Toutes les lignes contenant des cellules supérieures ou inférieures à une valeur donnée en colonne D sont alors filtrées. Pour supprimer ces lignes filtrées, sélectionnez les données visibles, puis cliquez sur Kutools > Supprimer > Supprimer les lignes/colonnes masquées (visibles). Voir capture d’écran :
5. Dans la boîte de dialogue Supprimer les lignes/colonnes masquées (visibles), assurez-vous que l’option Plage sélectionnée est sélectionnée dans le champ Rechercher dans. Dans la liste déroulante, choisissez Lignes dans la section Type de suppression, cochez l’option « Lignes visibles » dans la section Type détaillé, puis cliquez sur le bouton OK.
6. Toutes les lignes visibles de la plage sélectionnée sont alors immédiatement supprimées. Vous pouvez désactiver le filtre en cliquant sur Données > Filtrer.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Articles associés :
- Comment supprimer toutes les lignes situées sous une ligne ou une cellule active donnée dans Excel ?
- Comment supprimer toutes les lignes sauf la première ligne d’en-tête dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels