Ne laisser que les lignes ou le pas de temps est d'une demi heure

[leila2000]

Bonjour à tous,

Mon problème c'est que mon fichier contient plus de 20000 lignes et je voudrais ne laisser que les lignes ou le pas de temps est d'une demi heure (c'est-à-dire, 12:00, 12:30 ou 15:00, 15:30...) et me débarrasser des lignes ou il y a xx:05, xx:10, xx:15, xx20,xx:25, xx:35…xx:55.

A l'aide SVP...

 

[mromain]

Re : Ne laisser que les lignes ou le pas de temps est d'une demi heure

Bonjour leila2000,

Voici un essai avec une macro :

Sub SupprimerLignes()
Dim i As Long
    With ActiveSheet
        For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If Right(.Range("A" & i).Text, 2) <> "00" And Right(.Range("A" & i).Text, 2) <> "30" Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

PS: la prochaine fois, essaye d'envoyer un fichier exemple (plutôt qu'une photo).

a+

 

[leila2000]

Re : Ne laisser que les lignes ou le pas de temps est d'une demi heure

Merci mromain,
Je vais l'essayer tout de suite.
Et la prochaine fois je mettrai le fichier excel.

ça a marché, tu es mon sauveur, Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiii!!!