Sup de lignes sur l'heure
Fermé
bernard
-
20 nov. 2014 à 12:09
redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 - 20 nov. 2014 à 13:13
redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 - 20 nov. 2014 à 13:13
A voir également:
- Sup de lignes sur l'heure
- Changer police heure iphone - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Whatsapp vu à telle heure ✓ - Forum Mobile
- Ne pas apparaître en ligne sur instagram - Guide
2 réponses
redaiwa
Messages postés
346
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
2 juin 2015
117
20 nov. 2014 à 13:13
20 nov. 2014 à 13:13
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.
:)
via55
Messages postés
14271
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
17 novembre 2023
2 644
Modifié par via55 le 20/11/2014 à 13:05
Modifié par via55 le 20/11/2014 à 13:05
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
