Passer au contenu principal

Comment supprimer des lignes si la cellule est supérieure / inférieure à une certaine valeur dans Excel?

Parfois, vous devrez peut-être supprimer des lignes si les cellules d'une colonne spécifiée sont supérieures ou inférieures à une certaine valeur dans Excel. Cet article vous recommandera plusieurs méthodes pour résoudre ce problème.

Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec le code VBA
Supprimez les lignes si la cellule est supérieure/inférieure à une certaine valeur avec Kutools for Excel
Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutoos pour Excel


Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec le code VBA

Supposons que vous souhaitiez supprimer des lignes entières si la cellule de la colonne D est supérieure ou inférieure à une certaine valeur dans Excel. Vous pouvez exécuter le code VBA suivant pour y parvenir.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code.

Code VBA: supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur 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 Sub

Notes: Dans le code ci-dessus,> 30000 signifie que vous supprimerez des lignes si les cellules sont supérieures à 30000 dans une colonne spécifiée. Si vous souhaitez supprimer des lignes si les cellules sont inférieures à une certaine valeur, modifiez le signe> en <, puis spécifiez votre valeur.

3. presse F5 clé pour exécuter le code, dans la fenêtre contextuelle Kutools for Excel boîte de dialogue, sélectionnez la plage (colonne unique) que vous trouverez si les cellules de cette colonne sont supérieures ou inférieures à une certaine valeur. Et puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, toutes les lignes avec une valeur de cellule supérieure à 30000 dans la colonne D sont supprimées immédiatement.


Supprimez les lignes si la cellule est supérieure/inférieure à une certaine valeur avec Kutools for Excel

La Sélectionnez des cellules spécifiques utilité de Kutools for Excel peut vous aider à sélectionner toutes les lignes avec des cellules supérieures ou inférieures à une certaine valeur dans une colonne spécifiée, puis vous pouvez supprimer manuellement toutes les lignes sélectionnées à la fois.

Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Sélectionnez la colonne sur laquelle vous souhaitez supprimer des lignes, puis cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques. Voir la capture d'écran:

2. dans le Sélectionnez des cellules spécifiques boîte de dialogue, veuillez sélectionner Ligne entière dans l' Type de sélection section. dans le Type spécifique section, sélectionnez Supérieure à or Moins que dans la première liste déroulante, entrez la certaine valeur dans la zone de texte suivante, puis cliquez sur le OK .

3. Ensuite, une boîte de dialogue apparaît pour vous dire combien de lignes sont sélectionnées, veuillez cliquer sur le OK bouton. Et vous pouvez voir que toutes les lignes avec une valeur supérieure à 30000 dans la colonne D sont sélectionnées immédiatement.

4. Cliquez avec le bouton droit sur l'une des lignes sélectionnées, puis cliquez sur Supprimer dans le menu contextuel. Et toutes les lignes sélectionnées sont supprimées.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutoos pour Excel

En plus des deux méthodes ci-dessus, vous pouvez filtrer toutes les lignes avec des cellules supérieures ou inférieures à une certaine valeur dans une colonne spécifiée, puis supprimer toutes les lignes filtrées avec le Supprimer les lignes et les colonnes masquées (visibles) utilité de Kutools for Excel.

Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Sélectionnez l'en-tête de colonne, puis cliquez sur Données > Filtre. Voir la capture d'écran:

2. Cliquez sur la flèche déroulante dans la colonne sur laquelle vous allez supprimer les lignes, puis cliquez sur Filtres numériques > Plus grand que or Moins que comme ci-dessous capture d'écran:

3. dans le Filtre automatique personnalisé boîte de dialogue, entrez le certain nombre après que la zone est supérieur ou inférieur à, puis cliquez sur le bouton OK .

4. Ensuite, toutes les lignes avec certaines cellules qui sont supérieures ou inférieures à une certaine valeur dans la colonne D sont toutes filtrées. Vous pouvez supprimer toutes les lignes filtrées en sélectionnant les données filtrées, puis en cliquant sur Kutools > Supprimer > Supprimer les lignes et colonnes masquées (visibles). Voir la capture d'écran:

5. dans le Supprimer les lignes et colonnes masquées (visibles) boîte de dialogue, assurez-vous que Dans la plage sélectionnée l'option est sélectionnée dans le Regarder dans liste déroulante, sélectionnez rangées dans l' Supprimer le type section, spécifiez l'option Lignes visibles dans la Type détaillé section, et enfin cliquez sur le OK .

6. Ensuite, toutes les lignes visibles dans la plage sélectionnée sont supprimées immédiatement, vous pouvez annuler le filtre en cliquant sur Données > Filtre.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Supprimez les lignes si la cellule est supérieure/inférieure à une certaine valeur avec Kutools for Excel


Articles Liés:

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations