VBA : Comment supprimer des lignes en fonction de la valeur de la cellule

Vous pouvez utiliser la syntaxe suivante dans VBA pour supprimer des lignes en fonction d’une valeur de cellule :

Sub DeleteRowsByValue()

    Dim ws As Worksheet
    Set ws = ActiveSheet
  
    'clear existing filters
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0
    
    'filter range where column 2 in range is equal to "East"
    ws.Range("A1:C10").AutoFilter Field:=2, Criteria1:="East"
  
    'delete rows that are visible
    Application.DisplayAlerts = False
    ws.Range("A2:C10").SpecialCells(xlCellTypeVisible).Delete
    Application.DisplayAlerts = True
  
    'remove filter
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0
  
End Sub

Cette macro particulière supprime toutes les lignes de la plage A1:C10 où la valeur de la colonne B est égale à « Est ».

Cette macro utilise les étapes suivantes :

• Appliquez un filtre à A1:C10 pour afficher uniquement les lignes dont la valeur dans la colonne B est « Est ».
• Supprimez ensuite toutes les cellules visibles.
• Retirez ensuite le filtre.

Cela a pour effet de supprimer toutes les lignes de la plage A1:C10 où la valeur de la colonne B est égale à « Est ».

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : utiliser VBA pour supprimer des lignes en fonction de la valeur de la cellule

Supposons que nous disposions de l’ensemble de données suivant contenant des informations sur divers joueurs de basket-ball :

Supposons que nous souhaitions supprimer chaque ligne de l’ensemble de données où la colonne Conférence est égale à « Est ».

Nous pouvons créer la macro suivante pour ce faire :

Sub DeleteRowsByValue()

    Dim ws As Worksheet
    Set ws = ActiveSheet
  
    'clear existing filters
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0
    
    'filter range where column 2 in range is equal to "East"
    ws.Range("A1:C10").AutoFilter Field:=2, Criteria1:="East"
  
    'delete rows that are visible
    Application.DisplayAlerts = False
    ws.Range("A2:C10").SpecialCells(xlCellTypeVisible).Delete
    Application.DisplayAlerts = True
  
    'remove filter
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0
  
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que toutes les lignes dont la valeur dans la colonne Conférence était « Est » ont été supprimées.

Remarque : La ligne Application.DisplayAlerts=False indique à VBA de ne pas afficher le processus de suppression des lignes visibles, ce qui accélère le processus.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment appliquer une mise en forme conditionnelle aux cellules
VBA : Comment compter le nombre de lignes dans la plage
VBA : Comment compter les cellules avec un texte spécifique