Sup de lignes sur l'heure
bernard
-
redaiwa Messages postés 370 Statut Membre -
redaiwa Messages postés 370 Statut Membre -
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
- Heure en ligne aesthetic - Télécharger - Thèmes & Fonds d'écran
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
- 2go internet = combien d'heure - Forum Opérateurs & Réseaux mobiles
- Freebox n'affiche plus l'heure mais fonctionne - Forum Freebox
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
