supprimer ligne avec condition

[neutrix]

re-lu

j ai une colonne du genre

01:23
01:23
01:24
01:25
01:25
01:25
01:26
...
...

je veux obtenir

01:23
01:24
01:25
01:26

en gros supp des lignes identique


merci encore

 

[neutrix]

qd j essai ca ca marche pa

-------------------------------------------------------
Public Sub sup()
Dim Lig1 As Integer 'ligne de la feuille Conditions
Dim date1 As Variant 'date de la feuille conditions
Dim date2 As Variant 'date de la feuille conditions

For Lig1 = 2 To 30
date1 = Left(Application.Worksheets("Feuil1").Cells(Lig1, 1), 16)
date2 = Left(Application.Worksheets("Feuil1").Cells(Lig1 + 1, 1), 16)

'comparaison
If date1 = date2 Then
Rows("Lig1:Lig1").Select
Selection.Delete Shift:=xlUp

End If

Next
End Sub
---------------------------------------------------

y a un pb la : Rows("Lig1:Lig1").Select
alors ke si je met Rows("7:7").Select la ligne 7 est effacée


que dois je faaire?

 

[neutrix]

zut finalement ca marche pas du tout

si je met Rows("7:7").Select la ligne 7 est effacée meme si les date sont differente


ouinnnnn

 

[neutrix]

please help