Table des matières
Le sous-programme suivant supprimera chaque ligne d'une plage où la valeur de la colonne A commence par un morceau de texte prescrit :
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text As String)Dim Row_Counter en tant qu'entierPour Row_Counter = Data_range.Rows.Count à 1 étape -1Si Data_range n'est rien, alorsQuitter le sousFin siSi UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) ThenData_range.Cells(Row_Counter, 1).EntireRow.DeleteFin siRow_Counter suivantFin du sous-marin |
Par exemple, Delete_Rows(Sheets("Sheet1").Range("A1:E23",,"Chien") supprimera toutes les lignes de la plage A1:E23 où la valeur de la colonne A commence par le mot "Chien". l'utilisation d'Ucase signifie que les formules sont INSENSIBLES à la casse, c'est-à-dire que les cellules commençant par l'un de DOG, Dog, DoG ou dog seront toutes supprimées.
Cette:
Va devenir:
