trier, rechercher, filter, doublons, temps... je suis perdu

[ldc76]

Bonjour à tous,
Je vous expose ma problématique.
J'ai exporté un journal de bord à la minute, j'ai besoin de rechercher les lignes des changements d'état, et j'aimerai configurer ma feuille ou mon classeur pour avoir directement le temps pendant lequelle le changement d'état à été actif.
exemple.
10:12 0
10:13 0
10:14 1
10:15 1
10:16 1
10:17 0
10:18 0
10:19 1
10:20 0

J'aimerai voir juste
10:12 0
10:14 1 pendant 3mn
10:17 0
10:19 1 pendant 1mn
10:20 0

j'ai une vidéo de mon probléme pour ceux qui le désirent.

Merci à tous

 

[camarchepas]

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Bonjour ,

un petit essai

Sub Déchiffre()
Dim LigneFin As Long
Dim LigneCible As Long
Dim Tourne As Long
Dim Début As String, Fin As String, Durée As String

LigneFin = Range("B" & Rows.Count).End(xlUp).Row
For Tourne = 3 To LigneFin
 LigneCible = Range("D" & Rows.Count).End(xlUp).Row + 1
 If Range("B" & Tourne) = "1" And Début = "" Then
   Range("D" & LigneCible) = Range("A" & Tourne - 1)
   Range("E" & LigneCible) = 0
   Début = Range("A" & Tourne)
   Fin = ""
 End If
 If Range("B" & Tourne) = "0" Or Range("B" & Tourne) = "" Then Fin = Range("A" & Tourne)
 If Début <> "" And Fin <> "" Then
   Durée = DateDiff("n", Début, Fin)
   Range("E" & LigneCible - 1) = Durée
   Début = ""
   Fin = ""
 End If
Next Tourne
End Sub

 

[Victor21]

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Bonjour, ldc76, camarchepas.

Sans macro, avec un filtre, voir pj :

 

[R@chid]

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Bonjour ldc76 et Bienvenu sur XLD,
Bonjour camarche,
Bonjour Patrick,
une autre avec Filtre
Amicalement

 

[ldc76]

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Merci pour vos réponses...
J'ai progressé mais ça ne correspond pas encore à ce que je veux faire.

 

[Victor21]

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Re,

Merci pour vos réponses...
J'ai progressé mais ça ne correspond pas encore à ce que je veux faire.

Mais est-ce que ça correspond à ce que vous avez demandé ?

 

[ldc76]

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Pour l'instant oui, c'est un bon début... mais je vais vite être amené à vous solliciter de nouveau...
Cordialement