Sup de lignes sur l'heure
Fermé
bernard
-
20 nov. 2014 à 12:09
redaiwa Messages postés 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 - 20 nov. 2014 à 13:13
redaiwa Messages postés 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 - 20 nov. 2014 à 13:13
A voir également:
- Sup de lignes sur l'heure
- Comment aller à la ligne sur excel - Guide
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- 1go internet = combien d'heure - Forum Mobile
2 réponses
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
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
14504
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 décembre 2024
2 738
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