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

leila2000 · 19 Novembre 2010

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 · 19 Novembre 2010

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

Bonjour leila2000,

Voici un essai avec une macro :

VB:

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 · 19 Novembre 2010

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!!!

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

leila2000

XLDnaute Nouveau

Pièces jointes

mromain

XLDnaute Barbatruc

leila2000

XLDnaute Nouveau

Discussions similaires