Note: The other languages of the website are Google-translated. Back to English

Comment effacer le contenu des cellules en fonction de l'état dans Excel ?

Parfois, vous devrez peut-être effacer le contenu des cellules en fonction des conditions dans Excel, telles que l'effacement du contenu de la cellule si la cellule contient une valeur spécifique, l'effacement du contenu de la cellule s'il y a des cellules vides dans une autre colonne, ou l'effacement du contenu de la cellule avec une couleur d'arrière-plan spécifique, etc. Cet article présentera quelques astuces pour résoudre ces tâches rapidement et facilement.

Effacer le contenu de la cellule en fonction de la valeur de la cellule avec le code VBA

Effacer des lignes entières si la valeur est supérieure ou inférieure à une valeur spécifique avec le code VBA

Effacer le contenu des cellules ou des lignes en fonction de la valeur de la cellule avec une fonction pratique

Effacer des lignes entières si une autre cellule est vide avec le code VBA

Effacer le contenu des cellules en fonction de la couleur d'arrière-plan avec le code VBA


Effacer le contenu de la cellule en fonction de la valeur de la cellule avec le code VBA

Par exemple, vous avez la plage de données suivante, maintenant, vous voulez effacer le contenu de la cellule qui est "Hoodie", le code VBA ci-dessous peut vous rendre service.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Code VBA : Effacer le contenu de la cellule si la cellule est égale à une valeur spécifique

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Notes: Dans le code ci-dessus, A2: A12 est la plage de données dont vous souhaitez effacer le contenu des cellules, le texte "Sweat à capuche” est la valeur spécifique que vous souhaitez effacer. Veuillez les remplacer par les vôtres.

3. Puis appuyez F5 clé pour exécuter ce code, et toutes les cellules avec le texte "Hoodie" sont effacées à la fois, voir capture d'écran :


Effacer des lignes entières si la valeur est supérieure ou inférieure à une valeur spécifique avec le code VBA

Supposons que vous disposiez de la plage de données ci-dessous pour effacer tout le contenu de la ligne si la valeur de la colonne D est supérieure ou inférieure à 300. Ici, je vais créer un code VBA pour le compléter.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Code VBA : effacez des lignes entières si la valeur de la cellule est supérieure ou inférieure à une valeur spécifique

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Notes: Dans le code ci-dessus, D2: D12 si la plage de données contient la valeur spécifique sur laquelle vous souhaitez effacer les lignes ; 300 est la valeur spécifique ; la > personnage dans le script Si xCell.Value > xStrValue Alors signifie supérieur à, utilisez moins que, remplacez-le par < personnage selon vos besoins.

3. Puis appuyez F5 clé pour exécuter ce code, et tout le contenu de la ligne est effacé si la valeur dans la colonne D est supérieure à 300, voir capture d'écran :


Effacer le contenu des cellules ou des lignes en fonction de la valeur de la cellule avec une fonction pratique

Si vous avez Kutools pour Excel, Avec son Sélectionnez des cellules spécifiques fonctionnalité, vous pouvez sélectionner les cellules ou les lignes en fonction de la valeur spécifique, puis supprimer immédiatement le contenu de la cellule.

Après l'installation de Kutools pour Excel, veuillez faire comme ceci:

1. Sélectionnez la plage de données avec les valeurs sur lesquelles vous souhaitez effacer le contenu des cellules ou des lignes, puis cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques, voir capture d'écran:

2. Dans le ouvert Sélectionnez des cellules spécifiques boîte de dialogue, effectuez les opérations suivantes:

  • Cliquez Cellule or Ligne entière que vous souhaitez sélectionner ;
  • Spécifiez les critères sous le Type spécifique section selon vos besoins. Ici, je souhaite sélectionner les lignes dont la valeur dans la colonne D est supérieure à 300.

3. Puis clique Ok et toutes les lignes dont la valeur est supérieure à 300 sont sélectionnées. Maintenant, il vous suffit d'appuyer sur la touche Suppr du clavier pour supprimer le contenu de la cellule, voir capture d'écran :

Conseils : Il existe de nombreux autres critères que vous pouvez utiliser, veuillez spécifier votre propre condition dans la boîte de dialogue comme illustré ci-dessous :

Effacer les données des lignes dans une plage si contient une cellule vide avec le code VBA

Dans ce cas, si la cellule de la plage de données contient un espace vide, je souhaite effacer les données des lignes de la plage, comme illustré ci-dessous.

Pour terminer cette tâche, veuillez appliquer le code VBA suivant :

1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Module, puis collez le code suivant dans le Module Fenêtre.

Code VBA : Effacer les données des lignes si elles contiennent une cellule vide

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Notes: Dans le code ci-dessus, A2: D12 est la plage de données contient des cellules vides dont vous souhaitez effacer le contenu des cellules.

3. Puis appuyez F5 clé pour exécuter ce code, et les données des lignes avec des cellules vides sont effacées immédiatement dans la plage spécifique dont vous avez besoin.


Effacer le contenu des cellules en fonction de la couleur d'arrière-plan avec le code VBA

Pour effacer les cellules remplies avec une couleur d'arrière-plan spécifique, vous pouvez utiliser le code VBA suivant.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Module, puis collez le code suivant dans le Module Fenêtre.

Code VBA : Effacer le contenu des cellules en fonction de la couleur d'arrière-plan

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Notes: Dans le code ci-dessus, A2: D12 est la plage de données que vous souhaitez utiliser, RVB (252, 228, 214) est la couleur spécifique sur laquelle vous souhaitez effacer les cellules, vous pouvez extraire le mode RVB de la couleur d'arrière-plan en utilisant le MS Paint programme sur votre ordinateur.

3. Et puis, appuyez sur F5 clé pour exécuter ce code, et le contenu de la cellule avec la couleur d'arrière-plan spécifiée est effacé immédiatement. Voir capture d'écran :



  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nomplus
onglet kte 201905
  • 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!
bas de cabine
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés