Sup de lignes sur l'heure
Bonjour,
J'ai une colonne contenant HH:MM:SS avec 1 ligne par minute.
Je voudrais ne conserver que les 1/4 d'heure soit:
HH:00:SS
HH:15:SS
HH:30:SS
HH:45:SS
Je bloque sur l'écriture de la macro VBA.
Un grand merci pour une solution...
J'ai une colonne contenant HH:MM:SS avec 1 ligne par minute.
Je voudrais ne conserver que les 1/4 d'heure soit:
HH:00:SS
HH:15:SS
HH:30:SS
HH:45:SS
Je bloque sur l'écriture de la macro VBA.
Un grand merci pour une solution...
2 réponses
-
Salam bernard.
A main levée, je pense à un code du genre :
Sub bernard()
ligne = 1
While Cells(ligne + 1, 1) <> ""
Range(Cells(ligne + 1, 1), Cells(ligne + 14, 1)).Delete
ligne = ligne + 1
Wend
End Sub
J'ai supposé que les données commencent en A1.
:) -
Bonjour
Essaie cette macro, à adapter à ton fichier :
Sub effacer() 'derniere ligne rempli de la colonne de la 1ere feuille - A adapter Dim ligne As Long ligne = Sheets(1).Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row 'parcours les lignes de la dernière à la ligne 2 For n = ligne To 2 Step -1 'extrait les minutes de la cellule ligne n colonne 2 - A adapter minu = Minute(Cells(n, 2)) If minu <> 0 And minu <> 15 And minu <> 30 And minu <> 45 Then ' supprime la ligne si pas 00, 15, 30 ou 45 Range(n & ":" & n).Delete End If Next End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
