Discussion :

[Vadorblanc]

Bonjour
Je cherche à supprimer des lignes en fonction d'un critère variable uniquement à droite du mot.
Exemple: Contrat clos depuis le 30/04/2008 > c'est la date qui est variable
Je souhaierais donc que la ligne soit supprimée s'il y a :"Contrat clos depuis"
sans tenir compte de la date
Le code ci-dessous ne me supprime que le mot complet, comment modifier ce code pour mes besoins.
Merci à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SupprimeLigne()
 
 
Dim LastLig As Long, i As Long
 
With Sheets("Base2")
    LastLig = .Cells(.Rows.Count, "E").End(xlUp).Row
    For i = 1 To LastLig
        If .Range("E" & i).Text = "Contrat Clos depuis le 30/04/2008" Then .Rows(i).EntireRow.Delete
    Next i
End With
 
 
End Sub

[mercatog]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub SupprimeLigne()
Dim LastLig As Long, i As Long
 
With Sheets("Base2")
    LastLig = .Cells(.Rows.Count, "E").End(xlUp).Row
    For i = LastLig To 1 Step -1
        If .Range("E" & i).Text Like "Contrat Clos depuis le*" Then .Rows(i).Delete
    Next i
End With
End Sub

[Vadorblanc]

Bonjour mercatog
C'est génial, ça marche, c'est toujours un grand plaisir de te lire...tu en fait des heureux sur ce forum.
Merci