Macro

De rien

RQ. Pour le test des cellules vides, je n'ai pris en compte que la colonne Attente. Si Attente peut être non vide et Différence vide, pour conserver la plage, il faudra modifier un peu le code
1. Ajouter Diff dans la liste des variables déclarées
Dim SuppPlage As Boolean, Att, hhh As Date, Diff
2. Ajouter/modifier les deux lignes où Diff intervient (en deux endroits du code)
Att = .Cells(li1, cohh + 1)
Diff = .Cells(li1, cohh + 2)
If Att = "" Or Diff = "" Then SuppPlage = False

Bonne journée

OK, à tester
https://www.cjoint.com/?3Dmo4o29k6s

Cdlmnt

OK,

Un début de réponse à tester, avec quand même deux questions supplémentaires
https://www.cjoint.com/?3Dmmkr4PsaQ

Cdlmnt

OK
Encore trois questions
3. Veux tu une copie élaguée de ta plage ou on élague carrément la plage elle même (suppression de lignes)
4. Quel est l'ordre de grandeur du nombre de lignes maxi à traiter
5. L'heure de la dernière ligne est elle toujours hh:mm:00

RQ. Tu devrais t'inscrire comme membre sur le site, c'est gratuit et ça permet un accès direct aux liens fournis

Cdlmnt

Bonjour
deja voila une macro pour Del couleur

Sub supprCouleur()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Coul = Feuil1.Range("E2").Interior.Color
   For L = Nlig To 2 Step -1
      If Range("A" & L).Interior.Color = Coul Then
         Range("A" & L & ":C" & L).Delete Shift:=xlUp
       End If
   Next
End Sub

A+
Maurice

Bonjour

Deux questions (pour le moment)
1. Pourquoi les lignes 107, 156, 264 ne sont pas à conserver alors qu'en colonne A il y a bien hh:mm:00
alors que tu as conservé la ligne 210 située en "plein milieu" d'une plage à supprimer
2. en résumé tu veux garder ?
- les lignes où Axx = hh:mm:00
- les plages d'une minute entre hh:mm:00 et hh:mm:59 mais seulement s'il y a des vides en colonnes B et/ou C

Cdlmnt