Sup de lignes sur l'heure
bernard
-
redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
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...
A voir également:
- Sup de lignes sur l'heure
- Partage de photos en ligne - Guide
- Changement d'heure - Guide
- Heure de connexion whatsapp qui ne changé pas - Accueil - WhatsApp
- Afficher toutes les lignes masquées excel ✓ - Forum Excel
- Comment changer l'ecriture de l'heure sur iphone - Guide
2 réponses
Salam bernard.
A main levée, je pense à un code du genre :
J'ai supposé que les données commencent en A1.
:)
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 :
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
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